Delphi-6 - среда разработки программного обеспечения для систем промышленной автоматизации. Букреев В.Г - 76 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

procedure Copy; stdcall;
procedure Cut; stdcall;
procedure Paste; stdcall;
function Undo:, Boolean; stdcall;
procedure Delete; stdcall;
end;
В любом случае в разделе реализации интерфейсного класса необходи-
мо описать соответствующие интерфейсные методы. Если, например,
объявлен интерфейс
IPaint = interface
procedure CirclePaint(Canva: TCanvas; X,Y,R: Integer);
procedure RectPaint(Canva: TCanvas; X1,Y1,X2,Y2: Integer);
end;
и использующий его интерфейсный класс
TPainter = class(TInterfacedObject,IPaint)
procedure CirclePaint(Canva: TCanvas; X,Y,R: Integers);
procedure RectPaint(Canva: TCanvas; X1,Y1,X2,Y2: Integer);
end;
то в разделе implementation следует указать реализацию методов:
procedure TPainter.CirclePaint(Canva: TCanvas;
X,Y,R: Integers);
begin
with Canva do
Ellipse(X, Y, X+2*R, Y+2*R);
end;
procedure TPainter.RectPaint(Canva: TCanvas;
X1,Y1,X2,Y2: Integer);
begin
with Canva do
Rectangle(XI, Yl, X2, Y2)
end;
Теперь можно объявить интерфейсный объект класса TPainter, чтобы с
его помощью нарисовать окружность и квадрат:
procedure TFormI.PaintBoxIPaint(Sender: TObject);
var
Painter: IPaint;
begin
Painter:= TPainter.Create;
Painter.CirclePaint(PaintBoxl.Canvas,10,0,10);
76

Страницы