mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-08 19:18:19 +02:00
fixed compilation after removal of TSize from LCLType
git-svn-id: trunk@8740 -
This commit is contained in:
parent
c945f4fca6
commit
aaeb49acbe
@ -34,7 +34,7 @@ interface
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils,LCLType,Printers;
|
Types, Classes, SysUtils, LCLType,Printers;
|
||||||
|
|
||||||
const
|
const
|
||||||
{$i winutilprnconst.inc}
|
{$i winutilprnconst.inc}
|
||||||
|
@ -62,6 +62,11 @@ uses
|
|||||||
// if not, Rect and Point are taken from the windows unit instead of classes.
|
// if not, Rect and Point are taken from the windows unit instead of classes.
|
||||||
Windows,
|
Windows,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
// use unix units first,
|
||||||
|
// if not, TSize is taken from the unix unit instead of types.
|
||||||
|
ctypes, baseunix, unix,
|
||||||
|
{$ENDIF}
|
||||||
{$IFDEF TraceGdiCalls}
|
{$IFDEF TraceGdiCalls}
|
||||||
LineInfo,
|
LineInfo,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
@ -77,7 +82,7 @@ uses
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
// Target OS specific
|
// Target OS specific
|
||||||
{$IFDEF UNIX}
|
{$IFDEF UNIX}
|
||||||
x, xlib, ctypes, baseunix, unix,
|
x, xlib,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
// LCL
|
// LCL
|
||||||
ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
|
ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
|
||||||
|
@ -81,11 +81,6 @@ function GetTickStep: DWord;
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$IFNDEF Win32}
|
|
||||||
uses
|
|
||||||
Unix;
|
|
||||||
{$ENDIF}
|
|
||||||
|
|
||||||
var
|
var
|
||||||
FPredefinedClipboardFormats:
|
FPredefinedClipboardFormats:
|
||||||
array[TPredefinedClipboardFormat] of TClipboardFormat;
|
array[TPredefinedClipboardFormat] of TClipboardFormat;
|
||||||
|
Loading…
Reference in New Issue
Block a user