paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 12:52:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: implemented WS Repaint.

Browse Source 
git-svn-id: trunk@54110 -
This commit is contained in:
zeljko 2017-02-07 14:50:27 +00:00
parent 75baa379fa
commit 9405275f19
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2wscontrols.pp
View File

@ -95,6 +95,7 @@ type
class procedure SetBiDiMode(const AWinControl: TWinControl; UseRightToLeftAlign, {%H-}UseRightToLeftReading, {%H-}UseRightToLeftScrollBar : Boolean); override;
class procedure PaintTo(const AWinControl: TWinControl; ADC: HDC; X, Y: Integer); override;
class procedure Repaint(const AWinControl: TWinControl); override;
class procedure ShowHide(const AWinControl: TWinControl); override;
class procedure ScrollBy(const AWinControl: TWinControl; DeltaX, DeltaY: integer); override;
end;
@ -1145,6 +1146,13 @@ begin
PaintWidget(GetFixedWidget({%H-}PGtkWidget(AWinControl.Handle)));
end;
class procedure TGtk2WSWinControl.Repaint(const AWinControl: TWinControl);
begin
if not WSCheckHandleAllocated(AWinControl, 'Repaint')
then Exit;
gtk_widget_queue_draw({%H-}PGtkWidget(AWinControl.Handle));
end;
{ TGtk2WSBaseScrollingWinControl }
function Gtk2WSBaseScrollingWinControl_HValueChanged(AAdjustment: PGTKAdjustment; AInfo: PWidgetInfo): GBoolean; cdecl;