Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed files changing. Not for build.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-05-07 00:28:44 +00:00
parent 2525e8a802
commit fb3863f3c6
4 changed files with 262 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
umain.pas
View File

@@ -293,7 +293,13 @@ begin
actReturnFocus.Execute;
if lvList.Items.Count = 0 then Exit;
//if lvList.Selected <> nil then
// lvList.Selected.Index := -1;
lvList.ItemIndex:= -1;
lvList.Update;
lvList.ItemIndex := 0;
lvList.Items[0].Focused := True;
lvList.Items[0].Selected := True;
lvList.Items[0].MakeVisible(False);
@@ -719,9 +725,9 @@ begin
H := TimInfoByIdx[Item.Index].Height;
Item.Caption := Format('%.6d', [Item.Index + 1]);
Item.SubItems.Add(Format('%.3dx%.3d', [W, H]));
Item.SubItems.Add(Format('%.2d', [TimInfoByIdx[Item.Index].BitMode]));
Item.SubItems.Add(Format('%.2d', [TimInfoByIdx[Item.Index].Cluts]));
Item.SubItems.Add(Format('%.3dx%.3d', [W, H]));
end;
procedure TfrmMain.lvListSelectItem(Sender: TObject; Item: TListItem;
@@ -1073,4 +1079,4 @@ begin
end;
end.