VPF::Преобразование классов - Форум программистов

wesadex

Дата 19.10.2005, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 21.6.2005

Репутация: нет
Всего: нет

Переделал класс TImage, сделав событие OnPaint публичным.. Нужно написать универсальный обработчик этого события для TPaintBox и для TImage... а то получается два одинаковых куска кода, а это нехорошо:

Код


procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
    with (Sender as TPaintBox) do begin
                                                    //всякие манипуляции с канвой 
                                                    end;
end;    

и

procedure TForm1.ImageEx1Paint(Sender: TObject);
begin
    with (Sender as TImageEx) do begin
                                                    //точно такие же манипуляции с канвой 
                                                    end;
end;

Помогите плииз объединить все это в одно... Я пробовал обращаться к классу, которому наследуют оба описанных: (Sender as TGraphicControl), но тогда прорисовки не происходит...

Rennigth

Дата 19.10.2005, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

wesadex
вот набросал, так пойдет?

Код



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TImageEx = class(TImage)
  protected
    procedure Paint; override;
  end;

  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
  private
    FImage: TImageEx;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TImageEx }

procedure DoPaintControl(ACanvas: TCanvas; ARect: TRect);
begin
  if Assigned(ACanvas) then
  begin
    ACanvas.Brush.Color := clRed;
    ACanvas.FillRect(ARect);
  end;
end;

procedure TImageEx.Paint;
begin
  inherited;
  DoPaintControl(Canvas, ClientRect);
end;

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  FImage := TImageEx.Create(Self);
  FImage.Parent := Self;
  DoubleBuffered := True;
end;

destructor TForm1.Destroy;
begin
  FreeAndNil(FImage);
  inherited;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  DoPaintControl(PaintBox1.Canvas, PaintBox1.ClientRect);
end;

end.

--------------------

(* Honesta mors turpi vita potior *)

wesadex

Дата 21.10.2005, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 21.6.2005

Репутация: нет
Всего: нет

О, спасибо, мил человек! Я видимо совсем заработался, если сам не догадался один и тот же код в процедуру запихать и передавать в нее не объект, а его канву... Спасибо! smile

Это сообщение отредактировал(а) wesadex - 21.10.2005, 10:07

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »