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
+// TODO: Give controls better names
 // Idea: When actions are deleted, remove the colorful marking on the picture?
+// Idea: decision bitmap markings: anti moiree?
 // 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: Automatic correct wrong Game.numScenes/numPics values? (especially since we rely on them when adding a scene)
-// Idea: decision bitmap markings: anti moiree?
+// Idea: "defragmentation": shift all pictures to the left if a scene has a higher "numPics" value than actual pictures
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, Vcl.MPlayer,
+  Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, MPlayer,
-  Vcl.Menus;
+  Menus;
 const
-  CUR_VER = '2017-10-03';
+  CUR_VER = '2017-10-04';
 type
   TForm1 = class(TForm)
     ListBox1: TListBox;
     Button1: TButton;
     Label16: TLabel;
     Button13: TButton;
     Button14: TButton;
     MediaPlayer1: TMediaPlayer;
     Timer1: TTimer;
-    GroupBox1: TGroupBox;
-    Label20: TLabel;
-    Label21: TLabel;
-    Label22: TLabel;
-    Label23: TLabel;
     GroupBox2: TGroupBox;
     Button15: TButton;
     Button17: TButton;
     Button16: TButton;
     Label18: TLabel;
     Addtoscene1: TMenuItem;
     Panel1: TPanel;
     Panel2: TPanel;
     Panel3: TPanel;
     Image3: TImage;
+    Button19: TButton;
+    PageControl3: TPageControl;
+    TabSheet6: TTabSheet;
+    TabSheet7: TTabSheet;
+    Label20: TLabel;
+    Label21: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    Label34: TLabel;
+    Label35: TLabel;
+    Label32: TLabel;
+    Label33: TLabel;
+    Label30: TLabel;
+    Label31: TLabel;
+    Label36: TLabel;
+    Label37: TLabel;
     procedure ListBox1Click(Sender: TObject);
     procedure Edit1Change(Sender: TObject);
     procedure Edit2Change(Sender: TObject);
     procedure SpinEdit1Change(Sender: TObject);
     procedure Button3Click(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);
+    procedure Button19Click(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   private
     Game: TGameBinFile;
+    GameBak: TGameBinFile;
     PlayStart: Cardinal;
     MediaplayerOpened: boolean;
     StopPlayRequest: boolean;
     FirstTickCount: Cardinal;
     procedure ShowSceneBmp;
     procedure NewScene;
     procedure SetupGUIAfterLoad;
     procedure RecalcSlideshowLength;
     procedure RecalcSoundtrackLength;
     procedure RecalcUnusedFiles;
+    procedure RecalcStats;
     procedure HandlePossibleEmptySceneList;
     procedure DisableEnableSceneControls(enable: boolean);
     procedure DisableEnablePictureControls(enable: boolean);
     procedure DisableEnableFileControls(enable: boolean);
     class procedure AspectRatio(image: TImage; panel: TControl);
 {$R *.dfm}
 uses
   Math, MMSystem, ShellAPI;
+const
+  DEFAULT_DURATION = 0;
+  DEFAULT_FILENAME = 'DUMMY.BMP';
 function GetSceneIDFromName(sceneName: string): Integer;
 var
   sSceneID: string;
 begin
   if Copy(sceneName, 1, 2) <> 'SC' then raise Exception.Create('Scene name invalid');
   sSceneID := Copy(sceneName, 3, 2);
   if not TryStrToInt(sSceneID, result) then raise Exception.Create('Scene name invalid');
 end;
+procedure SelectFilenameBase(Edit: TEdit);
+begin
+  if Edit.CanFocus then
+  begin
+    Edit.SetFocus;
+    Edit.SelStart := 0;
+    Edit.SelLength := Pos('.', Edit.Text)-1;
+  end;
+end;
 function _DecisecondToTime(ds: integer): string;
 begin
   result := FormatDatetime('hh:nn:ss', ds / 10 / (24*60*60))+','+IntToStr(ds mod 10);
 end;
 end;
 procedure TForm1.Button10Click(Sender: TObject);
 begin
   Save;
-  if not FileExists('ShowTime32.exe') then raise Exception.Create('ShowTime32.exe not found.');
+  if not FileExists('ShowTime32.exe') then raise Exception.Create('GAME.BIN saved; ShowTime32.exe not found.');
   ShellExecute(Application.Handle, 'open', 'ShowTime32.exe', '', '', SW_NORMAL);
 end;
 procedure TForm1.Button11Click(Sender: TObject);
 var
 end;
 procedure TForm1.Button14Click(Sender: TObject);
 begin
   New;
-  HandlePossibleEmptySceneList;
 end;
 procedure TForm1.DisableEnableSceneControls(enable: boolean);
 begin
   ListBox1.Enabled := enable;
   fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDialogWav;
   if not FileExists(fileName) then exit;
   ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);
 end;
