Update TMT Pascal

rmabout.pas

@@ -8,8 +8,8 @@ interface
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,lclintf;
 
 Const
- ProgramName ='Raster Master v2.8 R95';
- ProgramLicense = 'Released December 23 - 2023 under MIT License';
+ ProgramName ='Raster Master v2.9 R96';
+ ProgramLicense = 'Released December 31 - 2023 under MIT License';
 
 type
 

rmmain.lfm

@@ -1251,6 +1251,17 @@ object RMMainForm: TRMMainForm
  OnClick = PaletteExportTurboPascalClick
  end
  end
+ object PaletteExportTMTPascal: TMenuItem
+ Caption = 'TMT Pascal'
+ object TMTPaletteArray: TMenuItem
+ Caption = 'Palette Array'
+ OnClick = PaletteExportTurboPascalClick
+ end
+ object TMTPaletteCommands: TMenuItem
+ Caption = 'Palette Commands'
+ OnClick = PaletteExportTurboPascalClick
+ end
+ end
  end
  object EditColor: TMenuItem
  Caption = 'Edit Colors'

rmmain.pas

@@ -71,6 +71,9 @@ TRMMainForm = class(TForm)
  fbRayLibRGB: TMenuItem;
  MenuItem1: TMenuItem;
  MenuItem12: TMenuItem;
+ PaletteExportTMTPascal: TMenuItem;
+ TMTPaletteArray: TMenuItem;
+ TMTPaletteCommands: TMenuItem;
  TMTPutImageFile: TMenuItem;
  TMTPutImageArray: TMenuItem;
  QB64: TMenuItem;
@@ -347,6 +350,7 @@ TRMMainForm = class(TForm)
  procedure ListView1Click(Sender: TObject);
  procedure DeleteAllClick(Sender: TObject);
  procedure MapEditMenuClick(Sender: TObject);
+ procedure TMTPaletteExportClick(Sender: TObject);
  procedure OpenWatcomCClick(Sender: TObject);
  procedure PaletteExportOWCClick(Sender: TObject);
  procedure PaletteXGA256Click(Sender: TObject);
@@ -372,6 +376,7 @@ TRMMainForm = class(TForm)
  procedure RESExportClick(Sender: TObject);
  procedure FileDeleteClick(Sender: TObject);
  procedure SaveProjectFileClick(Sender: TObject);
+ procedure TMTPaletteCommandsClick(Sender: TObject);
  procedure ToolEllipseMenuClick(Sender: TObject);
  procedure PaletteExportQuickCClick(Sender: TObject);
  procedure PaletteExportTurboCClick(Sender: TObject);
@@ -670,7 +675,6 @@ procedure TRMMainForm.ToolScrollDownMenuClick(Sender: TObject);
  ca : TClipAreaRec;
 begin
  RMDrawTools.GetClipAreaCoords(ca);
- ClearClipAreaOutline;
  RMDrawTools.ScrollDown(ca.x,ca.y,ca.x2,ca.y2);
  UpdateActualArea;
  UpdateZoomArea;
@@ -682,7 +686,6 @@ procedure TRMMainForm.ToolScrollLeftMenuClick(Sender: TObject);
  ca : TClipAreaRec;
 begin
  RMDrawTools.GetClipAreaCoords(ca);
- ClearClipAreaOutline;
  RMDrawTools.ScrollLeft(ca.x,ca.y,ca.x2,ca.y2);
  UpdateActualArea;
  UpdateZoomArea;
