summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2012-07-31 16:19:31 +0100
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2012-07-31 16:19:31 +0100
commit547b5a8be8fb313ec03bbe40004507a810d3ead1 (patch)
treecfb7e7e5516109044c5459090a4d268844b29d90
parent2d749e76db573c6c5e178c348e0cc6a9776b485d (diff)
downloadfpGUI-547b5a8be8fb313ec03bbe40004507a810d3ead1.tar.xz
filedialog: widgets were not perfectly spaced in the horizontal area.
* Increased the width of most widgets by 2 pixels. Now left and right border spacing is equal. * Increased the grid height by 2 pixels, just to give grid content some extra space.
-rw-r--r--src/gui/fpg_dialogs.pas12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas
index b66f740f..baa2bb92 100644
--- a/src/gui/fpg_dialogs.pas
+++ b/src/gui/fpg_dialogs.pas
@@ -1083,7 +1083,7 @@ begin
grid := TfpgFileGrid.Create(self);
with grid do
begin
- SetPosition(8, 44, 622, 200);
+ SetPosition(8, 44, 624, 202);
Anchors := [anLeft, anRight, anTop, anBottom];
Options := [go_AlternativeColor, go_SmoothScroll];
OnRowChange := @ListChanged;
@@ -1168,7 +1168,7 @@ begin
with pnlFileInfo do
begin
Name := 'pnlFileInfo';
- SetPosition(8, 253, 622, 25);
+ SetPosition(8, 253, 624, 25);
Anchors := [anLeft, anRight, anBottom];
Alignment := taLeftJustify;
Margin := 4;
@@ -1179,7 +1179,7 @@ begin
edFilename := TfpgEdit.Create(self);
with edFilename do
begin
- SetPosition(8, 301, 622, 22);
+ SetPosition(8, 301, 624, 22);
Anchors := [anLeft, anRight, anBottom];
Text := '';
FontDesc := '#Edit1';
@@ -1192,7 +1192,7 @@ begin
chlFilter := TfpgComboBox.Create(self);
with chlFilter do
begin
- SetPosition(8, 345, 622, 22);
+ SetPosition(8, 345, 624, 22);
Anchors := [anLeft, anRight, anBottom];
FontDesc := '#List';
OnChange := @FilterChange;
@@ -1201,7 +1201,7 @@ begin
lb1 := TfpgLabel.Create(self);
with lb1 do
begin
- SetPosition(8, 283, 622, 16);
+ SetPosition(8, 283, 624, 16);
Anchors := [anLeft, anBottom];
Text := fpgAddColon(rsFileName);
FontDesc := '#Label1';
@@ -1210,7 +1210,7 @@ begin
lb2 := TfpgLabel.Create(self);
with lb2 do
begin
- SetPosition(8, 327, 622, 16);
+ SetPosition(8, 327, 624, 16);
Anchors := [anLeft, anBottom];
Text := fpgAddColon(rsFileType);
FontDesc := '#Label1';