paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed typo

Browse Source 
git-svn-id: trunk@3604 -
This commit is contained in:
lazarus 2002-11-04 09:55:55 +00:00
parent 5494b07328
commit 35142e24f6
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/forms.pp
View File

@ -42,6 +42,9 @@ uses
ClipBrd;
type
TProcedure = procedure;
TProcedureOfObject = procedure of object;
// form position policies:
TPosition = (
poDesigned, // bounds from the designer
@ -222,7 +225,14 @@ type
TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
TCloseQueryEvent = procedure(Sender : TObject; var CanClose : boolean) of object;
TFormState = set of (fsCreating, fsVisible, fsShowing, fsModal, fsCreatedMDIChild);
TFormStateType = (
fsCreating,
fsVisible,
fsShowing,
fsModal,
fsCreatedMDIChild
);
TFormState = set of TFormStateType;
TModalResult = low(Integer)..high(Integer);
TCustomForm = class(TScrollingWinControl)
@ -283,7 +293,7 @@ type
procedure DoHide; dynamic;
procedure DoShow; dynamic;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
// Delphi needed GetClientRect for window specific things, LCL not
// Delphi needed GetClientRect for win32 specific things, LCL not
// Function GetClientRect : TRect ; Override;
procedure Notification(AComponent: TComponent; Operation : TOperation);override;
procedure PaintWindow(dc : Hdc); override;
@ -347,7 +357,7 @@ type
property ClientHandle: HWND read FClientHandle;
published
property PixelsPerInch : Longint read FDummyPPI write FDummyPPI stored False;
property ActiveCOntrol;
property ActiveControl;
property Align;
property AutoSize;
property BorderStyle;
@ -537,9 +547,6 @@ type
end;
TProcedure = procedure;
function KeysToShiftState(Keys:Word): TShiftState;
function KeyDataToShiftState(KeyData: Longint): TShiftState;