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

fixed TCalendarDialog.DialogTitle

Browse Source 
git-svn-id: trunk@5365 -
This commit is contained in:
mattias 2004-04-03 13:10:20 +00:00
parent 600f3b0126
commit 0b7e7ec113
3 changed files with 41 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/dialogs.pp
View File

@ -86,11 +86,11 @@ type
function DoExecute : boolean; virtual;
public
FCompStyle : LongInt;
constructor Create (AOwner : TComponent); override;
function Execute : boolean; virtual;
property Handle : integer read FHandle write SetHandle;
property Title : string read FTitle write FTitle;
property UserChoice : integer read FUserChoice write FUserChoice;
constructor Create(TheOwner: TComponent); override;
function Execute: boolean; virtual;
property Handle: integer read FHandle write SetHandle;
property Title: string read FTitle write FTitle;
property UserChoice: integer read FUserChoice write FUserChoice;
procedure Close; virtual;
procedure DoShow; virtual;
procedure DoClose; virtual;
@ -416,6 +416,9 @@ end.
{ =============================================================================
$Log$
Revision 1.49 2004/04/03 13:10:20 mattias
fixed TCalendarDialog.DialogTitle
Revision 1.48 2004/03/20 17:36:56 mattias
added IDEIntf package and component editors for MemDS

45
lcl/extdlgs.pas
View File

@ -219,25 +219,26 @@ Type
private
FDate: TDateTime;
FDayChanged: TNotifyEvent;
FDialogTitle: String;
FDisplaySettings: TDisplaySettings;
FHelpContext: THelpContext;
FMonthChanged: TNotifyEvent;
FYearChanged: TNotifyEvent;
Function TitleStored : Boolean;
function GetDialogTitle: String;
procedure SetDialogTitle(const AValue: String);
Function IsTitleStored: Boolean;
Public
Constructor Create(AOwner : TComponent); override;
Constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
Function Execute : Boolean; override;
Function CreateForm : TCalendarDialogForm; virtual;
Function Execute: Boolean; override;
Function CreateForm: TCalendarDialogForm; virtual;
Published
Property DialogTitle : String Read FDialogTitle Write FDialogTitle Stored TitleStored;
Property Date : TDateTime Read FDate Write FDate;
Property DisplaySettings : TDisplaySettings Read FDisplaySettings Write FDisplaySettings;
Property DialogTitle: String Read GetDialogTitle Write SetDialogTitle Stored IsTitleStored;
Property Date: TDateTime Read FDate Write FDate;
Property DisplaySettings: TDisplaySettings Read FDisplaySettings Write FDisplaySettings;
property HelpContext: THelpContext read FHelpContext write FHelpContext default 0;
property OnDayChanged : TNotifyEvent read FDayChanged write FDayChanged;
property OnMonthChanged : TNotifyEvent read FMonthChanged write FMonthChanged;
property OnYearChanged : TNotifyEvent read FYearChanged write FYearChanged;
property OnDayChanged: TNotifyEvent read FDayChanged write FDayChanged;
property OnMonthChanged: TNotifyEvent read FMonthChanged write FMonthChanged;
property OnYearChanged: TNotifyEvent read FYearChanged write FYearChanged;
end;
function CreateCalendarForm(AOwner: TComponent; AHelpContext: THelpContext): TCalendarDialogForm;
@ -1279,16 +1280,26 @@ end;
{ TCalendarDialog }
function TCalendarDialog.TitleStored: Boolean;
function TCalendarDialog.IsTitleStored: Boolean;
begin
Result:=FDialogTitle<>rsPickDate;
Result:=Title<>rsPickDate;
end;
function TCalendarDialog.GetDialogTitle: String;
begin
Result:=Title;
end;
procedure TCalendarDialog.SetDialogTitle(const AValue: String);
begin
Title:=AValue;
end;
constructor TCalendarDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FDate:=Sysutils.Date;
FDialogTitle:=rsPickDate;
Title:=rsPickDate;
end;
destructor TCalendarDialog.Destroy;
@ -1297,11 +1308,9 @@ begin
end;
function TCalendarDialog.Execute: Boolean;
Var
Dlg : TCalendarDialogForm;
D : TDateTime;
Dlg: TCalendarDialogForm;
D: TDateTime;
begin
Dlg:=CreateForm;
With Dlg do

9
lcl/include/commondialog.inc
View File

@ -24,12 +24,12 @@
Constructor for the class.
------------------------------------------------------------------------------}
constructor TCommonDialog.Create (AOwner : TComponent);
constructor TCommonDialog.Create (TheOwner: TComponent);
begin
inherited Create(AOwner);
inherited Create(TheOwner);
end;
function TCommonDialog.Execute : boolean;
function TCommonDialog.Execute: boolean;
begin
FUserChoice := mrNone;
CNSendMessage(LM_CREATE, Self, nil);
@ -98,6 +98,9 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2004/04/03 13:10:20 mattias
fixed TCalendarDialog.DialogTitle
Revision 1.12 2004/02/23 08:19:04 micha
revert intf split