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

fixed transient windows

Browse Source 
git-svn-id: trunk@3931 -
This commit is contained in:
mattias 2003-03-15 09:42:49 +00:00
parent 197e216a0d
commit 87fe34c5dc
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dialogs.pp
View File

@ -83,6 +83,7 @@ type
property Title : string read FTitle write FTitle;
property UserChoice : integer read FUserChoice write FUserChoice;
procedure Close;
function HandleAllocated: boolean;
published
property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnCanClose: TCloseQueryEvent read FOnCanClose write FOnCanClose;
@ -333,6 +334,9 @@ end.
{ =============================================================================
$Log$
Revision 1.27 2003/03/15 09:42:49 mattias
fixed transient windows
Revision 1.26 2002/10/25 15:27:02 lazarus
AJ: Moved form contents creation to gtkproc for code
reuse between GNOME and GTK, and to make GNOME MDI

4
lcl/forms.pp
View File

@ -505,14 +505,14 @@ type
property FormCount: Integer read GetFormCount;
property Forms[Index: Integer]: TForm read GetForms;
property Fonts : TStrings read GetFonts;
property PixelsPerInch : integer read FPixelsPerInch;
property HintFont : TFont read FHintFont;
property Height : Integer read Getheight;
property HintFont : TFont read FHintFont;
property Width : Integer read GetWidth;
property OnActiveControlChange: TNotifyEvent
read FOnActiveControlChange write FOnActiveControlChange;
property OnActiveFormChange: TNotifyEvent
read FOnActiveFormChange write FOnActiveFormChange;
property PixelsPerInch : integer read FPixelsPerInch;
end;