mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-02 15:32:46 +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}
|
||||
|
||||
uses
|
||||
Classes, SysUtils,LCLType,Printers;
|
||||
Types, Classes, SysUtils, LCLType,Printers;
|
||||
|
||||
const
|
||||
{$i winutilprnconst.inc}
|
||||
|
@ -62,6 +62,11 @@ uses
|
||||
// if not, Rect and Point are taken from the windows unit instead of classes.
|
||||
Windows,
|
||||
{$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}
|
||||
LineInfo,
|
||||
{$ENDIF}
|
||||
@ -77,7 +82,7 @@ uses
|
||||
{$ENDIF}
|
||||
// Target OS specific
|
||||
{$IFDEF UNIX}
|
||||
x, xlib, ctypes, baseunix, unix,
|
||||
x, xlib,
|
||||
{$ENDIF}
|
||||
// LCL
|
||||
ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
|
||||
|
@ -81,11 +81,6 @@ function GetTickStep: DWord;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFNDEF Win32}
|
||||
uses
|
||||
Unix;
|
||||
{$ENDIF}
|
||||
|
||||
var
|
||||
FPredefinedClipboardFormats:
|
||||
array[TPredefinedClipboardFormat] of TClipboardFormat;
|
||||
|
Loading…
Reference in New Issue
Block a user