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

lcl: gtk2: less hints

Browse Source
This commit is contained in:
mattias 2025-08-13 15:03:31 +02:00
parent b6098747df
commit 1283d72eea
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -46,7 +46,7 @@ uses
Gtk2WinApiWindow, Gtk2Globals, Gtk2Proc, Gtk2Def, Gtk2FontCache, Gtk2Extra, Gtk2MsgQueue,
// LazUtils
GraphType, GraphMath, LazFileUtils, LazUTF8, DynHashArray, Maps, IntegerList,
LazLoggerBase, LazTracer, LazUtilities, LazStringUtils;
LazLoggerBase, LazTracer, LazUtilities;
type

2
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -1305,7 +1305,7 @@ var
RegionObj: PGdkRegion;
begin
Points:=EllipsePolygon(Rect(X1,Y1,X2,Y2));
SetLength(gPoints,length(Points));
SetLength(gPoints{%H-},length(Points));
for i:=0 to length(Points)-1 do begin
gPoints[i].x:=Points[i].x;
gPoints[i].y:=Points[i].y;

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

@ -29,7 +29,7 @@ uses
Gtk2, Glib2, Gdk2,
Classes, SysUtils,
// LCL
LCLType, LMessages, LCLProc, Controls, Forms,
LCLType, LCLProc, Controls, Forms,
// widgetset
WSControls, WSLCLClasses, WSProc,
// interface

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

@ -24,7 +24,7 @@ uses
// RTL
glib2, gtk2, SysUtils, Classes, Math,
// LCL
Controls, LCLType, LCLProc, LMessages, LazUTF8, Spin, StdCtrls,
Controls, LCLType, LCLProc, LazUTF8, Spin, StdCtrls,
// Widgetset
Gtk2Extra, Gtk2Def, Gtk2WSStdCtrls,
Gtk2Proc, WSLCLClasses, WSProc, WSSpin;