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

some editor changes & fixes

Browse Source
This commit is contained in:
zueuk 2005-09-21 13:42:24 +00:00
parent 6f6de8c723
commit 7bedaf4218
4 changed files with 377 additions and 410 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
2.10/Source/CustomDrawControl.pas
View File

@ -11,8 +11,8 @@ type
FOnPaint: TNotifyEvent;
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
// procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
// procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
procedure WMGetDlgCode(var Message: TMessage); message WM_GETDLGCODE;
protected
@ -25,7 +25,7 @@ type
property OnDblClick;
property OnKeyDown;
// property OnKeyPress;
// property OnKeyUp;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
@ -43,7 +43,6 @@ begin
Message.Result := 1;
end;
{
procedure TCustomDrawControl.WMSetFocus(var Message: TWMSetFocus);
begin
Invalidate;
@ -51,9 +50,9 @@ end;
procedure TCustomDrawControl.WMKillFocus(var Message: TWMKillFocus);
begin
if assigned(OnExit) then OnExit(self);
Invalidate;
end;
}
procedure TCustomDrawControl.WMGetDlgCode(var Message: TMessage);
begin

29
2.10/Source/Editor.dfm
View File

@ -46,6 +46,8 @@ object EditForm: TEditForm
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = EditKeyDown
OnKeyPress = EditKeyPress
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
@ -172,9 +174,12 @@ object EditForm: TEditForm
Top = 0
Hint = 'Move Triangle'
Caption = 'Move'
Down = True
Grouped = True
ImageIndex = 6
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = tbEditModeClick
end
object tbRotate: TToolButton
@ -182,9 +187,11 @@ object EditForm: TEditForm
Top = 0
Hint = 'Rotate triangle'
Caption = 'Rotate'
Grouped = True
ImageIndex = 7
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = tbEditModeClick
end
object tbScale: TToolButton
@ -192,9 +199,11 @@ object EditForm: TEditForm
Top = 0
Hint = 'Scale triangle'
Caption = 'Scale'
Grouped = True
ImageIndex = 8
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = tbEditModeClick
end
object ToolButton5: TToolButton
@ -1092,6 +1101,8 @@ object EditForm: TEditForm
ItemIndex = 3
TabOrder = 9
Text = '0.1'
OnExit = txtValidateValue
OnKeyPress = txtValKeyPress
Items.Strings = (
'1'
'0.5'
@ -1110,6 +1121,8 @@ object EditForm: TEditForm
ItemIndex = 1
TabOrder = 8
Text = '15'
OnExit = txtValidateValue
OnKeyPress = txtValKeyPress
Items.Strings = (
'5'
'15'
@ -1126,14 +1139,16 @@ object EditForm: TEditForm
ItemHeight = 13
ItemIndex = 1
TabOrder = 10
Text = '0.1'
Text = '110'
OnExit = txtValidateValue
OnKeyPress = txtValKeyPress
Items.Strings = (
'0.05'
'0.1'
'0.25'
'0.5'
'0.75'
'0.9')
'105'
'110'
'125'
'150'
'175'
'200')
end
end
end

742
2.10/Source/Editor.pas
View File

File diff suppressed because it is too large Load Diff

7
2.10/Source/Main.pas
View File

@ -1802,9 +1802,6 @@ begin
if EditForm.Visible then EditForm.UpdateDisplay(true); // preview only
end;
if AdjustForm.Visible then AdjustForm.UpdateDisplay;
//z GradientForm.DrawPreview;
// following needed ?
// cp.Zoom := Zoom;
// cp.center[0] := center[0];
@ -3302,11 +3299,9 @@ begin
StopThread;
UpdateUndo;
maincp.cmap := Pal;
// gradientForm.UpdateGradient(Pal);
{if AdjustForm.visible then} AdjustForm.UpdateGradient(maincp.cmap);
AdjustForm.UpdateGradient(maincp.cmap);
if EditForm.Visible then EditForm.UpdateDisplay;
// if AdjustForm.Visible then AdjustForm.UpdateDisplay;
if MutateForm.Visible then MutateForm.UpdateDisplay;
RedrawTimer.enabled := true;