WebSVN – plumbers – Diff – /trunk/SceneEditor/Unit1.pas

 unit Unit1;
+// BUG: deleting of pictures does not work! the editor becomes very confused, and the changes are not saved at all?
+// TODO: when closing the editor: ask if the user wants to save (but only if they changed something)
+// TODO: the "folder open" icons look like you can CHOOSE a file, not open it!
+//       - change the icon to something else
+//       - add open-dialogs for choosing the bmp and wav files
+// Idea: When actions are deleted, remove the colorful marking on the picture?
+// Idea: unused liste auch bei decision page anzeigen
+// Idea: hotspots: netz ziehen anstelle linke und rechts maustaste. netz in jede beliebige richtung ziehen und topleft/bottomright automatisch bestimmen
-// Idea: create a small thumbnail for "unused files", too?
+// Idea: decision bitmap markings: anti moiree?
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     About1: TMenuItem;
     PopupMenu1: TPopupMenu;
     Addtoscene1: TMenuItem;
     Panel1: TPanel;
     Panel2: TPanel;
+    Panel3: TPanel;
+    Image3: TImage;
     procedure ListBox1Click(Sender: TObject);
     procedure Edit1Change(Sender: TObject);
     procedure Edit2Change(Sender: TObject);
     procedure SpinEdit1Change(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure About1Click(Sender: TObject);
     procedure Close1Click(Sender: TObject);
     procedure Addtoscene1Click(Sender: TObject);
     procedure ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
+    procedure ListBox3Click(Sender: TObject);
   private
     Game: TGameBinFile;
     PlayStart: Cardinal;
     MediaplayerOpened: boolean;
     StopPlayRequest: boolean;
     FirstTickCount: Cardinal;
+    procedure ShowSceneBmp;
     function CurScene: PSceneDef;
     procedure LoadScene;
     procedure Load;
     procedure Save;
     procedure ReloadActionSceneLists;
     FirstTickCount := GetTickCount;
     PlayStart := GetTickCount - CurPictureTimepos * 100;
   end
   else
   begin
+    TabSheet5.TabVisible := false;
     DisableEnablePictureControls(false);
     DisableEnableSceneControls(false);
     DisableEnableFileControls(false);
     Edit1.Enabled := false;
     Edit3.Enabled := false;
       Label18.Font.Color := clWindowText;
       Timer1.Enabled := false;
       DisableEnableFileControls(true);
       DisableEnableSceneControls(true);
       DisableEnablePictureControls(true);
+      TabSheet5.TabVisible := true;
       Edit1.Enabled := true;
       SpinEdit1.Enabled := true;
       Edit3.Enabled := true;
       SpinEdit13.Enabled := true;
       Label18.Caption := _DecisecondToTime(CurPictureTimepos);
       ListBox2Click(ListBox2);
     end;
   end;
 end;
+procedure TForm1.ShowSceneBmp;
+var
+  Filename: string;
+begin
+  Filename := string(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurPicture^.szBitmapFile);
+  if FileExists(Filename) then
+  begin
+    Image2.Picture.LoadFromFile(Filename);
+    AspectRatio(Image2, Panel2);
+  end
+  else
+  begin
+    Image2.Picture := nil;
+  end;
+end;
 procedure TForm1.Button16Click(Sender: TObject);
 begin
   ListBox2.ItemIndex := 0; // go to the beginning
   ListBox2Click(ListBox2); // load picture data
   Button15Click(Button15); // play
     begin
       if bakIdx = ListBox2.Count then Dec(bakIdx);
       ListBox2.ItemIndex := bakIdx;
       ListBox2Click(Listbox2);
     end;
+    RecalcUnusedFiles;
   end;
 end;
 procedure TForm1.Button8Click(Sender: TObject);
 begin
 procedure TForm1.Edit2Change(Sender: TObject);
 begin
   _WriteStringToFilename(@CurScene^.szDecisionBmp, Edit2.Text);
   RecalcUnusedFiles;
+  RedrawDecisionBitmap;
   Label27.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit2.Text) and not (Edit2.Text = '');
   Button11.Visible := CurScene^.szDecisionBmp <> '';
 end;
 procedure TForm1.Edit3Change(Sender: TObject);
 begin
   _WriteStringToFilename(@CurPicture^.szBitmapFile, Edit3.Text);
   ListBox2.Items[ListBox2.ItemIndex] := Format('(%d) %s', [CurPicture^.duration, CurPicture^.szBitmapFile]);
   RecalcUnusedFiles;
