summaryrefslogtreecommitdiff
path: root/src/gui/fpg_edit.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2010-04-13 23:58:47 +0200
committerGraeme Geldenhuys <graemeg@gmail.com>2010-04-13 23:58:47 +0200
commitb7cb124d16c7ffb63f2952b6dbe53ac94e76c3c3 (patch)
treea815a1e42126c26e32489ef8b0fe375f1e4a1333 /src/gui/fpg_edit.pas
parenta03df130f14722a89f90075685d235c0a79073c1 (diff)
downloadfpGUI-b7cb124d16c7ffb63f2952b6dbe53ac94e76c3c3.tar.xz
Edit: When setting read-only at runtime, the component never repainted itself.
Diffstat (limited to 'src/gui/fpg_edit.pas')
-rw-r--r--src/gui/fpg_edit.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index 86ae00fc..ddd97eab 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -1223,6 +1223,7 @@ procedure TfpgBaseEdit.SetReadOnly(const AValue: Boolean);
begin
if FReadOnly = AValue then exit;
FReadOnly := AValue;
+ RePaint;
end;
function TfpgBaseEdit.GetMarginAdjustment: integer;