diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-05-18 20:14:32 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-05-18 20:14:32 +0000 |
| commit | 36fc30e611da6008a0cb48bb65491dfe2f7d9f8d (patch) | |
| tree | 3a2c14474e59e857bca9a5cec14e6b06c0161394 /examples | |
| parent | 788ae16a47c2bd345ee1542b0bd6e4b2278258f6 (diff) | |
| download | fpGUI-36fc30e611da6008a0cb48bb65491dfe2f7d9f8d.tar.xz | |
* Removed the old Xlib Font support form fpGFX/X11
* Fixed the Xtf font support in fpGFX/X11 to use the UTF-8 Xtf functions instead of the UTF-16 functions.
* Fixed the GUI TFEdit by removing all usage of the WideString type
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/widgettest/widgettest.pas | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/examples/gui/widgettest/widgettest.pas b/examples/gui/widgettest/widgettest.pas index 704e1619..2435200e 100644 --- a/examples/gui/widgettest/widgettest.pas +++ b/examples/gui/widgettest/widgettest.pas @@ -666,7 +666,11 @@ end; procedure TEditForm.GrayCheckBox2Click(Sender: TObject); begin - Edit2.Enabled := not GrayCheckBox2.Checked; +// Edit2.Enabled := not GrayCheckBox2.Checked; + if GrayCheckBox2.Checked then + Edit2.PasswordChar := #0 + else + Edit2.PasswordChar := '*'; end; procedure TEditForm.cbBorderStyleClick(Sender: TObject); @@ -695,6 +699,7 @@ begin inherited Create(AOwner); LoadForm(self); Edit1.Text := 'Gráficas Magnificacion! Teste'; + Edit2.Text := 'Gráficas'; Edit2.PasswordChar := '*'; end; |