diff --git a/tim2view.lpi b/tim2view.lpi index de6c005..cc69ca0 100644 --- a/tim2view.lpi +++ b/tim2view.lpi @@ -19,7 +19,7 @@ - + diff --git a/tim2view.lps b/tim2view.lps index 659c492..c6c21f0 100644 --- a/tim2view.lps +++ b/tim2view.lps @@ -23,8 +23,8 @@ - - + + @@ -51,21 +51,22 @@ + + - - + + + - - @@ -107,22 +108,21 @@ + - - + + + - - - @@ -331,7 +331,7 @@ - + @@ -373,24 +373,24 @@ - - + + - - + + - + - + - + @@ -398,12 +398,16 @@ - + - - + + + + + + diff --git a/tim2view.res b/tim2view.res index 438f171..c8dc4ef 100644 Binary files a/tim2view.res and b/tim2view.res differ diff --git a/ucommon.pas b/ucommon.pas index 7678493..1318dae 100644 --- a/ucommon.pas +++ b/ucommon.pas @@ -3,8 +3,11 @@ unit ucommon; interface const - cProgramName = 'Tim2View by [Lab 313]'; - cProgramVersion = '2.0 Release'; + cProgramName = 'Tim2View SVN.r58 by [Lab 313] (for ' + + {$IFDEF Linux}'Linux' + {$IFEND} + {$IFDEF Darwin}'Mac OS X' + {$IFEND} + {$IFDEF Windows}'Windows' + {$IFEND} + ')'; cExtractedTimsDir = 'TIMS'; cExtractedPngsDir = 'PNGS'; cMaxFileSize = $2EAEED80; @@ -56,4 +59,4 @@ begin Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result))); end; -end. +end. \ No newline at end of file diff --git a/umain.lfm b/umain.lfm index 0805043..173f511 100644 --- a/umain.lfm +++ b/umain.lfm @@ -1,14 +1,14 @@ object frmMain: TfrmMain - Left = 942 + Left = 1017 Height = 590 - Top = 197 + Top = 147 Width = 780 HorzScrollBar.Page = 780 - VertScrollBar.Page = 570 + VertScrollBar.Page = 567 ActiveControl = pnlList AllowDropFiles = True AutoScroll = True - ClientHeight = 570 + ClientHeight = 567 ClientWidth = 780 Color = clBtnFace Font.Color = clWindowText @@ -497,7 +497,7 @@ object frmMain: TfrmMain object pnlStatus: TPanel Left = 0 Height = 30 - Top = 540 + Top = 537 Width = 780 Align = alBottom BevelOuter = bvLowered @@ -537,13 +537,13 @@ object frmMain: TfrmMain end object cbbFiles: TComboBox Left = 0 - Height = 21 + Height = 28 Top = 0 Width = 780 Align = alTop DropDownCount = 30 Enabled = False - ItemHeight = 13 + ItemHeight = 0 OnChange = actChangeFileExecute OnCloseUp = actReturnFocusExecute Style = csDropDownList @@ -551,33 +551,33 @@ object frmMain: TfrmMain end object pnlMain: TPanel Left = 0 - Height = 519 - Top = 21 + Height = 509 + Top = 28 Width = 780 Align = alClient BevelOuter = bvNone - ClientHeight = 519 + ClientHeight = 509 ClientWidth = 780 TabOrder = 1 object splMain: TSplitter Left = 240 - Height = 519 + Height = 509 Top = 0 Width = 5 end object pnlList: TPanel Left = 0 - Height = 519 + Height = 509 Top = 0 Width = 240 Align = alLeft BevelOuter = bvNone - ClientHeight = 519 + ClientHeight = 509 ClientWidth = 240 TabOrder = 0 object lvList: TListView Left = 0 - Height = 491 + Height = 481 Top = 28 Width = 240 Align = alClient @@ -599,6 +599,7 @@ object frmMain: TfrmMain item Alignment = taCenter Caption = 'CLUTs' + Width = 57 end> ColumnClick = False Enabled = False @@ -645,12 +646,12 @@ object frmMain: TfrmMain end object pnlImage: TPanel Left = 245 - Height = 519 + Height = 509 Top = 0 Width = 535 Align = alClient BevelOuter = bvLowered - ClientHeight = 519 + ClientHeight = 509 ClientWidth = 535 TabOrder = 1 object splImageClut: TSplitter @@ -666,7 +667,7 @@ object frmMain: TfrmMain object grdCurrClut: TDrawGrid Left = 1 Height = 150 - Top = 345 + Top = 330 Width = 533 Align = alBottom ColCount = 1 @@ -690,18 +691,18 @@ object frmMain: TfrmMain end object pnlImageOptions: TPanel Left = 1 - Height = 23 - Top = 495 + Height = 28 + Top = 480 Width = 533 Align = alBottom AutoSize = True BevelOuter = bvNone - ClientHeight = 23 + ClientHeight = 28 ClientWidth = 533 TabOrder = 1 object btnShowClut: TButton Left = 481 - Height = 23 + Height = 28 Top = 0 Width = 52 Align = alRight @@ -712,12 +713,12 @@ object frmMain: TfrmMain end object cbbBitMode: TComboBox Left = 0 - Height = 21 + Height = 28 Top = 0 Width = 90 Align = alLeft Enabled = False - ItemHeight = 13 + ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'Real' @@ -734,12 +735,12 @@ object frmMain: TfrmMain end object cbbTranspMode: TComboBox Left = 90 - Height = 21 + Height = 28 Top = 0 Width = 136 Align = alLeft Enabled = False - ItemHeight = 13 + ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'Full transparence' @@ -755,13 +756,13 @@ object frmMain: TfrmMain end object cbbCLUT: TComboBox Left = 372 - Height = 21 + Height = 28 Top = 0 Width = 109 Align = alRight DropDownCount = 16 Enabled = False - ItemHeight = 13 + ItemHeight = 0 OnChange = actChangeClutIdxExecute Style = csDropDownList TabOrder = 3 @@ -769,7 +770,7 @@ object frmMain: TfrmMain end object imgTim: TImage Left = 1 - Height = 341 + Height = 326 Top = 4 Width = 533 AntialiasingMode = amOff @@ -1023,4 +1024,4 @@ object frmMain: TfrmMain left = 449 top = 450 end -end +end \ No newline at end of file diff --git a/umain.pas b/umain.pas index ffbc0c4..9b86562 100644 --- a/umain.pas +++ b/umain.pas @@ -526,7 +526,7 @@ procedure TfrmMain.FormCreate(Sender: TObject); var hGridRect: TGridRect; begin - {$IFDEF Linux}mnOptions.Visible := False;{$IFEND} + {$IFnDEF Windows}mnOptions.Enabled := False;{$IFEND} Settings := TSettings.Create(ExtractFilePath(ParamStr(0))); @@ -548,7 +548,7 @@ begin Surf^ := nil; SetCLUTListToNoCLUT; - Caption := Format('%s v%s', [cProgramName, cProgramVersion]); + Caption := cProgramName; CheckButtonsAndMainMenu; @@ -975,4 +975,4 @@ begin end; end. - + \ No newline at end of file