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

Gtk widget => changed from ifdef gtk2 => ifNdef gtk1

Browse Source 
git-svn-id: trunk@20007 -
This commit is contained in:
martin 2009-05-17 11:29:53 +00:00
parent 3f7ae88079
commit fd3a03f494
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@
{$ENDIF}
function DoDeliverPaintMessage(const Target: TObject; var PaintMsg: TLMPaint): PtrInt;
{$ifdef gtk2}
{$ifndef gtk1}
var
WidgetInfo: PWidgetInfo;
{$endif}
@ -51,7 +51,7 @@ begin
Result := DeliverMessage(Target, PaintMsg);
{$ifdef gtk2}
{$ifndef gtk1}
if (TObject(Target) is TCustomControl) then begin
WidgetInfo := GetWidgetInfo(PGtkWidget(TCustomControl(Target).Handle), False);
if WidgetInfo <> nil then

6
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -6842,7 +6842,7 @@ var
gdkRect : TGDKRectangle;
Widget, PaintWidget: PGtkWidget;
LCLObject: TObject;
{$IfDef GTK2}
{$IfNDef GTK1}
WidgetInfo: PWidgetInfo;
{$ENDIF}
r: TRect;
@ -6885,7 +6885,7 @@ begin
gdkRect.Width := (Rect^.Right - Rect^.Left);
gdkRect.Height := (Rect^.Bottom - Rect^.Top);
{$IfDef GTK2}
{$IfNDef GTK1}
if (PaintWidget<>nil) and GTK_WIDGET_NO_WINDOW(PaintWidget)
and (not GtkWidgetIsA(PGTKWidget(PaintWidget),GTKAPIWidget_GetType))
and (Rect<>nil)
@ -6905,7 +6905,7 @@ begin
gtk_widget_queue_draw_area(PaintWidget,
gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
{$IfDef GTK2}
{$IfNDef GTK1}
//DebugLn(['TGtkWidgetSet.InvalidateRect ',GetWidgetDebugReport(Widget),' IsAPI=',GtkWidgetIsA(PGTKWidget(Widget),GTKAPIWidget_GetType)]);
if GtkWidgetIsA(PGTKWidget(Widget),GTKAPIWidget_GetType) then
GTKAPIWidget_InvalidateCaret(PGTKAPIWidget(Widget));