Changeset 5 for trunk/UNetworkTest.pas
- Timestamp:
- Nov 27, 2008, 12:46:04 PM (15 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
-
Property svn:ignore
set to
*.dcu
KonfiguratorZdechovNET.exe
KonfiguratorZdechovNET.res
-
Property svn:ignore
set to
-
trunk/UNetworkTest.pas
r4 r5 78 78 function Parse: string; 79 79 begin 80 Result:= Copy(Row, 1,Pos(':',Row)-1);81 Delete(Row, 1,Length(Result)+1);80 Result:= Copy(Row, 1, Pos(':', Row) - 1); 81 Delete(Row, 1, Length(Result) + 1); 82 82 end; 83 83 84 84 function NetworkListFilename: string; 85 85 begin 86 Result := CommonAppDataPath +'\'+Creator+'\'+ApplicationName;86 Result := CommonAppDataPath + '\' + Creator + '\' + ApplicationName; 87 87 if not DirectoryExists(Result) then 88 88 ForceDirectories(Result); … … 152 152 ListView1.SetFocus; 153 153 // ListView1.Items.BeginUpdate; 154 for I := 0 to ListView1.Items.Count -1 do with ListView1.Items[I] do begin154 for I := 0 to ListView1.Items.Count - 1 do with ListView1.Items[I] do begin 155 155 Selected := True; 156 156 Focused := True; … … 169 169 procedure TNetworkTest.Button2Click(Sender: TObject); 170 170 begin 171 if Button2.Caption = 'Otestovat' then begin 171 if Button2.Caption = 'Otestovat' then 172 begin 172 173 Button2.Caption := 'Pøeruit'; 173 174 ComboBox1.Enabled := False; … … 248 249 ListView1.Items.EndUpdate; 249 250 if ListView1.Items.Count > 4 then Height := ListView1.Items.Count * 15 + 97 250 else Height := 4 *15 + 97;251 if Height > (Screen.Height -50) then Height := Screen.Height - 50;251 else Height := 4 * 15 + 97; 252 if Height > (Screen.Height - 50) then Height := Screen.Height - 50; 252 253 end; 253 254
Note:
See TracChangeset
for help on using the changeset viewer.