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

lcl: TApplicationProperties:

Browse Source 
- set default values for most of properties (where it has sense)
  - add ShowButtonGlyphs property
  - minor formatting

git-svn-id: trunk@19946 -
This commit is contained in:
paul 2009-05-13 01:23:16 +00:00
parent 068b9fb3ef
commit ac4b855749
3 changed files with 90 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
lcl/forms.pp
View File

@ -1311,10 +1311,18 @@ type
property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy; property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
property ShowButtonGlyphs: TShowButtonGlyphs read FShowButtonGlyphs write SetShowButtonGlyphs default sbgAlways; property ShowButtonGlyphs: TShowButtonGlyphs read FShowButtonGlyphs write SetShowButtonGlyphs default sbgAlways;
property ShowHint: Boolean read FShowHint write SetShowHint; property ShowHint: Boolean read FShowHint write SetShowHint;
property ShowMainForm: Boolean read FShowMainForm write FShowMainForm default true; property ShowMainForm: Boolean read FShowMainForm write FShowMainForm default True;
property Title: String read GetTitle write SetTitle; property Title: String read GetTitle write SetTitle;
end; end;
const
DefHintColor = clInfoBk; // default hint window color
DefHintPause = 500; // default pause before hint window displays (ms)
DefHintShortPause = 0; // default reshow pause
DefHintHidePause = 5*DefHintPause; // default pause before hint is hidden (ms)
DefHintHidePausePerChar = 200; // added to DefHintHidePause (ms)
type
{ TApplicationProperties } { TApplicationProperties }
TApplicationProperties = class(TLCLComponent) TApplicationProperties = class(TLCLComponent)
@ -1328,6 +1336,7 @@ type
FHintShortCuts: Boolean; FHintShortCuts: Boolean;
FHintShortPause: Integer; FHintShortPause: Integer;
FOnDropFiles: TDropFilesEvent; FOnDropFiles: TDropFilesEvent;
FShowButtonGlyphs: TShowButtonGlyphs;
FShowHint: Boolean; FShowHint: Boolean;
FShowMainForm: Boolean; FShowMainForm: Boolean;
FTitle: String; FTitle: String;
@ -1343,46 +1352,48 @@ type
FOnQueryEndSession : TQueryEndSessionEvent; FOnQueryEndSession : TQueryEndSessionEvent;
FOnMinimize : TNotifyEvent; FOnMinimize : TNotifyEvent;
FOnRestore : TNotifyEvent; FOnRestore : TNotifyEvent;
procedure SetShowMainForm(const AValue: Boolean);
protected protected
procedure SetCaptureExceptions(Const AValue : boolean); procedure SetCaptureExceptions(const AValue : boolean);
procedure SetHelpFile(Const AValue : string); procedure SetHelpFile(const AValue : string);
procedure SetHint(Const AValue : string); procedure SetHint(const AValue : string);
procedure SetHintColor(Const AValue : TColor); procedure SetHintColor(const AValue : TColor);
procedure SetHintHidePause(Const AValue : Integer); procedure SetHintHidePause(const AValue : Integer);
procedure SetHintPause(Const AValue : Integer); procedure SetHintPause(const AValue : Integer);
procedure SetHintShortCuts(Const AValue : Boolean); procedure SetHintShortCuts(const AValue : Boolean);
procedure SetHintShortPause(Const AValue : Integer); procedure SetHintShortPause(const AValue : Integer);
procedure SetShowHint(Const AValue : Boolean); procedure SetShowButtonGlyphs(const AValue: TShowButtonGlyphs);
procedure SetTitle(Const AValue : String); procedure SetShowHint(const AValue : Boolean);
procedure SetShowMainForm(const AValue: Boolean);
procedure SetTitle(const AValue : String);
procedure SetOnException(Const AValue : TExceptionEvent); procedure SetOnException(const AValue : TExceptionEvent);
procedure SetOnIdle(Const AValue : TIdleEvent); procedure SetOnIdle(const AValue : TIdleEvent);
procedure SetOnIdleEnd(Const AValue : TNotifyEvent); procedure SetOnIdleEnd(const AValue : TNotifyEvent);
procedure SetOnEndSession(Const AValue : TNotifyEvent); procedure SetOnEndSession(const AValue : TNotifyEvent);
procedure SetOnQueryEndSession(Const AValue : TQueryEndSessionEvent); procedure SetOnQueryEndSession(const AValue : TQueryEndSessionEvent);
procedure SetOnMinimize(Const AValue : TNotifyEvent); procedure SetOnMinimize(const AValue : TNotifyEvent);
procedure SetOnRestore(Const AValue : TNotifyEvent); procedure SetOnRestore(const AValue : TNotifyEvent);
procedure SetOnDropFiles(const AValue: TDropFilesEvent); procedure SetOnDropFiles(const AValue: TDropFilesEvent);
procedure SetOnHelp(Const AValue : THelpEvent); procedure SetOnHelp(const AValue : THelpEvent);
procedure SetOnHint(Const AValue : TNotifyEvent); procedure SetOnHint(const AValue : TNotifyEvent);
procedure SetOnShowHint(Const AValue : TShowHintEvent); procedure SetOnShowHint(const AValue : TShowHintEvent);
procedure SetOnUserInput(Const AValue : TOnUserInputEvent); procedure SetOnUserInput(const AValue : TOnUserInputEvent);
public public
constructor Create(AOwner: TComponent); Override; constructor Create(AOwner: TComponent); Override;
destructor Destroy; override; destructor Destroy; override;
published published
property CaptureExceptions: boolean read FCaptureExceptions property CaptureExceptions: boolean read FCaptureExceptions
write SetCaptureExceptions; write SetCaptureExceptions default True;
property HelpFile: string read FHelpFile write SetHelpFile; property HelpFile: string read FHelpFile write SetHelpFile;
property Hint: string read FHint write SetHint; property Hint: string read FHint write SetHint;
property HintColor: TColor read FHintColor write SetHintColor; property HintColor: TColor read FHintColor write SetHintColor default DefHintColor;
property HintHidePause: Integer read FHintHidePause write SetHintHidePause; property HintHidePause: Integer read FHintHidePause write SetHintHidePause default DefHintHidePause;
property HintPause: Integer read FHintPause write SetHintPause; property HintPause: Integer read FHintPause write SetHintPause default DefHintPause;
property HintShortCuts: Boolean read FHintShortCuts write SetHintShortCuts; property HintShortCuts: Boolean read FHintShortCuts write SetHintShortCuts default True;
property HintShortPause: Integer read FHintShortPause write SetHintShortPause; property HintShortPause: Integer read FHintShortPause write SetHintShortPause default DefHintShortPause;
property ShowHint: Boolean read FShowHint write SetShowHint; property ShowButtonGlyphs: TShowButtonGlyphs read FShowButtonGlyphs write SetShowButtonGlyphs default sbgAlways;
property ShowMainForm: Boolean read FShowMainForm write SetShowMainForm default true; property ShowHint: Boolean read FShowHint write SetShowHint default True;
property ShowMainForm: Boolean read FShowMainForm write SetShowMainForm default True;
property Title: String read FTitle write SetTitle; property Title: String read FTitle write SetTitle;
property OnException: TExceptionEvent read FOnException write SetOnException; property OnException: TExceptionEvent read FOnException write SetOnException;

