paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 23:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

compatibility with new 1.1

Browse Source 
git-svn-id: trunk@4728 -
This commit is contained in:
micha 2003-10-23 16:15:30 +00:00
parent 912975406c
commit f65e4bb1ca
8 changed files with 172 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile.fpc
View File

@ -42,6 +42,7 @@ ifeq ($(OS_TARGET),win32)
LCL_PLATFORM=win32 LCL_PLATFORM=win32
else else
LCL_PLATFORM=gtk LCL_PLATFORM=gtk
override COMPILER_UNITDIR+=lcl/nonwin32
endif endif
endif endif
export LCL_PLATFORM export LCL_PLATFORM

9
components/codetools/memcheck.pas
View File

@ -2160,12 +2160,18 @@ begin
if (cardinal(p)>=$40000) and (p<=HeapOrg) then if (cardinal(p)>=$40000) and (p<=HeapOrg) then
goto _exit; goto _exit;
{ inside stack ? } { inside stack ? }
{$ifdef ver1_0}
asm asm
movl %ebp,get_ebp movl %ebp,get_ebp
end; end;
if (cardinal(p)>get_ebp) and if (cardinal(p)>get_ebp) and
(cardinal(p)<Win32StackTop) then (cardinal(p)<Win32StackTop) then
goto _exit; goto _exit;
{$else ver1_0}
if (p>get_frame) and
(p<pointer(Win32StackTop)) then
goto _exit;
{$endif ver1_0}
{$endif win32} {$endif win32}
{ first try valid list faster } { first try valid list faster }
@ -2561,6 +2567,9 @@ end.
{ {
$Log$ $Log$
Revision 1.23 2003/10/23 16:15:30 micha
compatibility with new 1.1
Revision 1.22 2003/07/16 20:35:42 mattias Revision 1.22 2003/07/16 20:35:42 mattias
accelerated TLazXPMReader accelerated TLazXPMReader

1
designer/componenttreeview.pas
View File

@ -58,6 +58,7 @@ type
write SetSelections; write SetSelections;
property PropertyEditorHook: TPropertyEditorHook property PropertyEditorHook: TPropertyEditorHook
read FPropertyEditorHook write SetPropertyEditorHook; read FPropertyEditorHook write SetPropertyEditorHook;
property OnSelectionChanged;
end; end;
implementation implementation

26
designer/propedits.pp
View File

@ -1739,7 +1739,11 @@ end;
Function CallSingleFunc(s : Pointer; Address : Pointer; Function CallSingleFunc(s : Pointer; Address : Pointer;
Index, IValue : Longint) : Single; assembler; Index, IValue : Longint) : Single; assembler;
{$asmmode att} {$asmmode att}
var
saveedi,saveesi : dword;
asm asm
movl %edi,saveedi
movl %esi,saveesi
movl S,%esi movl S,%esi
movl Address,%edi movl Address,%edi
// ? Indexed Function // ? Indexed Function
@ -1752,11 +1756,17 @@ Function CallSingleFunc(s : Pointer; Address : Pointer;
push %esi push %esi
call %edi call %edi
// //
movl saveedi,%edi
movl saveesi,%esi
end; end;
Function CallDoubleFunc(s : Pointer; Address : Pointer; Function CallDoubleFunc(s : Pointer; Address : Pointer;
Index, IValue : Longint) : Double; assembler; Index, IValue : Longint) : Double; assembler;
var
saveedi,saveesi : dword;
asm asm
movl %edi,saveedi
movl %esi,saveesi
movl S,%esi movl S,%esi
movl Address,%edi movl Address,%edi
// ? Indexed Function // ? Indexed Function
@ -1769,11 +1779,17 @@ Function CallDoubleFunc(s : Pointer; Address : Pointer;
push %esi push %esi
call %edi call %edi
// //
movl saveedi,%edi
movl saveesi,%esi
end; end;
Function CallExtendedFunc(s : Pointer; Address : Pointer; Function CallExtendedFunc(s : Pointer; Address : Pointer;
Index, IValue : Longint) : Extended; assembler; Index, IValue : Longint) : Extended; assembler;
var
saveedi,saveesi : dword;
asm asm
movl %edi,saveedi
movl %esi,saveesi
movl S,%esi movl S,%esi
movl Address,%edi movl Address,%edi
// ? Indexed Function // ? Indexed Function
@ -1786,6 +1802,8 @@ Function CallExtendedFunc(s : Pointer; Address : Pointer;
push %esi push %esi
call %edi call %edi
// //
movl saveedi,%edi
movl saveesi,%esi
end; end;
Function MyGetFloatProp(Instance : TObject;PropInfo : PPropInfo) : Extended; Function MyGetFloatProp(Instance : TObject;PropInfo : PPropInfo) : Extended;
@ -2193,7 +2211,7 @@ begin
ShowPrefix := True; ShowPrefix := True;
WordBreak := False; WordBreak := False;
SingleLine := True; SingleLine := True;
SystemFont := True; SystemFont := False;
end; end;
If (pedsInComboList in AState) and not (pedsInEdit in AState) If (pedsInComboList in AState) and not (pedsInEdit in AState)
then begin then begin
@ -2235,7 +2253,8 @@ begin
ShowPrefix := False; ShowPrefix := False;
WordBreak := False; WordBreak := False;
SingleLine := True; SingleLine := True;
SystemFont := true; ExpandTabs := True;
SystemFont := False;
end; end;
ACanvas.TextRect(ARect, 2,0,GetName, Style); ACanvas.TextRect(ARect, 2,0,GetName, Style);
end; end;
@ -2254,7 +2273,8 @@ begin
ShowPrefix := True; ShowPrefix := True;
WordBreak := False; WordBreak := False;
SingleLine := True; SingleLine := True;
SystemFont := true; ExpandTabs := True;
SystemFont := False;
end; end;
ACanvas.TextRect(ARect, 3,0,GetVisualValue, Style); ACanvas.TextRect(ARect, 3,0,GetVisualValue, Style);
end; end;

7
ide/main.pp
View File

@ -277,7 +277,7 @@ type
// ObjectInspector + PropertyEditorHook events // ObjectInspector + PropertyEditorHook events
procedure OIOnSelectComponents(Sender: TObject); procedure OIOnSelectComponents(Sender: TObject);
procedure OIOnShowOptions(AComponent:TComponent); procedure OIOnShowOptions(Sender: TObject);
procedure OnPropHookGetMethods(TypeData:PTypeData; Proc:TGetStringProc); procedure OnPropHookGetMethods(TypeData:PTypeData; Proc:TGetStringProc);
function OnPropHookMethodExists(const AMethodName:ShortString; function OnPropHookMethodExists(const AMethodName:ShortString;
TypeData: PTypeData; TypeData: PTypeData;
@ -912,7 +912,7 @@ begin
TheControlSelection.AssignSelection(ObjectInspector1.Selections); TheControlSelection.AssignSelection(ObjectInspector1.Selections);
end; end;
procedure TMainIDE.OIOnShowOptions(AComponent: TComponent); procedure TMainIDE.OIOnShowOptions(Sender: TObject);
begin begin
DoShowEnvGeneralOptions(eodpObjectInspector); DoShowEnvGeneralOptions(eodpObjectInspector);
end; end;
@ -9925,6 +9925,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.659 2003/10/23 16:15:29 micha
compatibility with new 1.1
Revision 1.658 2003/10/22 17:50:16 mattias Revision 1.658 2003/10/22 17:50:16 mattias
updated rpm scripts updated rpm scripts

5
lcl/extctrls.pp
View File

@ -170,7 +170,6 @@ type
procedure ReadState(Reader: TAbstractReader); override; procedure ReadState(Reader: TAbstractReader); override;
procedure ShowControl(APage: TControl); override; procedure ShowControl(APage: TControl); override;
procedure UpdateTabProperties; virtual; procedure UpdateTabProperties; virtual;
property Page[Index: Integer]: TCustomPage read GetPage;
property ActivePageComponent: TCustomPage read GetActivePageComponent property ActivePageComponent: TCustomPage read GetActivePageComponent
write SetActivePageComponent; write SetActivePageComponent;
property ActivePage: String read GetActivePage write SetActivePage property ActivePage: String read GetActivePage write SetActivePage
@ -185,6 +184,7 @@ type
function CustomPage(Index: integer): TCustomPage; function CustomPage(Index: integer): TCustomPage;
public public
//property MultiLine: boolean read fMultiLine write SetMultiLine default false; //property MultiLine: boolean read fMultiLine write SetMultiLine default false;
property Page[Index: Integer]: TCustomPage read GetPage;
property PageCount: integer read GetPageCount; property PageCount: integer read GetPageCount;
property Pages: TStrings read fAccess write SetPages; property Pages: TStrings read fAccess write SetPages;
property PageIndex: Integer read GetPageIndex write SetPageIndex default -1; property PageIndex: Integer read GetPageIndex write SetPageIndex default -1;
@ -834,6 +834,9 @@ end.
{ {
$Log$ $Log$
Revision 1.82 2003/10/23 16:15:30 micha
compatibility with new 1.1
Revision 1.81 2003/10/15 18:01:10 mattias Revision 1.81 2003/10/15 18:01:10 mattias
implemented extract proc, check lfm and convert delphi unit implemented extract proc, check lfm and convert delphi unit

162
lcl/lcltype.pp
View File

@ -45,11 +45,15 @@ interface
{$ASSERTIONS ON} {$ASSERTIONS ON}
{$endif} {$endif}
uses VCLGlobals, Classes; uses
{$ifdef win32}
windows,
{$endif win32}
VCLGlobals, Classes;
type type
//TODO: check this against vclglobals //TODO: check this against vclglobals
PLongInt = ^LongInt; PLongInt = ^LongInt;
PInteger = ^Integer; PInteger = ^Integer;
PSmallInt = ^SmallInt; PSmallInt = ^SmallInt;
@ -63,6 +67,7 @@ type
TCriticalSection = longint; TCriticalSection = longint;
PCriticalSection = ^TCriticalSection; PCriticalSection = ^TCriticalSection;
{$if defined(VER1_0) or not(defined(win32))}
{ Provided for compatibility with Windows registry ONLY } { Provided for compatibility with Windows registry ONLY }
HKEY = Integer; HKEY = Integer;
PHKEY = ^HKEY; PHKEY = ^HKEY;
@ -76,32 +81,40 @@ type
HICON = type LongWord; HICON = type LongWord;
HCURSOR = HICON; HCURSOR = HICON;
Bool = LongBool; Bool = LongBool;
pByte = ^byte;
HGLOBAL = THAndle; HGLOBAL = THAndle;
TgComponentStyle = LongInt;
AnsiChar = Char; //Should be moved
WideChar = Char;
Short = SmallInt; Short = SmallInt;
THAndle = Integer;
hwnd = THandle; hwnd = THandle;
TCaption = string;
//TMessage = Pointer;
HMENU = type LongWord; HMENU = type LongWord;
HBitmap = type LongWord; HBitmap = type LongWord;
HPalette = type LongWord; HPalette = type LongWord;
HBRUSH = type LongWord; HBRUSH = type LongWord;
{$else}
HKEY = Windows.HKEY;
PHKEY = ^HKEY;
HDC = Windows.HDC;
HHOOK = Windows.HHOOK;
HFONT = Windows.HFont;
HGDIOBJ = Windows.HGDIOBJ;
HPEN = Windows.HPEN;
HRGN = Windows.HRGN;
HINST = Windows.HINST;
HICON = Windows.HICON;
HCURSOR = HICON;
Bool = Windows.Bool;
HGLOBAL = Windows.HGLOBAL;
Short = Windows.Short;
hwnd = Windows.hwnd;
HMENU = Windows.HMENU;
HBitmap = Windows.HBitmap;
HPalette = Windows.HPalette;
// from Delphis sysutils.pas HBRUSH = Windows.HBrush;
PByteArray = ^TByteArray; {$endif}
TByteArray = array[0..32767] of Byte;
var var
hInstance :HINST; hInstance :HINST;
const const
INVALID_HANDLE_VALUE = 0; INVALID_HANDLE_VALUE = 0;
MaxByte = 255; MaxByte = 255;
@ -129,7 +142,7 @@ type
LRESULT = LongInt; LRESULT = LongInt;
TKeyBoardState = array[0..255] of byte; TKeyBoardState = array[0..255] of byte;
PABC = ^TABC; PABC = ^TABC;
_ABC = packed record _ABC = packed record
@ -194,24 +207,24 @@ const
DFCS_BUTTONRADIO = 4; DFCS_BUTTONRADIO = 4;
DFCS_BUTTON3STATE = 8; DFCS_BUTTON3STATE = 8;
DFCS_BUTTONPUSH = 16; DFCS_BUTTONPUSH = 16;
DFCS_CAPTIONCLOSE = 0; DFCS_CAPTIONCLOSE = 0;
DFCS_CAPTIONMIN = 1; DFCS_CAPTIONMIN = 1;
DFCS_CAPTIONMAX = 2; DFCS_CAPTIONMAX = 2;
DFCS_CAPTIONRESTORE = 3; DFCS_CAPTIONRESTORE = 3;
DFCS_CAPTIONHELP = 4; DFCS_CAPTIONHELP = 4;
DFCS_MENUARROW = 0; DFCS_MENUARROW = 0;
DFCS_MENUCHECK = 1; DFCS_MENUCHECK = 1;
DFCS_MENUBULLET = 2; DFCS_MENUBULLET = 2;
DFCS_SCROLLDOWN = 1; DFCS_SCROLLDOWN = 1;
DFCS_SCROLLLEFT = 2; DFCS_SCROLLLEFT = 2;
DFCS_SCROLLRIGHT = 3; DFCS_SCROLLRIGHT = 3;
DFCS_SCROLLCOMBOBOX = 5; DFCS_SCROLLCOMBOBOX = 5;
DFCS_SCROLLSIZEGRIP = 8; DFCS_SCROLLSIZEGRIP = 8;
DFCS_SCROLLUP = 0; DFCS_SCROLLUP = 0;
DFCS_ADJUSTRECT = 8192; DFCS_ADJUSTRECT = 8192;
DFCS_CHECKED = 1024; DFCS_CHECKED = 1024;
DFCS_FLAT = 16384; DFCS_FLAT = 16384;
@ -354,7 +367,7 @@ PM_Remove = 1;
VK_APPS = $5D; VK_APPS = $5D;
// $5E reserved // $5E reserved
VK_SLEEP = $5F; VK_SLEEP = $5F;
VK_NUMPAD0 = 96; // $60 VK_NUMPAD0 = 96; // $60
VK_NUMPAD1 = 97; VK_NUMPAD1 = 97;
VK_NUMPAD2 = 98; VK_NUMPAD2 = 98;
@ -395,15 +408,15 @@ PM_Remove = 1;
VK_F22 = 133; VK_F22 = 133;
VK_F23 = 134; VK_F23 = 134;
VK_F24 = 135; // $87 VK_F24 = 135; // $87
// $88-$8F unassigned // $88-$8F unassigned
VK_NUMLOCK = $90; VK_NUMLOCK = $90;
VK_SCROLL = $91; VK_SCROLL = $91;
// $92-$96 OEM specific // $92-$96 OEM specific
// $97-$9F Unassigned // $97-$9F Unassigned
// not in VCL defined: // not in VCL defined:
//MWE: And should not be used. //MWE: And should not be used.
// The keys they are on map to another VK // The keys they are on map to another VK
@ -425,7 +438,7 @@ PM_Remove = 1;
VK_RCONTROL = $A3; VK_RCONTROL = $A3;
VK_LMENU = $A4; VK_LMENU = $A4;
VK_RMENU = $A5; VK_RMENU = $A5;
VK_BROWSER_BACK = $A6; VK_BROWSER_BACK = $A6;
VK_BROWSER_FORWARD = $A7; VK_BROWSER_FORWARD = $A7;
VK_BROWSER_REFRESH = $A8; VK_BROWSER_REFRESH = $A8;
@ -436,48 +449,48 @@ PM_Remove = 1;
VK_VOLUME_MUTE = $AD; VK_VOLUME_MUTE = $AD;
VK_VOLUME_DOWN = $AE; VK_VOLUME_DOWN = $AE;
VK_VOLUME_UP = $AF; VK_VOLUME_UP = $AF;
VK_MEDIA_NEXT_TRACK = $B0; VK_MEDIA_NEXT_TRACK = $B0;
VK_MEDIA_PREV_TRACK = $B1; VK_MEDIA_PREV_TRACK = $B1;
VK_MEDIA_STOP = $B2; VK_MEDIA_STOP = $B2;
VK_MEDIA_PLAY_PAUSE = $B3; VK_MEDIA_PLAY_PAUSE = $B3;
VK_LAUNCH_MAIL = $B4; VK_LAUNCH_MAIL = $B4;
VK_LAUNCH_MEDIA_SELECT = $B5; VK_LAUNCH_MEDIA_SELECT = $B5;
VK_LAUNCH_APP1 = $B6; VK_LAUNCH_APP1 = $B6;
VK_LAUNCH_APP2 = $B7; VK_LAUNCH_APP2 = $B7;
// $B8-$B9 Reserved // $B8-$B9 Reserved
VK_OEM_1 = $BA; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_1 = $BA; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the ';:' key // For the US standard keyboard, the ';:' key
VK_OEM_PLUS = $BB; // For any country/region, the '+' key VK_OEM_PLUS = $BB; // For any country/region, the '+' key
VK_OEM_COMMA = $BC; // For any country/region, the ',' key VK_OEM_COMMA = $BC; // For any country/region, the ',' key
VK_OEM_MINUS = $BD; // For any country/region, the '-' key VK_OEM_MINUS = $BD; // For any country/region, the '-' key
VK_OEM_PERIOD = $BE; // For any country/region, the '.' key VK_OEM_PERIOD = $BE; // For any country/region, the '.' key
VK_OEM_2 = $BF; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_2 = $BF; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the '/?' key // For the US standard keyboard, the '/?' key
VK_OEM_3 = $C0; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_3 = $C0; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the '`~' key // For the US standard keyboard, the '`~' key
// $C1-$D7 Reserved // $C1-$D7 Reserved
// $D8-$DA Unassigned // $D8-$DA Unassigned
VK_OEM_4 = $DB; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_4 = $DB; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the '[{' key // For the US standard keyboard, the '[{' key
VK_OEM_5 = $DC; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_5 = $DC; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the '\|' key // For the US standard keyboard, the '\|' key
VK_OEM_6 = $DD; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_6 = $DD; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the ']}' key // For the US standard keyboard, the ']}' key
VK_OEM_7 = $DE; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_7 = $DE; // Used for miscellaneous characters; it can vary by keyboard.
// For the US standard keyboard, the 'single-quote/double-quote' key // For the US standard keyboard, the 'single-quote/double-quote' key
VK_OEM_8 = $DF; // Used for miscellaneous characters; it can vary by keyboard. VK_OEM_8 = $DF; // Used for miscellaneous characters; it can vary by keyboard.
// $E0 Reserved // $E0 Reserved
// $E1 OEM specific // $E1 OEM specific
VK_OEM_102 = $E2; // Either the angle bracket key or the backslash key on the RT 102-key keyboard VK_OEM_102 = $E2; // Either the angle bracket key or the backslash key on the RT 102-key keyboard
// $E3-$E4 OEM specific // $E3-$E4 OEM specific
VK_PROCESSKEY = $E7; // IME Process key VK_PROCESSKEY = $E7; // IME Process key
// $E8 Unassigned // $E8 Unassigned
// $E9-$F5 OEM specific // $E9-$F5 OEM specific
VK_ATTN = $F6; VK_ATTN = $F6;
VK_CRSEL = $F7; VK_CRSEL = $F7;
VK_EXSEL = $F8; VK_EXSEL = $F8;
@ -487,7 +500,7 @@ PM_Remove = 1;
VK_NONAME = $FC; VK_NONAME = $FC;
VK_PA1 = $FD; VK_PA1 = $FD;
VK_OEM_CLEAR = $FE; VK_OEM_CLEAR = $FE;
// all other keys with no virtual key code are mapped to // all other keys with no virtual key code are mapped to
// VK_IRREGULAR + KeyCode // VK_IRREGULAR + KeyCode
// MWE: Obsolete // MWE: Obsolete
@ -660,7 +673,7 @@ const
SIZEFULLSCREEN = Size_Maximized; SIZEFULLSCREEN = Size_Maximized;
SIZEZOOMSHOW = Size_MaxShow; SIZEZOOMSHOW = Size_MaxShow;
SIZEZOOMHIDE = Size_MaxHide; SIZEZOOMHIDE = Size_MaxHide;
{ WMMove Message Constants } { WMMove Message Constants }
Move_Default = 0; Move_Default = 0;
Move_SourceIsInterface = 128; // this is flag. Can be combined with the above Move_SourceIsInterface = 128; // this is flag. Can be combined with the above
@ -789,7 +802,7 @@ type
end; end;
TDrawItemStruct = tagDrawItemStruct; TDrawItemStruct = tagDrawItemStruct;
DrawItemStruct = tagDrawItemStruct; DrawItemStruct = tagDrawItemStruct;
TOwnerDrawStateType = ( TOwnerDrawStateType = (
odSelected, odGrayed, odDisabled, odChecked, odSelected, odGrayed, odDisabled, odChecked,
@ -1397,8 +1410,8 @@ const
//============================================== //==============================================
BI_RGB = 0; BI_RGB = 0;
BI_BITFIELDS = 3; BI_BITFIELDS = 3;
HORZSIZE = 4; { Horizontal size in millimeters } HORZSIZE = 4; { Horizontal size in millimeters }
VERTSIZE = 6; { Vertical size in millimeters } VERTSIZE = 6; { Vertical size in millimeters }
HORZRES = 8; { Horizontal width in pixels } HORZRES = 8; { Horizontal width in pixels }
@ -1423,19 +1436,19 @@ const
TA_BASELINE = $18; TA_BASELINE = $18;
TA_RTLREADING = $100; TA_RTLREADING = $100;
TA_MASK = (TA_BASELINE+TA_CENTER+TA_UPDATECP+TA_RTLREADING); TA_MASK = (TA_BASELINE+TA_CENTER+TA_UPDATECP+TA_RTLREADING);
{ PolyFill() Modes } { PolyFill() Modes }
ALTERNATE = 1; ALTERNATE = 1;
WINDING = 2; WINDING = 2;
POLYFILL_LAST = 2; POLYFILL_LAST = 2;
{ StretchBlt() Modes } { StretchBlt() Modes }
BLACKONWHITE = 1; BLACKONWHITE = 1;
WHITEONBLACK = 2; WHITEONBLACK = 2;
COLORONCOLOR = 3; COLORONCOLOR = 3;
HALFTONE = 4; HALFTONE = 4;
MAXSTRETCHBLTMODE = 4; MAXSTRETCHBLTMODE = 4;
{ constants for CreateDIBitmap } { constants for CreateDIBitmap }
CBM_INIT = 4; { initialize bitmap } CBM_INIT = 4; { initialize bitmap }
@ -1751,12 +1764,12 @@ type
type type
TClipboardFormat = cardinal; TClipboardFormat = cardinal;
PClipboardFormat = ^TClipboardFormat; PClipboardFormat = ^TClipboardFormat;
TClipboardRequestEvent = procedure(const RequestedFormatID: TClipboardFormat; TClipboardRequestEvent = procedure(const RequestedFormatID: TClipboardFormat;
Data: TStream) of object; Data: TStream) of object;
TClipboardType = (ctPrimarySelection, ctSecondarySelection, ctClipboard); TClipboardType = (ctPrimarySelection, ctSecondarySelection, ctClipboard);
const const
ClipboardTypeName : array[TClipboardType] of string = ( ClipboardTypeName : array[TClipboardType] of string = (
'primary selection', 'secondary selection', 'clipboard' 'primary selection', 'secondary selection', 'clipboard'
@ -1864,6 +1877,9 @@ end.
{ {
$Log$ $Log$
Revision 1.45 2003/10/23 16:15:30 micha
compatibility with new 1.1
Revision 1.44 2003/10/16 23:54:27 marc Revision 1.44 2003/10/16 23:54:27 marc
Implemented new gtk keyevent handling Implemented new gtk keyevent handling

42
lcl/lmessages.pp
View File

@ -29,7 +29,13 @@ unit lMessages;
interface interface
uses Classes, SysUtils, vclGlobals, LCLType, GraphType; uses Classes, SysUtils, vclGlobals, LCLType, GraphType
{$ifdef win32}
{$ifndef ver1_0}
,messages
{$endif ver1_0}
{$endif win32}
;
const const
//------------- //-------------
@ -388,11 +394,15 @@ type
Result : LongInt; Result : LongInt;
end; end;
{$if defined(ver1_0) or not(defined(win32))}
TLMNoParams = record TLMNoParams = record
Msg: Cardinal; Msg: Cardinal;
Unused: array[0..3] of Word; Unused: array[0..3] of Word;
Result: Longint; Result: Longint;
end; end;
{$else}
TLMNoParams = TWMNoParams;
{$endif}
TLMScreenInit = record TLMScreenInit = record
PixelsPerInchX : Integer; PixelsPerInchX : Integer;
@ -400,6 +410,7 @@ type
ColorDepth : Integer; ColorDepth : Integer;
end; end;
{$if defined(ver1_0) or not(defined(win32))}
TLMSETCURSOR = record TLMSETCURSOR = record
Msg : Cardinal; Msg : Cardinal;
CursorWnd : HWND; CursorWnd : HWND;
@ -407,6 +418,9 @@ type
MouseMsg : Word; MouseMsg : Word;
Result : Longint; Result : Longint;
end; end;
{$else}
TLMSetCursor = TWMSetCursor;
{$endif}
PLMScreenInit = ^TLMScreenInit; PLMScreenInit = ^TLMScreenInit;
@ -486,7 +500,6 @@ type
TLMSysKeyUp = TLMKey; TLMSysKeyUp = TLMKey;
TLMMouse = packed record TLMMouse = packed record
Msg : Cardinal; Msg : Cardinal;
Keys : LongInt; Keys : LongInt;
@ -733,6 +746,7 @@ type
PixColor : TGraphicsColor; PixColor : TGraphicsColor;
end; end;
{$if defined(ver1_0) or not(defined(win32))}
TLMSize = packed record TLMSize = packed record
Msg: Cardinal; Msg: Cardinal;
SizeType: LongInt; // see LCLType.pp (e.g. Size_Restored) SizeType: LongInt; // see LCLType.pp (e.g. Size_Restored)
@ -740,12 +754,16 @@ type
Height : Word; Height : Word;
Result : LongInt; Result : LongInt;
End; End;
{$else}
TLMSize = TWMSize;
{$endif}
TLMNoPara = packed record TLMNoPara = packed record
Msg : Cardinal; Msg : Cardinal;
end; end;
PLMessage = ^TLMessage; PLMessage = ^TLMessage;
{$if defined(ver1_0) or not(defined(win32))}
TLMessage = packed record TLMessage = packed record
Msg : Cardinal; Msg : Cardinal;
case Integer of case Integer of
@ -761,10 +779,14 @@ type
ResultLo: Word; ResultLo: Word;
ResultHi: Word); ResultHi: Word);
end; end;
{$else}
TLMessage = TMessage;
{$endif}
TLMEnter = TLMNoPara; TLMEnter = TLMNoPara;
TLMExit = TLMNoPara; TLMExit = TLMNoPara;
{$if defined(ver1_0) or not(defined(win32))}
TLMScroll = record TLMScroll = record
Msg : Cardinal; Msg : Cardinal;
ScrollCode : SmallInt; // SB_xxx ScrollCode : SmallInt; // SB_xxx
@ -775,20 +797,33 @@ type
TLMHScroll = TLMScroll; TLMHScroll = TLMScroll;
TLMVScroll = TLMScroll; TLMVScroll = TLMScroll;
{$else}
TLMScroll = TWMScroll;
TLMHScroll = TWMScroll;
TLMVScroll = TWMScroll;
{$endif}
{$if defined(ver1_0) or not(defined(win32))}
TLMShowWindow = record TLMShowWindow = record
Msg: Cardinal; Msg: Cardinal;
Show: LongBool; Show: LongBool;
Status: Longint; Status: Longint;
Result: Longint; Result: Longint;
end; end;
{$else}
TLMShowWindow = TWMShowWindow;
{$endif}
{$if defined(ver1_0) or not(defined(win32))}
TLMKILLFOCUS = packed Record TLMKILLFOCUS = packed Record
Msg : Cardinal; Msg : Cardinal;
FocusedWnd: HWND; FocusedWnd: HWND;
UnUsed : LongInt; UnUsed : LongInt;
Result : LongInt; Result : LongInt;
End; End;
{$else}
TLMKillFocus = TWMKillFocus;
{$endif}
TLMNCHITTEST = packed record TLMNCHITTEST = packed record
Msg : cardinal; Msg : cardinal;
@ -1057,6 +1092,9 @@ end.
{ {
$Log$ $Log$
Revision 1.55 2003/10/23 16:15:30 micha
compatibility with new 1.1
Revision 1.54 2003/10/16 23:54:27 marc Revision 1.54 2003/10/16 23:54:27 marc
Implemented new gtk keyevent handling Implemented new gtk keyevent handling