paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:00:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

made some string constants resource strings

Browse Source 
git-svn-id: trunk@5122 -
This commit is contained in:
mattias 2004-01-29 22:53:34 +00:00
parent 8dbbb91c8c
commit 977a622fe7
2 changed files with 31 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
ideintf/objectinspector.pp
View File

@ -750,7 +750,7 @@ begin
{$IFNDEF DoNotCatchOIExceptions}
except
on E: Exception do begin
MessageDlg('Error',E.Message,mtError,[mbOk],0);
MessageDlg(oisError, E.Message, mtError, [mbOk], 0);
end;
end;
{$ENDIF}
@ -811,7 +811,7 @@ begin
{$IFNDEF DoNotCatchOIExceptions}
except
on E: Exception do begin
MessageDlg('Error',E.Message,mtError,[mbOk],0);
MessageDlg(oisError, E.Message, mtError, [mbOk], 0);
end;
end;
{$ENDIF}
@ -1760,26 +1760,26 @@ begin
if Assigned(PointedRow.Editor) then
AHint := PointedRow.Editor.GetName;
AHint := AHint + #10'Value:'+PointedRow.LastPaintedValue;
AHint := AHint + #10+oisValue+PointedRow.LastPaintedValue;
TypeKind := PointedRow.Editor.GetPropType^.Kind;
case TypeKind of
tkInteger : AHint := AHInt + #10'Integer';
tkInt64 : AHint := AHInt + #10'Int64';
tkBool : AHint := AHInt + #10'Boolean';
tkEnumeration : AHint := AHInt + #10'Enumeration';
tkChar,tkWChar : AHint := AHInt + #10'Char';
tkUnknown : AHint := AHInt + #10'Unknown';
tkObject : AHint := AHInt + #10'Object';
tkClass : AHint := AHInt + #10'Class';
tkQWord : AHint := AHInt + #10'Word';
tkString,tkLString,tkAString,tkWString : AHint := AHInt + #10'String';
tkFloat : AHint := AHInt + #10'Float';
tkSet : AHint := AHInt + #10'Set';
tkMethod : AHint := AHInt + #10'Method';
tkVariant : AHint := AHInt + #10'Variant';
tkArray : AHint := AHInt + #10'Array';
tkRecord : AHint := AHInt + #10'Record';
tkInterface : AHint := AHInt + #10'Interface';
tkInteger : AHint := AHint + #10'Integer';
tkInt64 : AHint := AHint + #10'Int64';
tkBool : AHint := AHint + #10'Boolean';
tkEnumeration : AHint := AHint + #10'Enumeration';
tkChar,tkWChar : AHint := AHint + #10'Char';
tkUnknown : AHint := AHint + #10'Unknown';
tkObject : AHint := AHint + #10'Object';
tkClass : AHint := AHint + #10'Class';
tkQWord : AHint := AHint + #10'Word';
tkString,tkLString,tkAString,tkWString : AHint := AHint + #10'String';
tkFloat : AHint := AHint + #10'Float';
tkSet : AHint := AHint + #10'Set';
tkMethod : AHint := AHint + #10'Method';
tkVariant : AHint := AHint + #10'Variant';
tkArray : AHint := AHint + #10'Array';
tkRecord : AHint := AHint + #10'Record';
tkInterface : AHint := AHint + #10'Interface';
end;
end;
end;
@ -2295,7 +2295,7 @@ begin
with StatusBar do begin
Name:='StatusBar';
Parent:=Self;
SimpleText:='All';
SimpleText:=oisAll;
Align:= alBottom;
end;
@ -2724,7 +2724,6 @@ begin
FShowComponentTree:=AValue;
BeginUpdate;
ShowComponentTreePopupMenuItem.Checked:=FShowComponentTree;
writeln('TObjectInspector.SetShowComponentTree A ',FShowComponentTree);
// hide controls while rebuilding
if PairSplitter1<>nil then
PairSplitter1.Visible:=false;
@ -2887,9 +2886,9 @@ var
begin
SetDefaultPopupMenuItem.Enabled:=GetCurRowDefaultValue(DefaultStr);
if SetDefaultPopupMenuItem.Enabled then
SetDefaultPopupMenuItem.Caption:='Set to default: '+DefaultStr
SetDefaultPopupMenuItem.Caption:=Format(oisSetToDefault, [DefaultStr])
else
SetDefaultPopupMenuItem.Caption:='Set to default value';
SetDefaultPopupMenuItem.Caption:=oisSetToDefaultValue;
CurGrid:=GetActivePropertyGrid;
CurRow:=GetActivePropertyRow;

8
ideintf/objinspstrconsts.pas
View File

@ -19,6 +19,8 @@ interface
resourcestring
//
oisObjectInspector = 'Object Inspector';
oisAll = 'All';
oisError = 'Error';
oisItemsSelected = '%u items selected';
oiscAdd = '&Add';
@ -27,6 +29,12 @@ resourcestring
oisProperties='Properties';
oisEvents='Events';
oisSetToDefault = 'Set to default: %s';
oisSetToDefaultValue = 'Set to default value';
// typeinfo
oisValue = 'Value:';
//ListView items editor
sccsLvEdtCaption = 'ListView editor';