mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 22:38:20 +02:00
fix 1.0.10 compilation (global var init)
git-svn-id: trunk@6074 -
This commit is contained in:
parent
f9d650d137
commit
19fb185df2
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user