mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed Copy/Paste on scripting form

Browse Source
This commit is contained in:
ronaldhordijk 2005-07-23 09:12:28 +00:00
parent cd9ed111dd
commit 5872baafb0
2 changed files with 57 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.10/Source/ScriptForm.dfm
View File

@ -14,6 +14,7 @@ object ScriptEditor: TScriptEditor
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShortCut = FormShortCut
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13

57
2.10/Source/ScriptForm.pas
View File

@ -80,6 +80,7 @@ type
btnBreak: TToolButton;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -324,7 +325,7 @@ implementation
uses Main, Editor, Adjust, Global, Mutate, Registry, Preview,
ScriptRender, Gradient, ap_math, ap_classes, ap_sysutils, MyTypes,
SavePreset, ap_windows, ap_FileCtrl;
SavePreset, ap_windows, ap_FileCtrl, bmdll32;
{$R *.DFM}
@ -377,6 +378,8 @@ type
procedure CalculateBounds(AMachine: TatVirtualMachine);
procedure GetSaveFileName(AMachine: TatVirtualMachine);
procedure CopyFileProc(AMachine: TatVirtualMachine);
procedure BM_OpenProc(AMachine: TatVirtualMachine);
procedure BM_DllCFuncProc(AMachine: TatVirtualMachine);
procedure Init; override;
end;
@ -1164,6 +1167,9 @@ begin
Scripter.DefineMethod('NormalizeVars', 0, tkNone, nil, NormalizeVars);
Scripter.DefineMethod('GetSaveFileName', 0, tkString, nil, GetSaveFileName);
Scripter.DefineMethod('CopyFile', 2, tkString, nil, CopyFileProc);
Scripter.DefineMethod('BM_Open', 1, tkInteger, nil, BM_OpenProc);
Scripter.DefineMethod('BM_DllCFunc', 2, tkInteger, nil, BM_DllCFuncProc);
end;
procedure TOperationLibrary.RandomFlame(AMachine: TatVirtualMachine);
@ -1264,6 +1270,34 @@ begin
end;
end;
procedure TOperationLibrary.BM_OpenProc(AMachine: TatVirtualMachine);
var
Name: string;
begin
Name := AMachine.GetInputArgAsString(0);
if @bmdll32.Open <> nil then begin
AMachine.ReturnOutputArg(bmdll32.Open(Pchar(Name)));
end else begin
LastError := 'bmdll32.dll not loaded';
AMachine.Halt;
end;
end;
procedure TOperationLibrary.BM_DllCFuncProc(AMachine: TatVirtualMachine);
var
var1, var2: Integer;
begin
var1 := AMachine.GetInputArgAsInteger(0);
var2 := AMachine.GetInputArgAsInteger(1);
if @bmdll32.DllCFunc <> nil then begin
AMachine.ReturnOutputArg(bmdll32.DllCFunc(var1, var2));
end else begin
LastError := 'bmdll32.dll not loaded';
AMachine.Halt;
end;
end;
procedure TOperationLibrary.SetParamFileProc(AMachine: TatVirtualMachine);
var
@ -3034,5 +3068,26 @@ begin
Favorites.SaveToFile(AppPath + 'favorites');
end;
procedure TScriptEditor.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if GetKeyState(VK_CONTROL) >= 0 then
Exit;
if Msg.CharCode = Ord('C') then begin
Editor.CopyToClipBoard;
Handled := True;
end;
if Msg.CharCode = Ord('V') then begin
Editor.PasteFromClipBoard;
Handled := True;
end;
if Msg.CharCode = Ord('X') then begin
Editor.CutToClipBoard;
Handled := True;
end;
end;
end.