ResourceStrings for Watch Property Dialog

git-svn-id: trunk@14736 -

debugger/watchpropertydlg.pp

@@ -70,6 +70,8 @@ type
   end;
   
 implementation
+uses
+  LazarusIDEStrConsts;
   
 { TWatchPropertyDlg }
 
@@ -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;

ide/lazarusidestrconsts.pas

@@ -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