diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-02-25 14:39:12 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-02-25 14:39:12 +0200 |
commit | a0fd4de9235ba29269af2adcb7dc6caa34fa9f34 (patch) | |
tree | 50ff79a255ee4259c21aa60bc375663f5df7fcae /uidesigner/vfddesigner.pas | |
parent | 2553e165221735e8b5e4f1cecd63fb1cef1363ea (diff) | |
download | fpGUI-a0fd4de9235ba29269af2adcb7dc6caa34fa9f34.tar.xz |
Add Hint property support to Form Designer.
Diffstat (limited to 'uidesigner/vfddesigner.pas')
-rw-r--r-- | uidesigner/vfddesigner.pas | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index f403fac5..f93a956c 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -1219,7 +1219,15 @@ begin } s := s + ' WindowTitle := ' + QuotedStr(FForm.WindowTitle) + ';' + LineEnding; - // ShowHint property - This is ugly, Form's properties or not handled well!! + // Hint property - This is ugly, Form's properties are not handled well!! + PropInfo := GetPropInfo(FForm.ClassType, 'Hint'); + t := GetStrProp(FForm, 'Hint'); + if IsStoredProp(FForm, PropInfo) then + begin + s := s + ' Hint := ' + QuotedStr(t) + ';' + LineEnding; + end; + + // ShowHint property - This is ugly, Form's properties are not handled well!! PropInfo := GetPropInfo(FForm.ClassType, 'ShowHint'); i := GetOrdProp(FForm, 'ShowHint'); if IsStoredProp(FForm, PropInfo) then |