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

TriangleGraph.pas - obsolete...

Browse Source
This commit is contained in:
zueuk 2005-09-15 14:27:06 +00:00
parent 09e406a927
commit a485b49738
1 changed files with 0 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
2.10/Source/TriangleGraph.pas
View File

@ -1,77 +0,0 @@
unit TriangleGraph;
interface
uses
Classes, Controls, Messages, Windows, Graphics;
type
TTriangleGraph = class(TWinControl)
private
FOnPaint: TNotifyEvent;
FCanvas: TCanvas;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
protected
procedure PaintWindow(DC: HDC); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Paint; virtual;
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
property Canvas: TCanvas read FCanvas;
property OnDblClick;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
implementation
constructor TTriangleGraph.Create(AOwner: TComponent);
begin
inherited;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
end;
destructor TTriangleGraph.Destroy;
begin
FCanvas.Free;
inherited;
end;
procedure TTriangleGraph.Paint;
begin
if Assigned(FOnPaint) then FOnPaint(Self);
end;
procedure TTriangleGraph.PaintWindow(DC: HDC);
begin
FCanvas.Handle := DC;
try
Paint;
finally
FCanvas.Handle := 0;
end;
end;
procedure TTriangleGraph.WMPaint(var Message: TWMPaint);
begin
PaintHandler(Message);
end;
end.