paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 13:39:25 +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; function DoExecute : boolean; virtual;
public public
FCompStyle : LongInt; FCompStyle : LongInt;
constructor Create (AOwner : TComponent); override; constructor Create(TheOwner: TComponent); override;
function Execute : boolean; virtual; function Execute: boolean; virtual;
property Handle : integer read FHandle write SetHandle; property Handle: integer read FHandle write SetHandle;
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; virtual; procedure Close; virtual;
procedure DoShow; virtual; procedure DoShow; virtual;
procedure DoClose; virtual; procedure DoClose; virtual;
@ -416,6 +416,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.49 2004/04/03 13:10:20 mattias
fixed TCalendarDialog.DialogTitle
Revision 1.48 2004/03/20 17:36:56 mattias Revision 1.48 2004/03/20 17:36:56 mattias
added IDEIntf package and component editors for MemDS added IDEIntf package and component editors for MemDS

45
lcl/extdlgs.pas
View File

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

9
lcl/include/commondialog.inc
View File

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