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

implemented TApplicationProperties.ShowMainForm (issue #882)

Browse Source 
git-svn-id: trunk@8498 -
This commit is contained in:
vincents 2006-01-11 12:37:27 +00:00
parent 9a8f046333
commit df9d19b381
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/forms.pp
View File

@ -1048,7 +1048,7 @@ type
property OnUserInput: TOnUserInputEvent read FOnUserInput write FOnUserInput;
property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
property ShowHint: Boolean read FShowHint write SetShowHint;
property ShowMainForm: Boolean read FShowMainForm write FShowMainForm;
property ShowMainForm: Boolean read FShowMainForm write FShowMainForm default true;
property Title: String read GetTitle write SetTitle;
end;
@ -1066,6 +1066,7 @@ type
FHintShortCuts: Boolean;
FHintShortPause: Integer;
FShowHint: Boolean;
FShowMainForm: Boolean;
FTitle: String;
FOnException: TExceptionEvent;
@ -1075,6 +1076,7 @@ type
FOnHint: TNotifyEvent;
FOnShowHint: TShowHintEvent;
FOnUserInput: TOnUserInputEvent;
procedure SetShowMainForm(const AValue: Boolean);
protected
Procedure SetCaptureExceptions(Const AValue : boolean);
Procedure SetHelpFile(Const AValue : string);
@ -1107,6 +1109,7 @@ type
property HintShortCuts: Boolean read FHintShortCuts write SetHintShortCuts;
property HintShortPause: Integer read FHintShortPause write SetHintShortPause;
property ShowHint: Boolean read FShowHint write SetShowHint;
property ShowMainForm: Boolean read FShowMainForm write SetShowMainForm default true;
property Title: String read FTitle write SetTitle;
property OnException: TExceptionEvent read FOnException write SetOnException;

9
lcl/include/applicationproperties.inc
View File

@ -89,6 +89,14 @@ begin
Application.ShowHint := AValue;
end;
procedure TApplicationProperties.SetShowMainForm(const AValue: Boolean);
begin
FShowMainForm:=AValue;
if not (csDesigning in ComponentState) then
Application.ShowMainForm := AValue;
end;
Procedure TApplicationProperties.SetTitle(Const AValue : String);
begin
FTitle := AValue;
@ -178,6 +186,7 @@ begin
FShowHint := Application.ShowHint;
FTitle := Application.Title;
end;
FShowMainForm := true;
FOnIdle := nil;
FOnException := nil;