Commit d6c0e0df authored by edbarx's avatar edbarx

List of wifi hotspots in the GUI was omitting the last item due to an iterating…

List of wifi hotspots in the GUI was omitting the last item due to an iterating error in  the parsing loop. Code debugged to properly add items to the list.
parent 6460574d
......@@ -10,7 +10,7 @@ object formEditConnect: TformEditConnect
OnDestroy = FormDestroy
OnHide = FormHide
OnShow = FormShow
LCLVersion = '1.2.4.0'
LCLVersion = '1.6.2.0'
object InfoPanel: TPanel
Left = 0
Height = 458
......@@ -108,8 +108,8 @@ object formEditConnect: TformEditConnect
end
object editEssid: TEdit
Left = 317
Height = 27
Top = 263
Height = 29
Top = 261
Width = 248
Anchors = [akRight, akBottom]
MaxLength = 32
......@@ -117,8 +117,8 @@ object formEditConnect: TformEditConnect
end
object editPassword: TEdit
Left = 317
Height = 23
Top = 309
Height = 25
Top = 307
Width = 248
Anchors = [akRight, akBottom]
EchoMode = emPassword
......@@ -131,10 +131,10 @@ object formEditConnect: TformEditConnect
TabOrder = 4
end
object cbShowPasswordChars: TCheckBox
Left = 219
Left = 222
Height = 21
Top = 343
Width = 197
Width = 194
Anchors = [akRight, akBottom]
Caption = 'Show Password Chars'
OnClick = cbShowPasswordCharsClick
......@@ -184,8 +184,8 @@ object formEditConnect: TformEditConnect
end
object CB_Security: TComboBox
Left = 225
Height = 27
Top = 375
Height = 29
Top = 373
Width = 126
Anchors = [akRight, akBottom]
ItemHeight = 0
......
......@@ -494,6 +494,9 @@ begin
else if (pos('IE: WPA Version', tmpStr) = 1)
then hotspot := hotspot + '&' + 'WPA v1';
if (i = list.Count - 1) and (hotspot <> '')
then LB_Hotspots.Items.Add(hotspot);
inc(i);
end;
finally
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment