paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 09:18:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed fpc 1.0 compilation

Browse Source 
git-svn-id: trunk@6141 -
This commit is contained in:
vincents 2004-10-16 08:59:26 +00:00
parent 91c039d2ba
commit 5f70eeba05
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3662,12 +3662,16 @@ begin
end;
end;
{$ifndef VER1_0}
var
{$else}
const
{$endif}
{$IFDef GTK1}
NoteBookCloseBtnPixmapImg: PGdkPixmap {$ifndef VER1_0} = nil {$endif};
NoteBookCloseBtnPixmapMask: PGdkPixmap {$ifndef VER1_0} = nil {$endif};
NoteBookCloseBtnPixmapImg: PGdkPixmap = nil;
NoteBookCloseBtnPixmapMask: PGdkPixmap = nil;
{$Else}
NoteBookCloseBtnPixbuf: PGdkPixbuf {$ifndef VER1_0} = nil {$endif};
NoteBookCloseBtnPixbuf: PGdkPixbuf = nil;
{$EndIf}
{-------------------------------------------------------------------------------
@ -7628,6 +7632,9 @@ end;
{ =============================================================================
$Log$
Revision 1.314 2004/10/16 08:59:26 vincents
fixed fpc 1.0 compilation
Revision 1.313 2004/10/15 12:04:09 mattias
calling updating notebook tab after realize, needed for close btns

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

@ -418,12 +418,4 @@ initialization
// RegisterWSComponent(TPanel, TGtkWSPanel);
////////////////////////////////////////////////////
{$ifdef VER1_0}
{$ifdef GTK1}
NoteBookCloseBtnPixmapImg := nil;
NoteBookCloseBtnPixmapMask := nil;
{$else}
NoteBookCloseBtnPixbuf := nil;
{$endif}
{$endif}
end.

3
lcl/postscriptcanvas.pas
View File

@ -37,6 +37,9 @@
unit PostscriptCanvas;
{$mode objfpc}{$H+}
{$IFDEF VER1_0_10}
{$DEFINE DisableFPImage}
{$ENDIF}
interface