drag and drop support

Author: RetroNick2020

cofflib.pas

@@ -50,21 +50,13 @@ implementation
   end;
 
   TCOFFSymbolTableArray = array[1..2] of TCOFFSymbolTable;
-  var
-  coff_header: TCOFFHeader;
-  section_headers: TCOFFSectionHeader;
-  section_data: TMemoryStream;
-  section_data_size: LongWord;
-  out_file: TFileStream;
-  string_symbol_table : TCOFFSymbolTableArray;
-  string_table : TCOFFStringTable;
 
 procedure SetHeader(var H : TCOFFHeader;fsize : LongWord;UseFileSizeSymbol : boolean);
 begin
   // Set the COFF header fields
-  H.Machine := $14C;
+  H.Machine :=$14C;  // for 64bit $8664
   H.NumberOfSections := 1;
-  H.TimeDateStamp := DateTimeToUnix(Now);
+  H.TimeDateStamp :=DateTimeToUnix(Now);
   H.PointerToSymbolTable := SizeOf(TCOFFHeader) + SizeOf(TCOFFSectionHeader)+((4+fsize+15) div 16)*16; // rounded to LongWords
   if UseFileSizeSymbol then H.NumberOfSymbols := 2 else H.NumberOfSymbols := 1;  //name and name_size
   H.SizeOfOptionalHeader := 0;
@@ -83,7 +75,7 @@ procedure setsectionheader(var SH : TCOFFSectionHeader; fsize : LongWord);
   SH.PointerToLinenumbers := 0;
   SH.NumberOfRelocations := 0;
   SH.NumberOfLinenumbers := 0;
-  SH.Characteristics := $40;
+  SH.Characteristics :=$40;
 end;
 
 procedure SetStringValues(var STA : TCOFFSymbolTableArray;stable : word;offset,value : longword;sectionnumber,stype :word; StorageClass,AuxSymbols : byte);
@@ -153,7 +145,6 @@ procedure WriteStringTable(var F:File;var STRT : TCOFFStringTable);
 Function CreateCOFF(inFile,OutFile,PublicName,publicsizename : String; UseFileSizeSymbol : Boolean) : word;
 var
  inF,OutF : File;
- error    : word;
  InFileSize : Longword;
  H  : TCOFFHeader;
  SH : TCOFFSectionHeader;

rtbinobj.pas

@@ -11,7 +11,7 @@
   objlib,hunklib,bsavelib,cofflib;
 
 Const
-  ProgramName = 'RtBinObj v1.5 - Released May 17 - 2023 By RetroNick';
+  ProgramName = 'RtBinObj v1.6 - Released May 22 - 2023 By RetroNick';
 
   CompTP = 0;
   CompTC = 1;

rtbinobjform.lfm

@@ -2,11 +2,14 @@ object Form1: TForm1
   Left = 491
   Height = 431
   Top = 358
-  Width = 669
+  Width = 746
+  AllowDropFiles = True
+  BorderIcons = [biSystemMenu, biMinimize]
   ClientHeight = 431
-  ClientWidth = 669
+  ClientWidth = 746
   Color = clForm
   OnCreate = FormCreate
+  OnDropFiles = FormDropFiles
   LCLVersion = '2.0.10.0'
   object InFileButton: TButton
     Left = 24
@@ -21,7 +24,7 @@ object Form1: TForm1
     Left = 120
     Height = 23
     Top = 56
-    Width = 248
+    Width = 352
     Enabled = False
     TabOrder = 1
   end
@@ -50,7 +53,7 @@ object Form1: TForm1
     Left = 0
     Height = 32
     Top = 0
-    Width = 669
+    Width = 746
     Alignment = taCenter
     Anchors = [akTop, akLeft, akRight]
     AutoSize = False
@@ -63,7 +66,7 @@ object Form1: TForm1
     OptimalFill = True
   end
   object SaveAsButton: TButton
-    Left = 552
+    Left = 640
     Height = 25
     Top = 376
     Width = 75
@@ -125,10 +128,10 @@ object Form1: TForm1
     TabOrder = 5
   end
   object ObjModeRadioGroup: TRadioGroup
