paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 03:40:53 +01: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 Title : string read FTitle write FTitle;
property UserChoice : integer read FUserChoice write FUserChoice; property UserChoice : integer read FUserChoice write FUserChoice;
procedure Close; procedure Close;
function HandleAllocated: boolean;
published published
property OnClose : TNotifyEvent read FOnClose write FOnClose; property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnCanClose: TCloseQueryEvent read FOnCanClose write FOnCanClose; property OnCanClose: TCloseQueryEvent read FOnCanClose write FOnCanClose;
@ -333,6 +334,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.27 2003/03/15 09:42:49 mattias
fixed transient windows
Revision 1.26 2002/10/25 15:27:02 lazarus Revision 1.26 2002/10/25 15:27:02 lazarus
AJ: Moved form contents creation to gtkproc for code AJ: Moved form contents creation to gtkproc for code
reuse between GNOME and GTK, and to make GNOME MDI 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 FormCount: Integer read GetFormCount;
property Forms[Index: Integer]: TForm read GetForms; property Forms[Index: Integer]: TForm read GetForms;
property Fonts : TStrings read GetFonts; property Fonts : TStrings read GetFonts;
property PixelsPerInch : integer read FPixelsPerInch;
property HintFont : TFont read FHintFont;
property Height : Integer read Getheight; property Height : Integer read Getheight;
property HintFont : TFont read FHintFont;
property Width : Integer read GetWidth; property Width : Integer read GetWidth;
property OnActiveControlChange: TNotifyEvent property OnActiveControlChange: TNotifyEvent
read FOnActiveControlChange write FOnActiveControlChange; read FOnActiveControlChange write FOnActiveControlChange;
property OnActiveFormChange: TNotifyEvent property OnActiveFormChange: TNotifyEvent
read FOnActiveFormChange write FOnActiveFormChange; read FOnActiveFormChange write FOnActiveFormChange;
property PixelsPerInch : integer read FPixelsPerInch;
end; end;