paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 20:38:16 +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.DelimitedText:=AValue;
For I:=0 to L.Count-1 do
L[i]:=Trim(L[i]);
L[I]:=Trim(L[I]);
L.Sort;
LBSelected.Items.Assign(L);
Finally
@ -255,10 +255,10 @@ begin
LBSelected.Items.BeginUpdate;
//writeln('TSelectPropertiesForm.AddSelectedProperties B');
For I:=Items.Count-1 downto 0 do
If Selected[i] then
If Selected[I] then
begin
//writeln('TSelectPropertiesForm.AddSelectedProperties C ',i);
N:=Items[i];
N:=Items[I];
If (FSelectedComponent<>FPropComponent) then
N:=FSelectedComponent.Name+'.'+N;
LBSelected.Items.Add(N);
@ -279,7 +279,7 @@ begin
try
Items.BeginUpdate;
For I:=Items.Count-1 downto 0 do
If Selected[i] then
If Selected[I] then
Items.Delete(I);
Finally
Items.EndUpdate;