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
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