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

something new...:)

Browse Source
This commit is contained in:
zueuk
2006-01-05 18:38:34 +00:00
parent 5ee487cc41
commit e3d705bd3d
11 changed files with 129 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
2.10/Source/Adjust.pas
View File

@ -250,6 +250,7 @@ type
procedure btnApplySizeClick(Sender: TObject);
procedure mnuInstantPreviewClick(Sender: TObject);
procedure editPPUKeyPress(Sender: TObject; var Key: Char);
procedure editPPUValidate(Sender: TObject);
private
Resetting: boolean;
@ -375,7 +376,7 @@ begin
BackupPal := cp.cmap;
Resetting := False;
editPPU.Text := FloatToStr(cp.pixels_per_unit);
editPPU.Text := Format('%.6g', [cp.pixels_per_unit]);
end; //***
DrawPreview;
end;
@ -1886,22 +1887,27 @@ begin
end;
procedure TAdjustForm.editPPUKeyPress(Sender: TObject; var Key: Char);
var
t: double;
begin
if key=#13 then
begin
key := #0;
try
t:=strtofloat(editPPU.Text);
except
exit;
end;
MainForm.UpdateUndo;
cp.pixels_per_unit:=t;
UpdateFlame;
editPPUValidate(Sender);
end;
end;
procedure TAdjustForm.editPPUValidate(Sender: TObject);
var
v: double;
begin
try
v := strtofloat(editPPU.Text);
except
exit;
end;
MainForm.UpdateUndo;
cp.pixels_per_unit := v;
UpdateFlame;
end;
end.