ResourceStrings for Watch Property Dialog

git-svn-id: trunk@14736 -
This commit is contained in:
laurent 2008-04-02 20:27:49 +00:00
parent b7ae37634e
commit 2b64b5513a
2 changed files with 40 additions and 1 deletions

View File

@ -70,7 +70,9 @@ type
end;
implementation
uses
LazarusIDEStrConsts;
{ TWatchPropertyDlg }
procedure TWatchPropertyDlg.btnOKClick(Sender: TObject);
@ -110,6 +112,27 @@ begin
txtDigits.Enabled := False;
chkAllowFunc.Enabled := False;
rgStyle.Enabled := False;
Caption:= lisWatchPropert;
lblExpression.Caption:= lisExpression;
lblRepCount.Caption:= lisRepeatCount;
lblDigits.Caption:= lisDigits;
chkEnabled.Caption:= lisEnabled;
chkAllowFunc.Caption:= lisAllowFunctio;
btnOK.Caption:= lisOkBtn;
btnCancel.Caption:= dlgCancel;
btnHelp.Caption:= lisPckEditHelp;
rgStyle.Caption:= lisStyle;
rgStyle.Items[0]:= lisCharacter;
rgStyle.Items[1]:= lisString;
rgStyle.Items[2]:= lisDecimal;
rgStyle.Items[3]:= lisHexadecimal;
rgStyle.Items[4]:= lisFloatingPoin;
rgStyle.Items[5]:= lisPointer;
rgStyle.Items[6]:= lisRecordStruct;
rgStyle.Items[7]:= dlgAssemblerDefault;
rgStyle.Items[8]:= lisMemoryDump;
end;
destructor TWatchPropertyDlg.destroy;

View File

@ -3712,6 +3712,22 @@ resourcestring
lisShrinkToSmal = 'Shrink to smallest';
lisGrowToLarges = 'Grow to Largest';
// Watch Property Dialog
lisWatchPropert = 'Watch Properties';
lisExpression = 'Expression:';
lisRepeatCount = 'Repeat Count:';
lisDigits = 'Digits:';
lisAllowFunctio = 'Allow Function Calls';
lisStyle = 'Style';
lisCharacter = 'Character';
lisString = 'String';
lisDecimal = 'Decimal';
lisHexadecimal = 'Hexadecimal';
lisFloatingPoin = 'Floating Point';
lisPointer = 'Pointer';
lisRecordStruct = 'Record/Structure';
lisMemoryDump = 'Memory Dump';
implementation