-    Left = 384
+    Left = 491
     Height = 177
     Hint = 'Turbo Pascal Mode  compatible with QuickPascal and FreePascal 8086'#13#10'Turbo C Mode compatible QuickC'
-    Top = 56
+    Top = 64
     Width = 224
     AutoFill = True
     Caption = 'OBJ Mode'
@@ -170,9 +173,9 @@ object Form1: TForm1
     TabOrder = 6
   end
   object AmigaMemRadioGroup: TRadioGroup
-    Left = 384
+    Left = 491
     Height = 96
-    Top = 248
+    Top = 256
     Width = 185
     AutoFill = True
     Caption = 'Amiga Memory Type'

rtbinobjform.pas

@@ -9,7 +9,7 @@ interface
   LazFileUtils, objlib,hunklib,bsavelib,cofflib;
 
 Const
-  ProgramName = 'RtBinObj v1.5 By RetroNick - Released May 17 - 2023';
+  ProgramName = 'RtBinObj v1.6 By RetroNick - Released May 22 - 2023';
 
 type
 
@@ -36,13 +36,15 @@   TForm1 = class(TForm)
     procedure AmigaMemRadioGroupClick(Sender: TObject);
     procedure FarCallCheckBoxChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
     procedure InFileButtonClick(Sender: TObject);
     procedure ObjModeRadioGroupClick(Sender: TObject);
     procedure SaveAsButtonClick(Sender: TObject);
   private
     MemLoad     : Longword;
 
     function ValidFields : boolean;
+    procedure SetPublicNames;
     procedure CreateTPOBJFile;
     procedure CreateTCOBJFile;
     procedure CreateOBJFile;
@@ -65,16 +67,11 @@ implementation
 
 { TForm1 }
 
-procedure TForm1.InFileButtonClick(Sender: TObject);
+procedure TForm1.SetPublicNames;
 var
   sname : string;
 begin
-  // OpenDialog.Filter := 'Windows BMP|*.bmp|PNG|*.png|PC Paintbrush |*.pcx|DP-Amiga IFF LBM|*.lbm|DP-Amiga IFF BBM Brush|*.bbm|GIF|*.gif|RM RAW Files|*.raw|All Files|*.*';
-  if OpenDialog.Execute then
-  begin
-    InfoLabel.Caption:='';
-    EditFileName.Text:=OpenDialog.FileName;
-    if ObjModeRadioGroup.ItemIndex = 0 then
+  if ObjModeRadioGroup.ItemIndex = 0 then
     begin
        sname:=UpperCase(ExtractFileName(ExtractFileNameWithoutExt(OpenDialog.FileName)));
        EditPublicName.Text:=sname;
@@ -86,6 +83,16 @@ procedure TForm1.InFileButtonClick(Sender: TObject);
       EditPublicName.Text:='_'+sname;
       EditPublicSizeName.Text:='_'+sname+'size';
     end;
+end;
+
+procedure TForm1.InFileButtonClick(Sender: TObject);
+begin
+  // OpenDialog.Filter := 'Windows BMP|*.bmp|PNG|*.png|PC Paintbrush |*.pcx|DP-Amiga IFF LBM|*.lbm|DP-Amiga IFF BBM Brush|*.bbm|GIF|*.gif|RM RAW Files|*.raw|All Files|*.*';
+  if OpenDialog.Execute then
+  begin
+    InfoLabel.Caption:='';
+    EditFileName.Text:=OpenDialog.FileName;
+    SetPublicNames;
   end;
 end;
 
@@ -127,6 +134,27 @@ procedure TForm1.FormCreate(Sender: TObject);
   Caption:=ProgramName;
 end;
 
+procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String);
+begin
+  if High(Filenames) > 0 then
+  begin
+    ShowMessage('Drag only one file!');
+    exit;
+  end;
+
+  if FileExists(FileNames[0]) then
+  begin
+    OpenDialog.FileName:=FileNames[0];
+    EditFileName.Caption:=FileNames[0];
+    SetPublicNames;
+  end
+  else
+  begin
+    ShowMessage('Invalid File/Directory!');
+    exit;
+  end;
+end;
+
 procedure TForm1.ObjModeRadioGroupClick(Sender: TObject);
 begin
   if ObjModeRadioGroup.ItemIndex = 0 then