+  ShowSceneBmp;
   Label26.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit3.Text);
   Button12.Visible := CurPicture^.szBitmapFile <> '';
 end;
 procedure TForm1.FormCreate(Sender: TObject);
   image.Left := Round(panel.Width  / 2 - image.Width  / 2);
   image.Top  := Round(panel.Height / 2 - image.Height / 2);
 end;
 procedure TForm1.ListBox2Click(Sender: TObject);
-var
-  Filename: string;
 begin
   SpinEdit13.Value := CurPicture^.duration;
   Edit3.Text := string(CurPicture^.szBitmapFile);
-  Filename := string(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurPicture^.szBitmapFile);
-  if FileExists(Filename) then
-  begin
-    Image2.Picture.LoadFromFile(Filename);
-    AspectRatio(Image2, Panel2);
-  end
-  else
-  begin
-    Image2.Picture := nil;
-  end;
+  ShowSceneBmp;
   Label18.Caption := _DecisecondToTime(CurPictureTimepos);
   if PlayStart <> 0 then
   begin
 procedure TForm1.ListBox2DblClick(Sender: TObject);
 begin
   Button15Click(Button15);
 end;
+procedure TForm1.ListBox3Click(Sender: TObject);
+var
+  fileName: string;
+begin
+  if ListBox3.ItemIndex = -1 then exit;
+  fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + ListBox3.Items[ListBox3.ItemIndex];
+  Image3.Visible := FileExists(FileName);
+  if not FileExists(FileName) then exit;
+  Image3.Picture.LoadFromFile(Filename);
+  AspectRatio(Image3, Panel3);
+end;
 procedure TForm1.ListBox3DblClick(Sender: TObject);
 var
   fileName: string;
 begin
   if ListBox3.ItemIndex = -1 then exit;
 begin
   ListBox3.Items.BeginUpdate;
   try
     ListBox3.Clear;
+    Image3.Visible := false;
     if FindFirst(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + '*.*', faArchive, SR) = 0 then
     begin
       repeat
         ext := UpperCase(ExtractFileExt(SR.Name));
         if ((ext <> '.PK' {Adobe Audition}) and (ext <> '.DB' {Windows Thumbnail})) then
   Label18.Caption := FormatDatetime('hh:nn:ss', ms / 1000 / (24*60*60)) + ',' + IntToStr(ms mod 1000 div 100);
 end;
 procedure TForm1.About1Click(Sender: TObject);
 begin
-  ShowMessage('Plumbers Dont''t Wear Ties - GAME.BIN editor (can be also used to create new games based on the "ShowTime" engine!)'+#13#10#13#10+'Written by Daniel Marschall (www.daniel-marschall.de)'+#13#10#13#10+'Published by ViaThinkSoft (www.viathinksoft.com).'+#13#10#13#10+'Current version: ' + CUR_VER);
+  ShowMessage('Plumbers Dont''t Wear Ties - GAME.BIN editor (can be also used to create new games based on the "ShowTime" engine!)'+#13#10#13#10+'Written by Daniel Marschall (www.daniel-marschall.de)'+#13#10#13#10+'Published by ViaThinkSoft (www.viathinksoft.com)'+#13#10#13#10+'Current version: ' + CUR_VER);
 end;
 procedure TForm1.ActionSpinEditsChange(Sender: TObject);
 begin
   if TSpinEdit(Sender).Text = '' then exit; // user is about to enter a negative value
 procedure TForm1.RedrawDecisionBitmap;
 var
   Filename: string;
 begin
   FileName := string(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit2.Text);
+  Image1.Visible := FileExists(FileName);
   if not FileExists(FileName) then exit;
   Image1.Picture.Bitmap.LoadFromFile(FileName);
   AspectRatio(Image1, Panel1);

Subversion Repositories plumbers

plumbers/trunk/SceneEditor/Unit1.pas – Rev 7 → 8