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

*** empty log message ***

Browse Source
This commit is contained in:
ronaldhordijk
2005-01-29 11:12:22 +00:00
parent 1700c89380
commit 18c3fbfc97
15 changed files with 405 additions and 6050 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
2.02g/Source/Main.pas
View File

@ -221,6 +221,8 @@ type
tbzoomwindow: TToolButton;
tbDrag: TToolButton;
tbRotate: TToolButton;
mnuimage: TMenuItem;
procedure mnuimageClick(Sender: TObject);
procedure mnuExitClick(Sender: TObject);
procedure mnuSaveUPRClick(Sender: TObject);
procedure ListViewChange(Sender: TObject; Item: TListItem;
@ -906,8 +908,9 @@ begin
Trunc((Elapsed * 24 - Trunc(Elapsed * 24)) * 60),
Trunc((Elapsed * 24 * 60 - Trunc(Elapsed * 24 * 60)) * 60),
Trunc((Elapsed * 24 * 60 * 60 - Trunc(Elapsed * 24 * 60 * 60)) * 100)]);
if prog > 0 then
if prog > 0 then
Remainder := Min(Remainder, Elapsed * (power(1 / prog, 1.2) - 1));
StatusBar.Panels[1].Text := Format('Remaining %2.2d:%2.2d:%2.2d.%2.2d',
[Trunc(Remainder * 24),
Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60),
@ -3100,6 +3103,12 @@ begin
GradientForm.Show;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TMainForm.mnuimageClick(Sender: TObject);
begin
// frmImageColoring.Show;
end;
procedure swapcolor(var clist: array of cardinal; i, j: integer);
var
t: cardinal;
@ -4377,7 +4386,9 @@ begin
StopThread;
UpdateUndo;
MainCp.ZoomtoRect(FSelectRect);
DrawFlame;
RedrawTimer.Enabled := True;
UpdateWindows;
end;
msDragMove:
begin
@ -4393,7 +4404,9 @@ begin
StopThread;
UpdateUndo;
MainCp.MoveRect(FSelectRect);
DrawFlame;
RedrawTimer.Enabled := True;
UpdateWindows;
end;
msRotateMove:
begin
@ -4407,7 +4420,9 @@ begin
StopThread;
UpdateUndo;
MainCp.Rotate(FRotateAngle);
DrawFlame;
RedrawTimer.Enabled := True;
UpdateWindows;
end;
end;
end;
@ -4489,5 +4504,6 @@ begin
FMouseMoveState := msRotate;
end;
///////////////////////////////////////////////////////////////////////////////
end.