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

added default and cancel button to calendar dialog

Browse Source 
git-svn-id: trunk@7836 -
This commit is contained in:
vincents 2005-09-26 13:57:17 +00:00
parent 49c2b27945
commit 0b932a761a
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extdlgs.pas
View File

@ -1220,6 +1220,7 @@ begin
ModalResult:=mrOK; ModalResult:=mrOK;
OnClick:=@GetNewDate; OnClick:=@GetNewDate;
Align:=alRight; Align:=alRight;
Default:=True;
end; end;
cancelButton:=TButton.Create(Self); cancelButton:=TButton.Create(Self);
@ -1231,6 +1232,7 @@ begin
Width:=DF.Canvas.TextWidth(CancelCaption)+2*dw;; Width:=DF.Canvas.TextWidth(CancelCaption)+2*dw;;
ModalResult:=mrCancel; ModalResult:=mrCancel;
Align:=alLeft; Align:=alLeft;
Cancel:=True;
end; end;
Result:=DF.ShowModal=mrOK; Result:=DF.ShowModal=mrOK;

1
lcl/lclproc.pas
View File

@ -861,7 +861,6 @@ begin
Append(DebugText^) Append(DebugText^)
else else
Rewrite(DebugText^); Rewrite(DebugText^);
writeln(DebugText^,'Created.');
end end
else begin else begin
if TextRec(Output).Mode=fmClosed then if TextRec(Output).Mode=fmClosed then