diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-12-15 14:58:10 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-12-15 14:58:10 +0000 |
commit | 22143784bbefb5def91dc0433e8ade4561849a54 (patch) | |
tree | 17dc70513f392b80a9247d20956de5dca61f9b88 | |
parent | f86e17b35b68f9390bcd4d65b9607c8306c28fd0 (diff) | |
download | fpGUI-22143784bbefb5def91dc0433e8ade4561849a54.tar.xz |
uidesigner: IconName is now available in the Object Inspector
-rw-r--r-- | uidesigner/vfddesigner.pas | 8 | ||||
-rw-r--r-- | uidesigner/vfdwidgets.pas | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index 42fef1a2..a3b60597 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -1211,6 +1211,14 @@ begin s := s + Ind(1) + 'Hint := ' + QuotedStr(t) + ';' + LineEnding; end; + // IconName property - This is ugly, Form's properties are not handled well!! + PropInfo := GetPropInfo(FForm.ClassType, 'IconName'); + t := GetStrProp(FForm, 'IconName'); + if IsStoredProp(FForm, PropInfo) then + begin + s := s + Ind(1) + 'IconName := ' + 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'); diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index 7362b8d2..f0a9d62e 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -351,6 +351,7 @@ begin wc := TVFDWidgetClass.Create(TfpgForm); wc.NameBase := 'frm'; wc.AddProperty('WindowTitle', TPropertyString, ''); + wc.AddProperty('IconName', TPropertyString, 'Image name to change window icon'); wc.AddProperty('Hint', TPropertyString, 'Tooltip hint'); wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('Sizeable', TPropertyBoolean, 'Can the form be resized at runtime'); |