paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 13:56:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: harmonize the casing of variables.

Browse Source 
git-svn-id: trunk@37257 -
This commit is contained in:
juha 2012-05-12 13:05:11 +00:00
parent 3ed97298dc
commit 67d1097c03
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/frmselectprops.pas
View File

@ -155,7 +155,7 @@ begin
L.Delimiter:=';'; L.Delimiter:=';';
L.DelimitedText:=AValue; L.DelimitedText:=AValue;
For I:=0 to L.Count-1 do For I:=0 to L.Count-1 do
L[i]:=Trim(L[i]); L[I]:=Trim(L[I]);
L.Sort; L.Sort;
LBSelected.Items.Assign(L); LBSelected.Items.Assign(L);
Finally Finally
@ -255,10 +255,10 @@ begin
LBSelected.Items.BeginUpdate; LBSelected.Items.BeginUpdate;
//writeln('TSelectPropertiesForm.AddSelectedProperties B'); //writeln('TSelectPropertiesForm.AddSelectedProperties B');
For I:=Items.Count-1 downto 0 do For I:=Items.Count-1 downto 0 do
If Selected[i] then If Selected[I] then
begin begin
//writeln('TSelectPropertiesForm.AddSelectedProperties C ',i); //writeln('TSelectPropertiesForm.AddSelectedProperties C ',i);
N:=Items[i]; N:=Items[I];
If (FSelectedComponent<>FPropComponent) then If (FSelectedComponent<>FPropComponent) then
N:=FSelectedComponent.Name+'.'+N; N:=FSelectedComponent.Name+'.'+N;
LBSelected.Items.Add(N); LBSelected.Items.Add(N);
@ -279,7 +279,7 @@ begin
try try
Items.BeginUpdate; Items.BeginUpdate;
For I:=Items.Count-1 downto 0 do For I:=Items.Count-1 downto 0 do
If Selected[i] then If Selected[I] then
Items.Delete(I); Items.Delete(I);
Finally Finally
Items.EndUpdate; Items.EndUpdate;