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

FR1183940 Added triangle rotation functions in the editors popup menu.

Browse Source
This commit is contained in:
utak3r
2005-05-02 05:49:35 +00:00
parent f95b97816a
commit ab38cb21bb
2 changed files with 38 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
2.10/Source/Editor.pas
View File

@ -109,6 +109,9 @@ type
chkUseXFormColor: TCheckBox;
chkFlameBack: TCheckBox;
pnlReference: TPanel;
N2: TMenuItem;
mnuRotateRight: TMenuItem;
mnuRotateLeft: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure GraphImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: integer);
@ -162,6 +165,8 @@ type
procedure VEVarsExit(Sender: TObject);
procedure VEVarsValidate(Sender: TObject; ACol, ARow: Integer;
const KeyName, KeyValue: String);
procedure mnuRotateRightClick(Sender: TObject);
procedure mnuRotateLeftClick(Sender: TObject);
private
bm: TBitmap;
cmap: TColorMap;
@ -1009,6 +1014,20 @@ begin
HasChanged := False;
end;
procedure TEditForm.mnuRotateRightClick(Sender: TObject);
begin
MainTriangles[SelectedTriangle] := RotateTriangleCenter(MainTriangles[SelectedTriangle], -(PI / 20));
HasChanged := True;
UpdateFlame(False);
end;
procedure TEditForm.mnuRotateLeftClick(Sender: TObject);
begin
MainTriangles[SelectedTriangle] := RotateTriangleCenter(MainTriangles[SelectedTriangle], PI / 20);
HasChanged := True;
UpdateFlame(False);
end;
procedure TEditForm.FormShow(Sender: TObject);
var
Registry: TRegistry;