paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 04:59:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk-splitup: cleanup compiler hints, removed unsued variables

Browse Source 
git-svn-id: trunk@26013 -
This commit is contained in:
marc 2010-06-09 23:08:38 +00:00
parent 46ebaabc7a
commit 5047e33c0a
3 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -303,18 +303,7 @@ end;
function gtkshowCB( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var
TheForm: TCustomForm;
SizeMsg: TLMSize;
GtkWidth: LongInt;
GtkHeight: LongInt;
Mess : TLMShowWindow;
{$IFDEF HasX}
NetAtom: TGdkAtom;
AtomType: TGdkAtom;
AIndex, ADesktop: pguint;
AFormat: gint;
ALength: gint;
{$ENDIF}
begin
Result := True;

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

@ -8506,7 +8506,6 @@ var
Widget, FixWidget : PGTKWidget;
MainWidget: PGtkWidget;
FreeFontName: boolean;
FreeFontSetName: boolean;
procedure CreateRCStyle;
begin
@ -8530,7 +8529,6 @@ begin
RCStyle:=nil;
FreeFontName:=false;
FreeFontSetName:=false;
try
// set default background
if (AWinControl.Color=clNone) then

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

@ -8167,7 +8167,6 @@ function TGtk2WidgetSet.SetScrollInfo(Handle : HWND; SBStyle : Integer;
const
POLICY: array[BOOLEAN] of TGTKPolicyType = (GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
var
GtkWindow: PGtkWindow;
Layout: PgtkLayout;
Scroll: PGTKWidget;
IsScrollWindow: Boolean;