paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 16:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: formatting

Browse Source 
git-svn-id: trunk@20425 -
This commit is contained in:
paul 2009-06-05 08:40:43 +00:00
parent 3656a56670
commit 393c3eea5f
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * This file is part of the Lazarus Component Library (LCL) *
* * * *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, * * See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *
@ -106,7 +106,7 @@ function DeliverGtkPaintMessage(Target: Pointer; Widget: PGtkWidget;
{$DEFINE DirectPaintMsg} {$DEFINE DirectPaintMsg}
{$ENDIF} {$ENDIF}
var var
MSG: TLMGtkPaint; Msg: TLMGtkPaint;
begin begin
//DebugLn(['DeliverGtkPaintMessage ',DbgSName(TObject(Target)),' Widget=',GetWidgetDebugReport(Widget),' RepaintAll=',RepaintAll,' AfterGtk=',IsAfterGtk,' Area=',dbgs(Area)]); //DebugLn(['DeliverGtkPaintMessage ',DbgSName(TObject(Target)),' Widget=',GetWidgetDebugReport(Widget),' RepaintAll=',RepaintAll,' AfterGtk=',IsAfterGtk,' Area=',dbgs(Area)]);
{$IFDEF Gtk2} {$IFDEF Gtk2}
@ -125,10 +125,10 @@ begin
if (not RepaintAll) and ((Area^.Width<1) or (Area^.Height<1)) then exit(false); if (not RepaintAll) and ((Area^.Width<1) or (Area^.Height<1)) then exit(false);
MSG.Msg := LM_GTKPAINT; Msg.Msg := LM_GTKPAINT;
MSG.Data := TLMGtkPaintData.Create; Msg.Data := TLMGtkPaintData.Create;
MSG.Data.Widget := Widget; Msg.Data.Widget := Widget;
MSG.Data.State := GtkPaint_LCLWidget; Msg.Data.State := GtkPaint_LCLWidget;
Msg.Data.Rect := Bounds(Area^.x, Area^.y, Area^.Width, Area^.Height); Msg.Data.Rect := Bounds(Area^.x, Area^.y, Area^.Width, Area^.Height);
Msg.Data.RepaintAll := RepaintAll; Msg.Data.RepaintAll := RepaintAll;

2
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -11,7 +11,7 @@
* * * *
* This file is part of the Lazarus Component Library (LCL) * * This file is part of the Lazarus Component Library (LCL) *
* * * *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, * * See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. * * for details about the copyright. *
* * * *
* This program is distributed in the hope that it will be useful, * * This program is distributed in the hope that it will be useful, *