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

Fixed multiple files scanning. Fixed Select directory dialog.

Browse Source
This commit is contained in:
DrMefistO
2015-08-05 00:33:40 +03:00
parent 735282f129
commit 5b52c9ca1e
4 changed files with 8 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tim2view.lpi
View File

@@ -27,7 +27,7 @@
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="1"/> <MajorVersionNr Value="1"/>
<RevisionNr Value="88"/> <RevisionNr Value="88"/>
<BuildNr Value="13"/> <BuildNr Value="18"/>
<StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/> <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="6"> <BuildModes Count="6">
@@ -247,7 +247,6 @@
<ComponentName Value="frmMain"/> <ComponentName Value="frmMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="umain"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="edc.pas"/> <Filename Value="edc.pas"/>
@@ -264,7 +263,6 @@
<Unit5> <Unit5>
<Filename Value="utim.pas"/> <Filename Value="utim.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="utim"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="ucdimage.pas"/> <Filename Value="ucdimage.pas"/>
@@ -289,7 +287,6 @@
<Unit11> <Unit11>
<Filename Value="udrawtim.pas"/> <Filename Value="udrawtim.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="udrawtim"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="bgrabitmap\bgrabitmap.pas"/> <Filename Value="bgrabitmap\bgrabitmap.pas"/>
@@ -327,6 +324,7 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<StackSize Value="16384"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>

6
tim2view.lpr
View File

@@ -6,15 +6,11 @@ uses
{$IFDEF UNIX} {$IFDEF UNIX}
cthreads, cmem, cthreads, cmem,
{$ENDIF} {$ENDIF}
Forms, umain, Interfaces, Forms, umain, Interfaces;
Windows;
{$R *.res} {$R *.res}
begin begin
AllocConsole; // in Windows unit
IsConsole := True; // in System unit
SysInitStdIO; // in System unit
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TfrmMain, frmMain); Application.CreateForm(TfrmMain, frmMain);

4
umain.lfm
View File

@@ -494,7 +494,7 @@ object frmMain: TfrmMain
OnCreate = FormCreate OnCreate = FormCreate
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.4.0.2' LCLVersion = '1.4.2.0'
object pnlStatus: TPanel object pnlStatus: TPanel
Left = 0 Left = 0
Height = 30 Height = 30
@@ -1148,7 +1148,7 @@ object frmMain: TfrmMain
end end
end end
object dlgSelectDir: TSelectDirectoryDialog object dlgSelectDir: TSelectDirectoryDialog
Options = [ofNoChangeDir, ofNoNetworkButton, ofEnableSizing, ofViewDetail] Options = [ofNoChangeDir, ofNoNetworkButton, ofOldStyleDialog, ofEnableSizing, ofViewDetail]
left = 512 left = 512
top = 112 top = 112
end end

4
umain.pas
View File

@@ -660,7 +660,7 @@ begin
FreeTIM(TIM); FreeTIM(TIM);
Exit; Exit;
end; end;
//Writeln('X=',aCol, '; Y=',aRow);
DrawClutCell(TIM, cbbCLUT.ItemIndex, @grdClut, ACol, ARow); DrawClutCell(TIM, cbbCLUT.ItemIndex, @grdClut, ACol, ARow);
FreeTIM(TIM); FreeTIM(TIM);
@@ -796,6 +796,8 @@ begin
ScanThreads.Last.Priority := tpNormal; ScanThreads.Last.Priority := tpNormal;
ScanThreads.Last.OnTerminate := @ScanFinished; ScanThreads.Last.OnTerminate := @ScanFinished;
ScanThreads.Pack;
if StartedScans < GetLogicalCpuCount then if StartedScans < GetLogicalCpuCount then
begin begin
BeforeScan(ScanThreads.Last.FileLength); BeforeScan(ScanThreads.Last.FileLength);