paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 07:12:41 +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
{$IFDef GTK1}
NoteBookCloseBtnPixmapImg: PGdkPixmap = nil;
NoteBookCloseBtnPixmapMask: PGdkPixmap = nil;
NoteBookCloseBtnPixmapImg: PGdkPixmap {$ifndef VER1_0} = nil {$endif};
NoteBookCloseBtnPixmapMask: PGdkPixmap {$ifndef VER1_0} = nil {$endif};
{$Else}
NoteBookCloseBtnPixbuf: PGdkPixbuf = nil;
NoteBookCloseBtnPixbuf: PGdkPixbuf {$ifndef VER1_0} = nil {$endif};
{$EndIf}
{-------------------------------------------------------------------------------
@ -678,4 +678,13 @@ initialization
// RegisterWSComponent(TCustomPanel, TGtkWSCustomPanel);
// RegisterWSComponent(TPanel, TGtkWSPanel);
////////////////////////////////////////////////////
{$ifdef VER1_0}
{$ifdef GTK1}
NoteBookCloseBtnPixmapImg := nil;
NoteBookCloseBtnPixmapMask := nil;
{$else}
NoteBookCloseBtnPixbuf := nil;
{$endif}
{$endif}
end.