+procedure TForm1.Button19Click(Sender: TObject);
+begin
+  CopyMemory(@Game, @GameBak, SizeOf(Game));
+  SetupGUIAfterLoad;
+end;
 procedure TForm1.NewScene;
 var
   sceneID: integer;
   newScene: PSceneDef;
 begin
   sceneID := GetGreatestSceneID+1;
   if sceneID >= Length(Game.scenes) then sceneID := SearchSceneIDGapFromTop;
   newScene := Game.AddSceneAtEnd(sceneID);
   newScene.actions[0].nextSceneID := SCENEID_ENDGAME;
+  newScene.pictureIndex := Game.numPics;
   ListBox1.Items.Add(newScene.szSceneFolder);
   ReloadActionSceneLists;
   HandlePossibleEmptySceneList;
   ListBox1.ItemIndex := ListBox1.Items.Count - 1;
   ListBox1Click(ListBox1);
   begin
     Exit;
   end;
   Game.DeleteScene(ListBox1.ItemIndex);
-  Dec(Game.numScenes);
   bakItemindex := ListBox1.ItemIndex;
   ListBox1.Items.Delete(bakItemindex);
   ReloadActionSceneLists;
   HandlePossibleEmptySceneList;
 procedure TForm1.Button6Click(Sender: TObject);
 var
   pic: PPictureDef;
 begin
+  if ListBox2.Items.Count > 0 then
+    pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex+1,0), false)
+  else
-  pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex,0));
+    pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex,0), true);
-  pic.duration := 0;
+  pic.duration     := DEFAULT_DURATION;
-  pic.szBitmapFile := 'DUMMY.BMP';
+  pic.szBitmapFile := DEFAULT_FILENAME;
-  ListBox2.Items.Insert(ListBox2.ItemIndex, '(0) DUMMY.BMP');
   if ListBox2.ItemIndex = -1 then
   begin
+    ListBox2.Items.Insert(ListBox2.Count, Format('(%d) %s', [DEFAULT_DURATION, DEFAULT_FILENAME]));
     ListBox2.ItemIndex := ListBox2.Count - 1;
   end
   else
   begin
+    ListBox2.Items.Insert(ListBox2.ItemIndex+1, Format('(%d) %s', [DEFAULT_DURATION, DEFAULT_FILENAME]));
-    ListBox2.ItemIndex := ListBox2.ItemIndex - 1;
+    ListBox2.ItemIndex := ListBox2.ItemIndex + 1;
   end;
   ListBox2Click(Listbox2);
+  SelectFilenameBase(Edit3);
+  RecalcStats;
 end;
 procedure TForm1.Button7Click(Sender: TObject);
 var
   bakIdx: integer;
 begin
   if Listbox2.Count > 0 then
   begin
     bakIdx := ListBox2.ItemIndex;
-    Game.DeletePicture(bakIdx);
+    Game.DeletePicture(CurScene^.pictureIndex + bakIdx);
     ListBox2.Items.Delete(bakIdx);
     if ListBox2.Count > 0 then
     begin
       if bakIdx = ListBox2.Count then Dec(bakIdx);
       ListBox2.ItemIndex := bakIdx;
       ListBox2Click(Listbox2);
     end;
     RecalcUnusedFiles;
   end;
+  RecalcStats;
 end;
 procedure TForm1.Button8Click(Sender: TObject);
 begin
   if ListBox2.ItemIndex <= 0 then exit;
 procedure TForm1.Save;
 var
   fs: TFileStream;
 begin
+  CopyMemory(@GameBak, @Game, SizeOf(Game));
   fs := TFileStream.Create('GAME.BIN', fmOpenWrite or fmCreate);
   try
     fs.WriteBuffer(Game, SizeOf(Game));
   finally
     FreeAndNil(fs);
   ShowSceneBmp;
   Label26.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit3.Text);
   Button12.Visible := CurPicture^.szBitmapFile <> '';
 end;
+procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  if not CompareMem(@Game, @GameBak, SizeOf(Game)) then
+  begin
+    case MessageDlg('Do you want to save the changes?', mtConfirmation, mbYesNoCancel, 0) of
+      ID_YES:
+      begin
+        Save;
+        CanClose := true;
+      end;
+      ID_NO:
+      begin
+        CanClose := true;
+      end;
+      ID_CANCEL:
+      begin
+        CanClose := false;
+      end;
+    end;
+  end;
+end;
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   PageControl1.ActivePageIndex := 0;
   PageControl2.ActivePageIndex := 0;
+  PageControl3.ActivePageIndex := 0;
   Label10.Caption := '';
   Label21.Caption := '';
   Label23.Caption := '';
 end;
   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
+  bakEvent: TNotifyEvent;
+begin
+  if CurScene^.numPics = 0 then
-begin
+  begin
+    SpinEdit13.Value := 0;
+    bakEvent := Edit3.OnChange;
+    try
+      Edit3.OnChange := nil;
+      Edit3.Text := '';
+    finally
+      Edit3.OnChange := bakEvent;
+    end;
+    Label18.Caption := '';
+    Image2.Picture := nil;
+    exit;
+  end;
   SpinEdit13.Value := CurPicture^.duration;
   Edit3.Text := string(CurPicture^.szBitmapFile);
   ShowSceneBmp;
   if PlayStart <> 0 then
   begin
     Button15Click(Button15);
   end;
+  RecalcStats;
 end;
 procedure TForm1.ListBox2DblClick(Sender: TObject);
 begin
   Button15Click(Button15);
 end;
 procedure TForm1.New;
 begin
   ZeroMemory(@Game, SizeOf(Game));
+  ZeroMemory(@GameBak, SizeOf(Game));
   SetupGUIAfterLoad;
 end;
 procedure TForm1.Load;
     fs.ReadBuffer(Game, SizeOf(Game));
   finally
     FreeAndNil(fs);
   end;
+  if Game.RealPictureCount <> Game.numPics then
+  begin
+    MessageDlg('Picture count was wrong. Value was corrected.', mtInformation, [mbOk], 0);
+    Game.numPics := Game.RealPictureCount;
+  end;
+  CopyMemory(@GameBak, @Game, SizeOf(Game));
   SetupGUIAfterLoad;
 end;
 function TForm1.FindSceneIndex(sceneID: integer): integer;
 var
   end;
   procedure _PreparePictureList;
   var
     i: integer;
-    pic: PPictureDef;
+    //pic: PPictureDef;
   begin
     ListBox2.Clear;
     if CurScene^.numPics = 0 then
     begin
+      (*
       pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex,0));
-      pic.duration := 0;
+      pic.duration := DEFAULT_DURATION;
-      pic.szBitmapFile := 'DUMMY.BMP';
+      pic.szBitmapFile := DEFAULT_FILENAME;
+      *)
     end;
     for i := CurScene^.pictureIndex to CurScene^.pictureIndex + CurScene^.numPics - 1 do
     begin
       Listbox2.Items.Add(Format('(%d) %s', [Game.pictures[i].duration, Game.pictures[i].szBitmapFile]));
   RecalcSlideshowLength;
   RecalcSoundtrackLength;
   RecalcUnusedFiles;
+  RecalcStats;
+end;
+procedure TForm1.RecalcStats;
+begin
+  Label35.Caption := IntToStr(ListBox1.ItemIndex) + ' / ' + IntToStr(Game.numScenes);
+  if ListBox2.ItemIndex >= 0 then
+    Label31.Caption := IntToStr(CurScene^.pictureIndex) + ' + ' + IntToStr(ListBox2.ItemIndex) + ' = ' + IntToStr(CurScene^.pictureIndex+ListBox2.ItemIndex)
+  else
+    Label31.Caption := IntToStr(CurScene^.pictureIndex);
+  Label33.Caption := IntToStr(CurScene^.numPics) + ' / ' + IntToStr(Game.numPics);
+  Label37.Caption := IntToStr(CurScene^.numActions) + ' / ' + IntToStr(Game.RealActionCount);
 end;
 procedure TForm1.ReloadActionSceneLists;
   procedure _ReloadActionSceneLists(ComboBox: TComboBox);
   // TabSheet1.TabVisible := SpinEdit12.Value >= 1;
   CurScene^.numActions := SpinEdit12.Value;
   // QUE: zero data of actions which are inactive (numActions<action)?
+  RecalcStats;
 end;
 procedure TForm1.SpinEdit13Change(Sender: TObject);
 begin
   if SpinEdit13.Text = '' then exit;
   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 Don''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

Subversion Repositories plumbers

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