Class TRTDPMainForm_CSL (unit Main) |
Inherits from
TForm
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);
property DesignMode : Boolean
property InsertComponentClass : TComponentClass
property Inserting : Boolean
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;
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);
property DesignMode : Boolean
property InsertComponentClass : TComponentClass
property Inserting : Boolean
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;