paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:49:18 +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; Shift : TShiftState;
Begin Begin
{$IFDEF VerboseDesigner} {$IFDEF VerboseDesigner}
Writeln('TDesigner.KEYDOWN'); Writeln('TDesigner.KEYDOWN ',TheMessage.CharCode,' ',TheMessage.KeyData);
with TheMessage do
Begin
Writeln('CHARCODE = '+inttostr(charcode));
Writeln('KEYDATA = '+inttostr(KeyData));
end;
{$ENDIF} {$ENDIF}
Shift := KeyDataToShiftState(TheMessage.KeyData); Shift := KeyDataToShiftState(TheMessage.KeyData);
@ -722,12 +717,7 @@ end;
Procedure TDesigner.KeyUp(Sender : TControl; TheMessage:TLMKEY); Procedure TDesigner.KeyUp(Sender : TControl; TheMessage:TLMKEY);
Begin Begin
{$IFDEF VerboseDesigner} {$IFDEF VerboseDesigner}
Writeln('KEYUp'); Writeln('TDesigner.KEYUP ',TheMessage.CharCode,' ',TheMessage.KeyData);
with TheMessage do
Begin
Writeln('CHARCODE = '+inttostr(charcode));
Writeln('KEYDATA = '+inttostr(KeyData));
end;
{$ENDIF} {$ENDIF}
end; end;

5
designer/jitforms.pp
View File

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

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

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