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

Fixed double showing of image.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-04-09 19:38:12 +00:00
parent 0b7d0387d0
commit b94624971c
2 changed files with 31 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
units/uMain.dfm
View File

@@ -608,7 +608,7 @@ object frmMain: TfrmMain
PopupMenu = pmList PopupMenu = pmList
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
OnClick = lvListClick OnChange = lvListChange
OnData = lvListData OnData = lvListData
OnSelectItem = lvListSelectItem OnSelectItem = lvListSelectItem
end end

47
units/uMain.pas
View File

@@ -86,7 +86,6 @@ type
procedure btnStopScanClick(Sender: TObject); procedure btnStopScanClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure lvListData(Sender: TObject; Item: TListItem); procedure lvListData(Sender: TObject; Item: TListItem);
procedure lvListClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cbbFilesChange(Sender: TObject); procedure cbbFilesChange(Sender: TObject);
procedure cbbCLUTChange(Sender: TObject); procedure cbbCLUTChange(Sender: TObject);
@@ -112,6 +111,8 @@ type
Selected: Boolean); Selected: Boolean);
procedure cbbTransparenceModeChange(Sender: TObject); procedure cbbTransparenceModeChange(Sender: TObject);
procedure btnShowClutClick(Sender: TObject); procedure btnShowClutClick(Sender: TObject);
procedure lvListChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
private private
{ Private declarations } { Private declarations }
// pResult: PNativeXml; // pResult: PNativeXml;
@@ -137,6 +138,7 @@ type
procedure UpdateCLUTInfo; procedure UpdateCLUTInfo;
procedure SetCLUTListToNoCLUT; procedure SetCLUTListToNoCLUT;
function ForceForegroundWindow(hwnd: THandle): Boolean; function ForceForegroundWindow(hwnd: THandle): Boolean;
procedure ShowItem();
protected protected
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
procedure WMCommandArrived(var Message: TMessage); message WM_COMMANDARRIVED; procedure WMCommandArrived(var Message: TMessage); message WM_COMMANDARRIVED;
@@ -375,7 +377,7 @@ begin
if GetFileSizeAPI(dlgOpenFile.FileName) > cTIMMaxSize then Exit; if GetFileSizeAPI(dlgOpenFile.FileName) > cTIMMaxSize then Exit;
ReplaceTimInFile(ScanRes.ScanFile, dlgOpenFile.FileName, TimIdx(ListIdx).Position, ScanRes.IsImage); ReplaceTimInFile(ScanRes.ScanFile, dlgOpenFile.FileName, TimIdx(ListIdx).Position, ScanRes.IsImage);
lvListClick(Self); ShowItem;
MessageBeep(MB_ICONINFORMATION); MessageBeep(MB_ICONINFORMATION);
end; end;
@@ -495,8 +497,8 @@ begin
lvList.SetFocus; lvList.SetFocus;
lvList.Selected := nil; lvList.Selected := nil;
lvList.Items[0].Selected := True;
lvList.Items[0].Focused := True; lvList.Items[0].Focused := True;
lvList.Items[0].Selected := True;
end; end;
procedure TfrmMain.cbbTransparenceModeChange(Sender: TObject); procedure TfrmMain.cbbTransparenceModeChange(Sender: TObject);
@@ -783,21 +785,13 @@ begin
FindClose(sRec); FindClose(sRec);
end; end;
procedure TfrmMain.lvListClick(Sender: TObject); procedure TfrmMain.lvListChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin begin
if (lvList.Selected = nil) then Exit; if (Item = nil) or (Change <> ctState) then Exit;
if (lvList.Items.Count = 0) then Exit;
cbbBitMode.ItemIndex := 0; if Item.Focused and Item.Selected then
ShowItem;
UpdateCLUTInfo;
DrawSelTim;
DrawSelClut;
actTimInfo.Caption := Format('[OFFSET: 0x%x | SIZE: 0x%x]', [TimIdx(ListIdx).Position, TimIdx(ListIdx).Size]);
actTimInfo.Enabled := True;
CheckButtonsAndMainMenu;
end; end;
procedure TfrmMain.lvListData(Sender: TObject; Item: TListItem); procedure TfrmMain.lvListData(Sender: TObject; Item: TListItem);
@@ -818,8 +812,10 @@ end;
procedure TfrmMain.lvListSelectItem(Sender: TObject; Item: TListItem; procedure TfrmMain.lvListSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
begin begin
(*if Item = nil then Exit;
if Selected then if Selected then
lvListClick(Self); lvListClick(Self); *)
end; end;
procedure TfrmMain.SetListCount(Count: Integer); procedure TfrmMain.SetListCount(Count: Integer);
@@ -830,6 +826,23 @@ begin
lvList.Items.EndUpdate; lvList.Items.EndUpdate;
end; end;
procedure TfrmMain.ShowItem;
begin
if (lvList.Selected = nil) then Exit;
if (lvList.Items.Count = 0) then Exit;
cbbBitMode.ItemIndex := 0;
UpdateCLUTInfo;
DrawSelTim;
DrawSelClut;
actTimInfo.Caption := Format('[OFFSET: 0x%x | SIZE: 0x%x]', [TimIdx(ListIdx).Position, TimIdx(ListIdx).Size]);
actTimInfo.Enabled := True;
CheckButtonsAndMainMenu;
end;
function TfrmMain.TimIdx(Index: Integer): TScanTim; function TfrmMain.TimIdx(Index: Integer): TScanTim;
begin begin
Result := ScanRes.ScanTim[Index]; Result := ScanRes.ScanTim[Index];