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

fix 1.0.10 compilation (global var init)

Browse Source 
git-svn-id: trunk@6074 -
This commit is contained in:
micha 2004-09-25 11:19:56 +00:00
parent f9d650d137
commit 19fb185df2
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk/gtkwsextctrls.pp
View File

@ -216,10 +216,10 @@ implementation
var var
{$IFDef GTK1} {$IFDef GTK1}
NoteBookCloseBtnPixmapImg: PGdkPixmap = nil; NoteBookCloseBtnPixmapImg: PGdkPixmap {$ifndef VER1_0} = nil {$endif};
NoteBookCloseBtnPixmapMask: PGdkPixmap = nil; NoteBookCloseBtnPixmapMask: PGdkPixmap {$ifndef VER1_0} = nil {$endif};
{$Else} {$Else}
NoteBookCloseBtnPixbuf: PGdkPixbuf = nil; NoteBookCloseBtnPixbuf: PGdkPixbuf {$ifndef VER1_0} = nil {$endif};
{$EndIf} {$EndIf}
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
@ -678,4 +678,13 @@ initialization
// RegisterWSComponent(TCustomPanel, TGtkWSCustomPanel); // RegisterWSComponent(TCustomPanel, TGtkWSCustomPanel);
// RegisterWSComponent(TPanel, TGtkWSPanel); // RegisterWSComponent(TPanel, TGtkWSPanel);
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
{$ifdef VER1_0}
{$ifdef GTK1}
NoteBookCloseBtnPixmapImg := nil;
NoteBookCloseBtnPixmapMask := nil;
{$else}
NoteBookCloseBtnPixbuf := nil;
{$endif}
{$endif}
end. end.