paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:36:10 +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;
end; end;
{$ifndef VER1_0}
var var
{$else}
const
{$endif}
{$IFDef GTK1} {$IFDef GTK1}
NoteBookCloseBtnPixmapImg: PGdkPixmap {$ifndef VER1_0} = nil {$endif}; NoteBookCloseBtnPixmapImg: PGdkPixmap = nil;
NoteBookCloseBtnPixmapMask: PGdkPixmap {$ifndef VER1_0} = nil {$endif}; NoteBookCloseBtnPixmapMask: PGdkPixmap = nil;
{$Else} {$Else}
NoteBookCloseBtnPixbuf: PGdkPixbuf {$ifndef VER1_0} = nil {$endif}; NoteBookCloseBtnPixbuf: PGdkPixbuf = nil;
{$EndIf} {$EndIf}
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
@ -7628,6 +7632,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.313 2004/10/15 12:04:09 mattias
calling updating notebook tab after realize, needed for close btns 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); // RegisterWSComponent(TPanel, TGtkWSPanel);
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
{$ifdef VER1_0}
{$ifdef GTK1}
NoteBookCloseBtnPixmapImg := nil;
NoteBookCloseBtnPixmapMask := nil;
{$else}
NoteBookCloseBtnPixbuf := nil;
{$endif}
{$endif}
end. end.

3
lcl/postscriptcanvas.pas
View File

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