diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-03 23:15:53 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-05-03 23:15:53 +0200 |
| commit | eca9896a01dc91a06f47747e6dcf6ccccab9314e (patch) | |
| tree | 2507d4fcb09c67ff0cdec4949fbdcec8f37dd980 /prototypes/fpgui2/tests | |
| parent | 92cdf2e65004a9dee351443c9c5bcd13fe05842c (diff) | |
| download | fpGUI-eca9896a01dc91a06f47747e6dcf6ccccab9314e.tar.xz | |
changes to prevent text clipping in prototype demo
Diffstat (limited to 'prototypes/fpgui2/tests')
| -rw-r--r-- | prototypes/fpgui2/tests/themetest.lpr | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/prototypes/fpgui2/tests/themetest.lpr b/prototypes/fpgui2/tests/themetest.lpr index 60cb95f4..3a7a300b 100644 --- a/prototypes/fpgui2/tests/themetest.lpr +++ b/prototypes/fpgui2/tests/themetest.lpr @@ -615,7 +615,7 @@ var vista: TThemeButton; begin btnClose := TfpgButton.Create(self); - btnClose.Width := 75; + btnClose.Width := 80; btnClose.Left := Width - btnClose.Width - 6; btnClose.Top := Height - btnClose.Height - 6; btnClose.Text := 'Quit'; @@ -626,7 +626,8 @@ begin xpluna := TThemeButton.Create(self); xpluna.Left := 80; xpluna.Top := 45; - xpluna.Width := 75; + xpluna.Width := 85; + xpluna.Height := 28; xpluna.Text := 'XP Luna (-)'; xpluna.Masked := True; xpluna.OnClick := @ButtonClicked; @@ -634,7 +635,8 @@ begin xpsilver := TThemeButton.Create(self); xpsilver.Left := 230; xpsilver.Top := 45; - xpsilver.Width := 75; + xpsilver.Width := 85; + xpsilver.Height := 28; xpsilver.Text := 'XP Silver (+)'; bmp := LoadImage_BMP(SetDirSeparators('../../../images/themes/silver/button.bmp')); xpsilver.ThemeImage := bmp; @@ -652,8 +654,10 @@ begin vista.ThemeImage := bmp; styledbutton := TStyledButton.Create(self); - styledbutton.SetPosition(btnClose.Left-20, btnClose.Top-80, 75, 24); + styledbutton.SetPosition(btnClose.Left, btnClose.Top-80, 80, 24); // styledbutton.Default := True; + styledbutton.ImageName := 'stdimg.quit'; + styledbutton.ShowImage := True; styledbutton.Text := 'Styled'; end; |