From 36fc30e611da6008a0cb48bb65491dfe2f7d9f8d Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 18 May 2007 20:14:32 +0000 Subject: * 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 --- examples/gui/widgettest/widgettest.pas | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'examples/gui/widgettest/widgettest.pas') 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; -- cgit v1.2.3-70-g09d2