7
lcl/include/application.inc
View File

@ -19,13 +19,6 @@
{ $define DebugHintWindow} { $define DebugHintWindow}
const
DefHintColor = clInfoBk; { default hint window color }
DefHintPause = 500; { default pause before hint window displays (ms) }
DefHintShortPause = 0; { default reshow pause }
DefHintHidePause = 5*DefHintPause; { default pause before hint is hidden (ms) }
DefHintHidePausePerChar = 200; { added to DefHintHidePause (ms) }
function FindApplicationComponent(const ComponentName: string): TComponent; function FindApplicationComponent(const ComponentName: string): TComponent;
begin begin
if Application.FindGlobalComponentEnabled then if Application.FindGlobalComponentEnabled then

83
lcl/include/applicationproperties.inc
View File

@ -17,75 +17,75 @@
***************************************************************************** *****************************************************************************
} }
procedure TApplicationProperties.SetCaptureExceptions(Const AValue : boolean); procedure TApplicationProperties.SetCaptureExceptions(const AValue : boolean);
begin begin
FCaptureExceptions := AValue; FCaptureExceptions := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.CaptureExceptions := AValue; Application.CaptureExceptions := AValue;
end; end;
procedure TApplicationProperties.SetHelpFile(Const AValue : string); procedure TApplicationProperties.SetHelpFile(const AValue : string);
begin begin
FHelpFile := AValue; FHelpFile := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.HelpFile := AValue; Application.HelpFile := AValue;
end; end;
procedure TApplicationProperties.SetHint(Const AValue : string); procedure TApplicationProperties.SetHint(const AValue : string);
begin begin
FHint := AValue; FHint := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.Hint := AValue; Application.Hint := AValue;
end; end;
procedure TApplicationProperties.SetHintColor(Const AValue : TColor); procedure TApplicationProperties.SetHintColor(const AValue : TColor);
begin begin
FHintColor := AValue; FHintColor := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.HintColor := AValue; Application.HintColor := AValue;
end; end;
procedure TApplicationProperties.SetHintHidePause(Const AValue : Integer); procedure TApplicationProperties.SetHintHidePause(const AValue : Integer);
begin begin
FHintHidePause := AValue; FHintHidePause := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.HintHidePause := AValue; Application.HintHidePause := AValue;
end; end;
procedure TApplicationProperties.SetHintPause(Const AValue : Integer); procedure TApplicationProperties.SetHintPause(const AValue : Integer);
begin begin
FHintPause := AValue; FHintPause := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.HintPause := AValue; Application.HintPause := AValue;
end; end;
procedure TApplicationProperties.SetHintShortCuts(Const AValue : Boolean); procedure TApplicationProperties.SetHintShortCuts(const AValue : Boolean);
begin begin
FHintShortCuts := AValue; FHintShortCuts := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.HintShortCuts := AValue; Application.HintShortCuts := AValue;
end; end;
procedure TApplicationProperties.SetHintShortPause(Const AValue : Integer); procedure TApplicationProperties.SetHintShortPause(const AValue : Integer);
begin begin
FHintShortPause := AValue; FHintShortPause := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.HintShortPause := AValue; Application.HintShortPause := AValue;
end; end;
procedure TApplicationProperties.SetShowHint(Const AValue : Boolean); procedure TApplicationProperties.SetShowHint(const AValue : Boolean);
begin begin
FShowHint := AValue; FShowHint := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.ShowHint := AValue; Application.ShowHint := AValue;
end; end;
@ -97,15 +97,23 @@ begin
Application.ShowMainForm := AValue; Application.ShowMainForm := AValue;
end; end;
procedure TApplicationProperties.SetTitle(Const AValue : String); procedure TApplicationProperties.SetShowButtonGlyphs(const AValue: TShowButtonGlyphs);
begin
FShowButtonGlyphs := AValue;
if not (csDesigning in ComponentState) then
Application.ShowButtonGlyphs := AValue;
end;
procedure TApplicationProperties.SetTitle(const AValue : String);
begin begin
FTitle := AValue; FTitle := AValue;
If not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
Application.Title := AValue; Application.Title := AValue;
end; end;
procedure TApplicationProperties.SetOnException(Const AValue : TExceptionEvent); procedure TApplicationProperties.SetOnException(const AValue : TExceptionEvent);
begin begin
if (TMethod(FOnException).Data=TMethod(AValue).Data) if (TMethod(FOnException).Data=TMethod(AValue).Data)
and (TMethod(FOnException).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnException).Code=TMethod(AValue).Code) then exit;
@ -118,7 +126,7 @@ begin
Application.AddOnExceptionHandler(FOnException); Application.AddOnExceptionHandler(FOnException);
end; end;
procedure TApplicationProperties.SetOnIdle(Const AValue : TIdleEvent); procedure TApplicationProperties.SetOnIdle(const AValue : TIdleEvent);
begin begin
if (TMethod(FOnIdle).Data=TMethod(AValue).Data) if (TMethod(FOnIdle).Data=TMethod(AValue).Data)
and (TMethod(FOnIdle).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnIdle).Code=TMethod(AValue).Code) then exit;
@ -131,7 +139,7 @@ begin
Application.AddOnIdleHandler(FOnIdle); Application.AddOnIdleHandler(FOnIdle);
end; end;
procedure TApplicationProperties.SetOnIdleEnd(Const AValue : TNotifyEvent); procedure TApplicationProperties.SetOnIdleEnd(const AValue : TNotifyEvent);
begin begin
if (TMethod(FOnIdleEnd).Data=TMethod(AValue).Data) if (TMethod(FOnIdleEnd).Data=TMethod(AValue).Data)
and (TMethod(FOnIdleEnd).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnIdleEnd).Code=TMethod(AValue).Code) then exit;
@ -145,7 +153,7 @@ begin
end; end;
procedure TApplicationProperties.SetOnEndSession(Const AValue : TNotifyEvent); procedure TApplicationProperties.SetOnEndSession(const AValue : TNotifyEvent);
begin begin
if (TMethod(FOnEndSession).Data=TMethod(AValue).Data) if (TMethod(FOnEndSession).Data=TMethod(AValue).Data)
and (TMethod(FOnEndSession).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnEndSession).Code=TMethod(AValue).Code) then exit;
@ -159,7 +167,7 @@ begin
end; end;
procedure TApplicationProperties.SetOnQueryEndSession(Const AValue : TQueryEndSessionEvent); procedure TApplicationProperties.SetOnQueryEndSession(const AValue : TQueryEndSessionEvent);
begin begin
if (TMethod(FOnQueryEndSession).Data=TMethod(AValue).Data) if (TMethod(FOnQueryEndSession).Data=TMethod(AValue).Data)
and (TMethod(FOnQueryEndSession).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnQueryEndSession).Code=TMethod(AValue).Code) then exit;
@ -211,7 +219,7 @@ begin
Application.AddOnDropFilesHandler(FOnDropFiles); Application.AddOnDropFilesHandler(FOnDropFiles);
end; end;
procedure TApplicationProperties.SetOnHelp(Const AValue : THelpEvent); procedure TApplicationProperties.SetOnHelp(const AValue : THelpEvent);
begin begin
if (TMethod(FOnHelp).Data=TMethod(AValue).Data) if (TMethod(FOnHelp).Data=TMethod(AValue).Data)
and (TMethod(FOnHelp).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnHelp).Code=TMethod(AValue).Code) then exit;
@ -224,7 +232,7 @@ begin
Application.AddOnHelpHandler(FOnHelp); Application.AddOnHelpHandler(FOnHelp);
end; end;
procedure TApplicationProperties.SetOnHint(Const AValue : TNotifyEvent); procedure TApplicationProperties.SetOnHint(const AValue : TNotifyEvent);
begin begin
if (TMethod(FOnHint).Data=TMethod(AValue).Data) if (TMethod(FOnHint).Data=TMethod(AValue).Data)
and (TMethod(FOnHint).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnHint).Code=TMethod(AValue).Code) then exit;
@ -237,7 +245,7 @@ begin
Application.AddOnHintHandler(FOnHint); Application.AddOnHintHandler(FOnHint);
end; end;
procedure TApplicationProperties.SetOnShowHint(Const AValue : TShowHintEvent); procedure TApplicationProperties.SetOnShowHint(const AValue : TShowHintEvent);
begin begin
if (TMethod(FOnShowHint).Data=TMethod(AValue).Data) if (TMethod(FOnShowHint).Data=TMethod(AValue).Data)
and (TMethod(FOnShowHint).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnShowHint).Code=TMethod(AValue).Code) then exit;
@ -250,7 +258,7 @@ begin
Application.AddOnShowHintHandler(FOnShowHint); Application.AddOnShowHintHandler(FOnShowHint);
end; end;
procedure TApplicationProperties.SetOnUserInput(Const AValue : TOnUserInputEvent); procedure TApplicationProperties.SetOnUserInput(const AValue : TOnUserInputEvent);
begin begin
if (TMethod(FOnUserInput).Data=TMethod(AValue).Data) if (TMethod(FOnUserInput).Data=TMethod(AValue).Data)
and (TMethod(FOnUserInput).Code=TMethod(AValue).Code) then exit; and (TMethod(FOnUserInput).Code=TMethod(AValue).Code) then exit;
@ -267,16 +275,19 @@ constructor TApplicationProperties.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
if (csDesigning in ComponentState) then begin if (csDesigning in ComponentState) then
FCaptureExceptions:=true; begin
FCaptureExceptions := True;
FHintColor := DefHintColor; FHintColor := DefHintColor;
FHintPause := DefHintPause; FHintPause := DefHintPause;
FHintShortCuts := True; FHintShortCuts := True;
FHintShortPause := DefHintShortPause; FHintShortPause := DefHintShortPause;
FHintHidePause := DefHintHidePause; FHintHidePause := DefHintHidePause;
FShowHint := true; FShowButtonGlyphs := sbgAlways;
FShowHint := True;
end end
else begin else
begin
FCaptureExceptions := Application.CaptureExceptions; FCaptureExceptions := Application.CaptureExceptions;
FHelpFile := Application.HelpFile; FHelpFile := Application.HelpFile;
FHint := Application.Hint; FHint := Application.Hint;
@ -285,10 +296,11 @@ begin
FHintPause := Application.HintPause; FHintPause := Application.HintPause;
FHintShortCuts := Application.HintShortCuts; FHintShortCuts := Application.HintShortCuts;
FHintShortPause := Application.HintShortPause; FHintShortPause := Application.HintShortPause;
FShowButtonGlyphs := Application.ShowButtonGlyphs;
FShowHint := Application.ShowHint; FShowHint := Application.ShowHint;
FTitle := Application.Title; FTitle := Application.Title;
end; end;
FShowMainForm := true; FShowMainForm := True;
FOnException := nil; FOnException := nil;
FOnIdle := nil; FOnIdle := nil;
@ -303,7 +315,8 @@ end;
destructor TApplicationProperties.Destroy; destructor TApplicationProperties.Destroy;
begin begin
If not (csDesigning in ComponentState) then begin if not (csDesigning in ComponentState) then
begin
Application.RemoveOnExceptionHandler(FOnException); Application.RemoveOnExceptionHandler(FOnException);
Application.RemoveOnIdleHandler(FOnIdle); Application.RemoveOnIdleHandler(FOnIdle);
Application.RemoveOnIdleEndHandler(FOnIdleEnd); Application.RemoveOnIdleEndHandler(FOnIdleEnd);