Class TRTDPMainForm_CSL (unit Main)

Inherits from

TForm

Constructors



Functions

procedure AlignToGridItemClick(Sender: TObject);

samfix this is BAAADDDDD but how else can we tell when form is GONE?

procedure BringToFrontItemClick(Sender: TObject);

copy selection to clipboard

procedure CheckBox1Click(Sender: TObject);


procedure CopyItemClick(Sender: TObject);

XXXX

procedure CutItemClick(Sender: TObject);


procedure DelButtonClick(Sender: TObject);


procedure DelItemClick(Sender: TObject);


procedure DFMtoTXTItemClick(Sender: TObject);


procedure FileCloseItemClick(Sender: TObject);

cut selection to clipboard

procedure FileExitItemClick(Sender: TObject);

save current file under new name

procedure FileNewItemClick(Sender: TObject);

Set our "Current Item" indicators to blank

procedure FileOpenItemClick(Sender: TObject);


procedure FileSaveAsItemClick(Sender: TObject);

SAMFIX should flush file here.

procedure FileSaveItemClick(Sender: TObject);

Again, check for exact TFORM class } { and some kind of designer

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure FullIntersectItemClick(Sender: TObject);


procedure HelpAboutItemClick(Sender: TObject);


procedure LiveDragItemClick(Sender: TObject);


procedure MinimizeAllItemClick(Sender: TObject);

Look for the first form in Screen.

procedure MinimizeallRuntimeItemClick(Sender: TObject);


procedure OnComponentClick(Sender: TObject);


procedure PasteItemClick(Sender: TObject);

copy selection to clipboard

Function PrepareClose(SaveOnly : Boolean) : Boolean;


procedure Run1Click(Sender: TObject);

samfix this is the closing of a runtime form } { remove window menu will happen in onclose

Function SaveForm(Form : TForm; SaveAs : Boolean) : Boolean;

Only designed to save forms with an editor - which contains the filename } { and file handle and other such stuff

procedure SendToBackItemClick(Sender: TObject);

copy selection to clipboard

procedure SetCaptiontoFilenameItemClick(Sender: TObject);


procedure ShowControlCentre1Click(Sender: TObject);


procedure ShowInspectorItemClick(Sender: TObject);

Here we need to close everything else and save it } { first make a list of forms

procedure SpeedButton2Click(Sender: TObject);

Now for menu items

procedure SpeedButton3Click(Sender: TObject);


procedure TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

drop the T

procedure TXTtoDFMItemClick(Sender: TObject);

delete the TXTHandle } { SAMFIX maybe not if its the best they've got.

procedure WindowArrangeItemClick(Sender: TObject);


procedure WindowCascadeItemClick(Sender: TObject);

paste from clipboard

procedure WindowTileItemClick(Sender: TObject);


Function CheckOverwrite(var Filename : TFilename) : boolean;

delete the DFMHandle } { SAMFIX maybe not if its the best they've got.

Function Closeform(Form : TForm; SaveOnly : Boolean) : Boolean;


Procedure ConvertDFMtoTXT(var DFMFilename: TFilename; TXTFilename : TFilename);


Procedure ConvertTXTtoDFM(var TXTFilename: TFilename; DFMFilename : TFilename);


Procedure CopyComponent(ComponentClass : TComponentClass);


Procedure EditStream(Stream : TStream; Editname : TFileName; Filehandle : Integer);

all opens come through this point

Procedure FlipInspector;


Function GetFormCaption(Form : TForm; MaxSize : Integer) : String;


Procedure GotInsert;


Function LoadFile(FileName : TFilename; var FileHandle : Integer; Permissions : Word) : TStream;

Return a stream for the file, also return a valid file handle - } { we are using windows file locking to stop others writing to the file

Procedure NewFromResources(ResourceName,NewName : String);

copy selection to clipboard

Procedure NotifyActiveForm(Form : TForm);

caption is filename but take filename, as it truncs better

Procedure RunFile(Filename : TFilename);

is it wise to do this blindly - yes, a dialog.

Function RunStream(Stream : TStream) : TForm;


Procedure SaveFile(Form : TForm; FileName : TFilename; Filehandle : Integer);

now we now we have a valid name and handle

Procedure ToBin(IfileName, OFilename : TFileName);


Function TopForm(RunTimeOnly : Boolean) : TForm;

Return the top level form which must either be a runtime form or an editform } { SAMFIX Currently these are TFORM only, we should change this to allow a special form } { which would save a lot of trouble, but cause a pain changing it

Procedure AddWindowmenu(Form : TForm; NewCaption : String; IsDesignBar : Boolean);

minimize all designer windows

procedure CreateComponentBar;


Function FindFormByFilename(Filename : TFilename) : TForm;

Check if there is a form DESIGNING whose associated filename is the given filename } { We don't do any checking to see if a file could be accessed by 2 names } { which might technically be possible with a convoluted network setup

Procedure FixEnabled;

disable buttons and menu items if no form is being edited

Procedure FreakMenu(Form : TForm);


Procedure FreeSizeInfo(Form : TForm);

scale size

Function GetFInserting : Boolean;

Function NextName : String;

Function TRTDPMainForm_CSL.


Function getnewName : TFilename;


Procedure MinimizeAll(DesignMode : Boolean);

if new form may be new edit needs inserting

Procedure OnADesignWindowClick(Sender : TObject);

is design form } { do <= not < as we have deleted it now and maybe moved runindex.

Procedure OnIdle(Sender: TObject; var Done: Boolean);


Procedure OpenFile(Filename : TFilename);

is it wise to do this blindly - yes, a dialog.

Procedure PrepareSizeInfo(Form : TForm);

is realign needed? I think not! Take it out } { Form.

Procedure ReleaseAllButtons;

Pop up the button!

Procedure RemoveWindowMenu(Form : TForm);

add one

procedure RenameWindowmenu(Form : TForm; NewCaption : String);

Make bar visible

procedure RuntimeFormClose(Sender: TObject; var Action: TCloseAction);

cut selection to clipboard

procedure RuntimeFormResize(Sender: TObject);

FormMenu:=GetSystemMenu(Form.

Procedure SetDesignmode(Value : Boolean);


Procedure ShowForm(Form : TForm);

Inspector.

Procedure WMGetMinMaxInfo(var Message : TWMGETMinMaxInfo);


Procedure WndProc(var Message: TMessage);


Properties

property DesignMode : Boolean


property InsertComponentClass : TComponentClass


property Inserting : Boolean


Events

Variables

AlignToGridItem : TMenuItem;


BringToFrontItem : TMenuItem;


CopyButton : TSpeedButton;


CopyItem : TMenuItem;


CutButton : TSpeedButton;


CutItem : TMenuItem;


DelButton : TSpeedButton;


DelItem : TMenuItem;


DesignBar : TMenuItem;


DFMtoTXTItem : TMenuItem;


Edit1 : TMenuItem;


EditForm : TLabel;


FileCloseItem : TMenuItem;


FileExitItem : TMenuItem;


FileItem : TMenuItem;


FileNewItem : TMenuItem;


FileOpenItem : TMenuItem;


FileSaveAsItem : TMenuItem;


FileSaveItem : TMenuItem;


FullIntersectItem : TMenuItem;


Help1 : TMenuItem;


HelpAboutItem : TMenuItem;


Label1 : TLabel;


LiveDragItem : TMenuItem;


MainMenu1 : TMainMenu;


MinimizeAllItem : TMenuItem;


N1 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


Notebook : TNotebook;


OpenBtn : TSpeedButton;


OpenDialog : TOpenDialog;


Options1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


PasteButton : TSpeedButton;


PasteItem : TMenuItem;


RunBar : TMenuItem;


SaveButton : TSpeedButton;


SaveDialog : TSaveDialog;


SendToBackItem : TMenuItem;


SetCaptiontoFilenameItem : TMenuItem;


ShowControlCentre1 : TMenuItem;


ShowInspectorItem : TMenuItem;


SpeedButton1 : TSpeedButton;


TabSet : TTabSet;


TXTtoDFMItem : TMenuItem;


Window1 : TMenuItem;


FMapName : TFileName;

Public declarations

FActiveDesigner : TFormEditor2;


FDesignMode : Boolean;


FDoneFirstShow : Boolean;


FInsertComponentClass : TComponentClass;


FnameCounter : Integer;


FObtainedCustom : Boolean;


FSpeedButton : TSpeedButton;


OldCaption : String;


Oldfilename : TFilename;


OldForm : TForm;



Constructors


Functions


procedure AlignToGridItemClick(Sender: TObject);

samfix this is BAAADDDDD but how else can we tell when form is GONE?


procedure BringToFrontItemClick(Sender: TObject);

copy selection to clipboard


procedure CheckBox1Click(Sender: TObject);


procedure CopyItemClick(Sender: TObject);

XXXX


procedure CutItemClick(Sender: TObject);


procedure DelButtonClick(Sender: TObject);


procedure DelItemClick(Sender: TObject);


procedure DFMtoTXTItemClick(Sender: TObject);


procedure FileCloseItemClick(Sender: TObject);

cut selection to clipboard


procedure FileExitItemClick(Sender: TObject);

save current file under new name


procedure FileNewItemClick(Sender: TObject);

Set our "Current Item" indicators to blank


procedure FileOpenItemClick(Sender: TObject);


procedure FileSaveAsItemClick(Sender: TObject);

SAMFIX should flush file here.... } { After a successful save, the form on file must be up to date, so....


procedure FileSaveItemClick(Sender: TObject);

Again, check for exact TFORM class } { and some kind of designer


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure FullIntersectItemClick(Sender: TObject);


procedure HelpAboutItemClick(Sender: TObject);


procedure LiveDragItemClick(Sender: TObject);


procedure MinimizeAllItemClick(Sender: TObject);

Look for the first form in Screen.Forms that is one of us! } { as changing minimized affects z order we must make a copy first


procedure MinimizeallRuntimeItemClick(Sender: TObject);


procedure OnComponentClick(Sender: TObject);


procedure PasteItemClick(Sender: TObject);

copy selection to clipboard


Function PrepareClose(SaveOnly : Boolean) : Boolean;


procedure Run1Click(Sender: TObject);

samfix this is the closing of a runtime form } { remove window menu will happen in onclose


Function SaveForm(Form : TForm; SaveAs : Boolean) : Boolean;

Only designed to save forms with an editor - which contains the filename } { and file handle and other such stuff


procedure SendToBackItemClick(Sender: TObject);

copy selection to clipboard


procedure SetCaptiontoFilenameItemClick(Sender: TObject);


procedure ShowControlCentre1Click(Sender: TObject);


procedure ShowInspectorItemClick(Sender: TObject);

Here we need to close everything else and save it } { first make a list of forms


procedure SpeedButton2Click(Sender: TObject);

Now for menu items


procedure SpeedButton3Click(Sender: TObject);


procedure TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

drop the T


procedure TXTtoDFMItemClick(Sender: TObject);

delete the TXTHandle } { SAMFIX maybe not if its the best they've got....


procedure WindowArrangeItemClick(Sender: TObject);


procedure WindowCascadeItemClick(Sender: TObject);

paste from clipboard


procedure WindowTileItemClick(Sender: TObject);


Function CheckOverwrite(var Filename : TFilename) : boolean;

delete the DFMHandle } { SAMFIX maybe not if its the best they've got....


Function Closeform(Form : TForm; SaveOnly : Boolean) : Boolean;


Procedure ConvertDFMtoTXT(var DFMFilename: TFilename; TXTFilename : TFilename);


Procedure ConvertTXTtoDFM(var TXTFilename: TFilename; DFMFilename : TFilename);


Procedure CopyComponent(ComponentClass : TComponentClass);


Procedure EditStream(Stream : TStream; Editname : TFileName; Filehandle : Integer);

all opens come through this point


Procedure FlipInspector;


Function GetFormCaption(Form : TForm; MaxSize : Integer) : String;


Procedure GotInsert;


Function LoadFile(FileName : TFilename; var FileHandle : Integer; Permissions : Word) : TStream;

Return a stream for the file, also return a valid file handle - } { we are using windows file locking to stop others writing to the file


Procedure NewFromResources(ResourceName,NewName : String);

copy selection to clipboard


Procedure NotifyActiveForm(Form : TForm);

caption is filename but take filename, as it truncs better


Procedure RunFile(Filename : TFilename);

is it wise to do this blindly - yes, a dialog.filename always has a path


Function RunStream(Stream : TStream) : TForm;


Procedure SaveFile(Form : TForm; FileName : TFilename; Filehandle : Integer);

now we now we have a valid name and handle


Procedure ToBin(IfileName, OFilename : TFileName);


Function TopForm(RunTimeOnly : Boolean) : TForm;

Return the top level form which must either be a runtime form or an editform } { SAMFIX Currently these are TFORM only, we should change this to allow a special form } { which would save a lot of trouble, but cause a pain changing it


Procedure AddWindowmenu(Form : TForm; NewCaption : String; IsDesignBar : Boolean);

minimize all designer windows


procedure CreateComponentBar;


Function FindFormByFilename(Filename : TFilename) : TForm;

Check if there is a form DESIGNING whose associated filename is the given filename } { We don't do any checking to see if a file could be accessed by 2 names } { which might technically be possible with a convoluted network setup


Procedure FixEnabled;

disable buttons and menu items if no form is being edited


Procedure FreakMenu(Form : TForm);


Procedure FreeSizeInfo(Form : TForm);

scale size


Function GetFInserting : Boolean;

Function NextName : String;

Function TRTDPMainForm_CSL.NextName; const NameCount : Integer=0; begin Inc(NameCount); Result:='Form_'+IntToStr(NameCount); end;


Function getnewName : TFilename;


Procedure MinimizeAll(DesignMode : Boolean);

if new form may be new edit needs inserting


Procedure OnADesignWindowClick(Sender : TObject);

is design form } { do <= not < as we have deleted it now and maybe moved runindex...


Procedure OnIdle(Sender: TObject; var Done: Boolean);


Procedure OpenFile(Filename : TFilename);

is it wise to do this blindly - yes, a dialog.filename always has a path


Procedure PrepareSizeInfo(Form : TForm);

is realign needed? I think not! Take it out } { Form.Realign;} { need to scale form based on original size info } { Form.AutoScroll:=AutoScrolling;


Procedure ReleaseAllButtons;

Pop up the button!


Procedure RemoveWindowMenu(Form : TForm);

add one


procedure RenameWindowmenu(Form : TForm; NewCaption : String);

Make bar visible


procedure RuntimeFormClose(Sender: TObject; var Action: TCloseAction);

cut selection to clipboard


procedure RuntimeFormResize(Sender: TObject);

FormMenu:=GetSystemMenu(Form.Handle,False); InsertMenu(FormMenu,0,mf_separator or mf_byposition,0,nil); InsertMenu(FormMenu,0,mf_enabled or mf_byposition,100,'&Run new form');


Procedure SetDesignmode(Value : Boolean);


Procedure ShowForm(Form : TForm);

Inspector.Active form is always the toplevel form } { Don't call this until the inspector is created


Procedure WMGetMinMaxInfo(var Message : TWMGETMinMaxInfo);


Procedure WndProc(var Message: TMessage);


Properties


property DesignMode : Boolean


property InsertComponentClass : TComponentClass


property Inserting : Boolean


Events


Variables


AlignToGridItem : TMenuItem;


BringToFrontItem : TMenuItem;


CopyButton : TSpeedButton;


CopyItem : TMenuItem;


CutButton : TSpeedButton;


CutItem : TMenuItem;


DelButton : TSpeedButton;


DelItem : TMenuItem;


DesignBar : TMenuItem;


DFMtoTXTItem : TMenuItem;


Edit1 : TMenuItem;


EditForm : TLabel;


FileCloseItem : TMenuItem;


FileExitItem : TMenuItem;


FileItem : TMenuItem;


FileNewItem : TMenuItem;


FileOpenItem : TMenuItem;


FileSaveAsItem : TMenuItem;


FileSaveItem : TMenuItem;


FullIntersectItem : TMenuItem;


Help1 : TMenuItem;


HelpAboutItem : TMenuItem;


Label1 : TLabel;


LiveDragItem : TMenuItem;


MainMenu1 : TMainMenu;


MinimizeAllItem : TMenuItem;


N1 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


Notebook : TNotebook;


OpenBtn : TSpeedButton;


OpenDialog : TOpenDialog;


Options1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


PasteButton : TSpeedButton;


PasteItem : TMenuItem;


RunBar : TMenuItem;


SaveButton : TSpeedButton;


SaveDialog : TSaveDialog;


SendToBackItem : TMenuItem;


SetCaptiontoFilenameItem : TMenuItem;


ShowControlCentre1 : TMenuItem;


ShowInspectorItem : TMenuItem;


SpeedButton1 : TSpeedButton;


TabSet : TTabSet;


TXTtoDFMItem : TMenuItem;


Window1 : TMenuItem;


FMapName : TFileName;

Public declarations


FActiveDesigner : TFormEditor2;


FDesignMode : Boolean;


FDoneFirstShow : Boolean;


FInsertComponentClass : TComponentClass;


FnameCounter : Integer;


FObtainedCustom : Boolean;


FSpeedButton : TSpeedButton;


OldCaption : String;


Oldfilename : TFilename;


OldForm : TForm;