paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 14:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix inputdialog (issue #0016415)

Browse Source 
git-svn-id: trunk@25244 -
This commit is contained in:
paul 2010-05-08 01:43:47 +00:00
parent 9be9f2ea28
commit afc2ca3e2b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/inputdialog.inc
View File

@ -43,6 +43,7 @@ begin
begin
BorderStyle := bsDialog;
Caption := InputCaption;
Position := poScreenCenter;
Prompt := TLabel.Create(Form);
with Prompt do
begin
@ -51,11 +52,11 @@ begin
Align := alTop;
AutoSize := True;
end;
Position := poScreenCenter;
Edit := TEdit.Create(Form);
with Edit do
begin
Parent := Form;
Top := Prompt.Height;
Align := alTop;
BorderSpacing.Top := 3;
AMonitor := ActiveMonitor;
@ -79,6 +80,7 @@ begin
with TButtonPanel.Create(Form) do
begin
Top := Edit.Top + Edit.Height;
Parent := Form;
ShowBevel := False;
ShowButtons := [pbOK, pbCancel];