paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: reduced output

Browse Source 
git-svn-id: trunk@1946 -
This commit is contained in:
lazarus 2002-08-17 23:40:21 +00:00
parent 3f50a49cd3
commit 875c639d05
3 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/designer.pp
View File

@ -670,12 +670,7 @@ var
Shift : TShiftState;
Begin
{$IFDEF VerboseDesigner}
Writeln('TDesigner.KEYDOWN');
with TheMessage do
Begin
Writeln('CHARCODE = '+inttostr(charcode));
Writeln('KEYDATA = '+inttostr(KeyData));
end;
Writeln('TDesigner.KEYDOWN ',TheMessage.CharCode,' ',TheMessage.KeyData);
{$ENDIF}
Shift := KeyDataToShiftState(TheMessage.KeyData);
@ -722,12 +717,7 @@ end;
Procedure TDesigner.KeyUp(Sender : TControl; TheMessage:TLMKEY);
Begin
{$IFDEF VerboseDesigner}
Writeln('KEYUp');
with TheMessage do
Begin
Writeln('CHARCODE = '+inttostr(charcode));
Writeln('KEYDATA = '+inttostr(KeyData));
end;
Writeln('TDesigner.KEYUP ',TheMessage.CharCode,' ',TheMessage.KeyData);
{$ENDIF}
end;

5
designer/jitforms.pp
View File

@ -664,15 +664,14 @@ begin
if ComponentClass=nil then begin
RegComp:=FRegCompList.FindComponentClassByName(FindClassName);
if RegComp<>nil then begin
//write('[TJITForms.ReaderFindComponentClass] '''+FindClassName
//writeln('[TJITForms.ReaderFindComponentClass] '''+FindClassName
// +''' is registered');
ComponentClass:=RegComp.ComponentClass;
end else begin
write('[TJITForms.ReaderFindComponentClass] '''+FindClassName
writeln('[TJITForms.ReaderFindComponentClass] '''+FindClassName
+''' is unregistered');
end;
end;
writeln('');
end;
procedure TJITForms.ReaderCreateComponent(Reader: TReader;

5
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -617,7 +617,7 @@ var
//parWindow : PgdkWindow; //the Parent's GDKWindow
DesignOnlySignal: boolean;
{$DEFINE VerboseMouseBugfix}
{ $DEFINE VerboseMouseBugfix}
function CheckMouseButtonDown(var LastMouse: TLastMouseClick;
BtnKey, MsgNormal, MsgDouble, MsgTriple: longint): boolean;
@ -2139,6 +2139,9 @@ end;
{ =============================================================================
$Log$
Revision 1.109 2002/08/24 07:11:56 lazarus
MG: reduced output
Revision 1.108 2002/08/24 07:09:04 lazarus
MG: fixed bracket hilighting