diff options
Diffstat (limited to 'uidesigner/vfdprops.pas')
-rw-r--r-- | uidesigner/vfdprops.pas | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/uidesigner/vfdprops.pas b/uidesigner/vfdprops.pas index bf1aa209..55fff148 100644 --- a/uidesigner/vfdprops.pas +++ b/uidesigner/vfdprops.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -176,6 +176,7 @@ uses TypInfo, vfdformparser, vfdeditors, + vfd_constants, fpg_dialogs; @@ -442,7 +443,7 @@ var begin sl := TStringList(GetObjectProp(wg, Name, TStrings)); if not Assigned(sl) then - raise Exception.Create('Failed to find TStrings type property.'); + raise Exception.Create(rsErrNoStringsProperty); Result := ''; @@ -461,7 +462,7 @@ var begin sl := TStringList(GetObjectProp(wg, Name, TStrings)); if not Assigned(sl) then - raise Exception.Create('Failed to find TStrings type property.'); + raise Exception.Create(rsErrNoStringsProperty); Result := '[' + IntToStr(sl.Count) + ' lines]'; end; @@ -471,7 +472,7 @@ var begin sl := TStringList(GetObjectProp(wg, Name, TStrings)); if not Assigned(sl) then - raise Exception.Create('Failed to find TStrings type property.'); + raise Exception.Create(rsErrNoStringsProperty); EditStringList(sl); end; @@ -500,7 +501,7 @@ begin begin sl := TStringList(GetObjectProp(wg, Name, TStrings)); if not Assigned(sl) then - raise Exception.Create('Failed to find TStrings type property.'); + raise Exception.Create(rsErrNoStringsProperty); sl.Add(sval); end; end; |