@@ -2594,6 +2597,8 @@ function TRMMainForm.ExportPaletteTextFileToClipboard(Sender: TObject; ColorForm
  'TPPaletteCommands' : error:=WritePalStatements(FileName,TPLan,ColorFormat);
  'FPPaletteArray' : error:=WritePalConstants(FileName,FPLan,ColorFormat);
  'FPPaletteCommands' : error:=WritePalStatements(FileName,FPLan,ColorFormat);
+ 'TMTPaletteArray' : error:=WritePalConstants(FileName,TMTLan,ColorEightBitFormat);
+ 'TMTPaletteCommands' : error:=WritePalStatements(FileName,TMTLan,ColorEightBitFormat);
 
  'GWPaletteData' : error:=WritePalData(FileName,GWLan,ColorFormat);
  'GWPaletteCommands' : error:=WritePalStatements(FileName,GWLan,ColorFormat);
@@ -3339,6 +3344,7 @@ procedure TRMMainForm.PaletteExportGWBasicClick(Sender: TObject);
  end;
 end;
 
+
 procedure TRMMainForm.PaletteExportTurboPascalClick(Sender: TObject);
 var
  pm : integer;
@@ -3349,6 +3355,9 @@ procedure TRMMainForm.PaletteExportTurboPascalClick(Sender: TObject);
  'TPPaletteCommands' : ExportDialog.Filter :='Turbo Pascal Palette Commands|*.pas';
  'FPPaletteArray' : ExportDialog.Filter := 'FreePascal Palette Array|*.pas';
  'FPPaletteCommands' : ExportDialog.Filter :='FreePascal Palette Commands|*.pas';
+ 'TMTPaletteArray' : ExportDialog.Filter := 'TMT Pascal Palette Array|*.pas';
+ 'TMTPaletteCommands' : ExportDialog.Filter :='TMT Pascal Palette Commands|*.pas';
+
  end;
 
  ColorFormat:=ColorEightBitFormat;
@@ -3359,11 +3368,13 @@ procedure TRMMainForm.PaletteExportTurboPascalClick(Sender: TObject);
 
  if ExportDialog.Execute then
  begin
-
  Case (Sender As TMenuItem).Name of 'TPPaletteArray' : error:=WritePalConstants(ExportDialog.FileName,TPLan,ColorFormat);
  'TPPaletteCommands' : error:=WritePalStatements(ExportDialog.FileName,TPLan,ColorFormat);
  'FPPaletteArray' : error:=WritePalConstants(ExportDialog.FileName,FPLan,ColorFormat);
  'FPPaletteCommands' : error:=WritePalStatements(ExportDialog.FileName,FPLan,ColorFormat);
+ 'TMTPaletteArray' : error:=WritePalConstants(ExportDialog.FileName,TMTLan,ColorEightBitFormat);
+ 'TMTPaletteCommands' : error:=WritePalStatements(ExportDialog.FileName,TMTLan,ColorEightBitFormat);
+
  end;
 
  if error<>0 then
@@ -3595,6 +3606,11 @@ procedure TRMMainForm.MapEditMenuClick(Sender: TObject);
  MapEdit.WindowState:=wsNormal;
 end;
 
+procedure TRMMainForm.TMTPaletteExportClick(Sender: TObject);
+begin
+
+end;
+
 procedure TRMMainForm.RayLibExportClick(Sender: TObject);
 var
  x,y,x2,y2 : integer;
@@ -4024,6 +4040,13 @@ procedure TRMMainForm.SaveProjectFileClick(Sender: TObject);
  end;
 end;
 
+procedure TRMMainForm.TMTPaletteCommandsClick(Sender: TObject);
+begin
+
+end;
+
+
+
 procedure TRMMainForm.NewClick(Sender: TObject);
 begin
  if ImageThumbBase.GetCount >= MaxThumbImages then exit;

rwpal.pas

@@ -87,6 +87,7 @@ function LanToStr(Lan: integer) : string;
  FPLan:LanToStr:='FreePascal';
  OWLan:LanToStr:='Open Watcom C';
  BAMLan:LanToStr:='BAM Basic';
+ TMTLan:LanToStr:='TMT Pascal';
 
  end;
 end;
@@ -98,7 +99,7 @@ function PaletteCmdToStr(Lan,ColorFormat : integer) : string;
  begin
  PaletteCmdToStr:='SetPalette(';
  end
- else if (Lan=TPLan) OR (Lan=FPLan) then
+ else if (Lan=TPLan) OR (Lan=FPLan) OR (Lan=TMTLan) then
  begin
  PaletteCmdToStr:='SetRGBPalette(';
  end
@@ -127,23 +128,23 @@ function PaletteCmdToStr(Lan,ColorFormat : integer) : string;
 function LineTrmToStr(Lan : integer) : string;
 begin
  LineTrmToStr:='';
- Case Lan of QPLan,TPLan,FPLan,APLan:LineTrmToStr:=');';
+ Case Lan of QPLan,TPLan,FPLan,TMTLan,APLan:LineTrmToStr:=');';
  TCLan,QCLan,ACLan,OWLan:LineTrmToStr:='};';
  end;
 end;
 
 function CommentBeginToStr(Lan : integer) : string;
 begin
  CommentBeginToStr:=#39;
- Case Lan of QPLan,TPLan,FPLan,APLan:CommentBeginToStr:='(*';
+ Case Lan of QPLan,TPLan,FPLan,TMTLan,APLan:CommentBeginToStr:='(*';
  TCLan,QCLan,ACLan,OWLan:CommentBeginToStr:='/*';
  end;
 end;
 
 function CommentEndToStr(Lan : integer) : string;
 begin
  CommentEndToStr:='';
- Case Lan of QPLan,TPLan,FPLan,APLan:CommentEndToStr:='*)';
+ Case Lan of QPLan,TPLan,FPLan,TMTLan,APLan:CommentEndToStr:='*)';
  TCLan,QCLan,ACLan,OWLan:CommentEndToStr:='*/';
  end;
 end;
@@ -238,7 +239,7 @@ function WritePalConstants(filename : string; Lan,rgbFormat : integer) : word;
  begin
  arraysize:=Ncolors*3;
  end;
- If (Lan=TPlan) OR (Lan =FPLan) OR (Lan=QPlan) OR (Lan = APLan) then
+ If (Lan=TPlan) OR (Lan =FPLan) OR (Lan=QPlan) OR (Lan=TMTlan) OR (Lan = APLan) then
  begin
  Writeln(F,palettenamestr, ' : array[0..',arraysize-1,'] of byte = (');
  end