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

 // 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?
+// TODO: When loading the file, check if dependencies are broken and output a warning
-// Idea: decision bitmap markings: anti moiree?
+// Idea: About the hotspot / action markings:
+//       - anti moiree?
+//       - allow user to draw a rectangle with drag'n'drop instead of left and right mouse button.
+//         also, automatically determine the left/top and right/bottom border, so the user can draw the rectange in every direction
 // 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: "defragmentation": shift all pictures to the left if a scene has a higher "numPics" value than actual pictures
+// Idea: Function to re-order stuff?
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Label33: TLabel;
     Label30: TLabel;
     Label31: TLabel;
     Label36: TLabel;
     Label37: TLabel;
+    CheckBox1: TCheckBox;
+    TabSheet8: TTabSheet;
+    Button20: TButton;
     procedure ListBox1Click(Sender: TObject);
     procedure Edit1Change(Sender: TObject);
     procedure Edit2Change(Sender: TObject);
     procedure SpinEdit1Change(Sender: TObject);
     procedure Button3Click(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);
+    procedure Button20Click(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
   private
     Game: TGameBinFile;
     GameBak: TGameBinFile;
     PlayStart: Cardinal;
     MediaplayerOpened: boolean;
   ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);
 end;
 procedure TForm1.Button19Click(Sender: TObject);
 begin
+  if MessageDlg('Are you sure you want to discard all changes?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
+  begin
-  CopyMemory(@Game, @GameBak, SizeOf(Game));
+    CopyMemory(@Game, @GameBak, SizeOf(Game));
-  SetupGUIAfterLoad;
+    SetupGUIAfterLoad;
-end;
+  end;
+end;
 procedure TForm1.NewScene;
 var
   sceneID: integer;
   newScene: PSceneDef;
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   NewScene;
 end;
+procedure TForm1.Button20Click(Sender: TObject);
+begin
+  Game.Defrag;
+  RecalcStats;
+end;
 procedure TForm1.Button2Click(Sender: TObject);
 var
   iScene, iAction, sceneID: integer;
   conflicts: TStringList;
   sWarning: string;
 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:
+      mrYes:
       begin
         Save;
         CanClose := true;
       end;
-      ID_NO:
+      mrNo:
       begin
         CanClose := true;
       end;
-      ID_CANCEL:
+      mrCancel:
       begin
         CanClose := false;
       end;
     end;
   end;
 procedure TForm1.ListBox1DblClick(Sender: TObject);
 begin
   Button16Click(Button16);
 end;
+procedure TForm1.CheckBox1Click(Sender: TObject);
+begin
+  RedrawDecisionBitmap;
+end;
 procedure TForm1.Close1Click(Sender: TObject);
 begin
   Close;
 end;
   end;
 end;
 procedure TForm1.New;
 begin
+  PageControl1.ActivePageIndex := 0;
+  PageControl2.ActivePageIndex := 0;
+  PageControl3.ActivePageIndex := 0;
+  Label10.Caption := '';
+  Label21.Caption := '';
+  Label23.Caption := '';
   ZeroMemory(@Game, SizeOf(Game));
   ZeroMemory(@GameBak, SizeOf(Game));
   SetupGUIAfterLoad;
 end;
     fs.ReadBuffer(Game, SizeOf(Game));
   finally
     FreeAndNil(fs);
   end;
+  CopyMemory(@GameBak, @Game, SizeOf(Game));
   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
   CurScene^.numActions := SpinEdit12.Value;
   // QUE: zero data of actions which are inactive (numActions<action)?
   RecalcStats;
+  RedrawDecisionBitmap;
 end;
 procedure TForm1.SpinEdit13Change(Sender: TObject);
 begin
   if SpinEdit13.Text = '' then exit;
   Image1.Picture.Bitmap.PixelFormat := pf24bit; // Extend the palette, so we have red, green and blue guaranteed.
   Image1.Canvas.Brush.Style := bsDiagCross;
+  if (CheckBox1.Checked or (CurScene^.numActions >= 1)) and
-  if (SpinEdit3.Value < SpinEdit4.Value) and (SpinEdit2.Value < SpinEdit5.Value) then
+     (SpinEdit3.Value < SpinEdit4.Value) and (SpinEdit2.Value < SpinEdit5.Value) then
   begin
     Image1.Canvas.Pen.Color := clRed;
     Image1.Canvas.Brush.Color := clRed;
     Image1.Canvas.Rectangle(SpinEdit3.Value,  SpinEdit2.Value,  SpinEdit4.Value,  SpinEdit5.Value);
   end;
+  if (CheckBox1.Checked or (CurScene^.numActions >= 2)) and
-  if (SpinEdit17.Value < SpinEdit19.Value) and (SpinEdit18.Value < SpinEdit20.Value) then
+     (SpinEdit17.Value < SpinEdit19.Value) and (SpinEdit18.Value < SpinEdit20.Value) then
   begin
     Image1.Canvas.Pen.Color := clLime;
     Image1.Canvas.Brush.Color := clLime;
     Image1.Canvas.Rectangle(SpinEdit17.Value, SpinEdit18.Value, SpinEdit19.Value, SpinEdit20.Value);
   end;
+  if (CheckBox1.Checked or (CurScene^.numActions >= 3)) and
-  if (SpinEdit7.Value < SpinEdit10.Value) and (SpinEdit8.Value < SpinEdit9.Value) then
+     (SpinEdit7.Value < SpinEdit10.Value) and (SpinEdit8.Value < SpinEdit9.Value) then
   begin
     Image1.Canvas.Pen.Color := clBlue;
     Image1.Canvas.Brush.Color := clBlue;
     Image1.Canvas.Rectangle(SpinEdit7.Value,  SpinEdit8.Value,  SpinEdit10.Value, SpinEdit9.Value);
   end;

Subversion Repositories plumbers

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