paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:39:08 +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, Gtk2WinApiWindow, Gtk2Globals, Gtk2Proc, Gtk2Def, Gtk2FontCache, Gtk2Extra, Gtk2MsgQueue,
// LazUtils // LazUtils
GraphType, GraphMath, LazFileUtils, LazUTF8, DynHashArray, Maps, IntegerList, GraphType, GraphMath, LazFileUtils, LazUTF8, DynHashArray, Maps, IntegerList,
LazLoggerBase, LazTracer, LazUtilities, LazStringUtils; LazLoggerBase, LazTracer, LazUtilities;
type type

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

@ -1305,7 +1305,7 @@ var
RegionObj: PGdkRegion; RegionObj: PGdkRegion;
begin begin
Points:=EllipsePolygon(Rect(X1,Y1,X2,Y2)); 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 for i:=0 to length(Points)-1 do begin
gPoints[i].x:=Points[i].x; gPoints[i].x:=Points[i].x;
gPoints[i].y:=Points[i].y; gPoints[i].y:=Points[i].y;

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

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

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

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