Canvas в новом компоненте

[vova65]

Здравствуйте!
при создании нового компонента возникла проблема в:

constructor TDiv_H.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCanvas := TCanvas.Create;
  FCanvas.Brush.Color := clFuchsia;
  FCanvas.Rectangle(0,0,10,10);
  Width := 50;
  Height := 50;
  FMEStatus:=false;
end;

на строке:

FCanvas.Rectangle(0,0,10,10);

выскакивает ошибка "canvas does not allow drawing".
подскажите пожалуйста где я напартачил?

[vova65]

вот весь код:

unit Div_H;

interface

uses
  SysUtils, Classes, Controls, Graphics, StdCtrls, Messages;

type TNotifyEvent = procedure (Sender: TObject) of object;
type
  TDiv_H = class(TGraphicControl)
  private
    { Private declarations }
    FOnMouseOver: TNotifyEvent;
    FOnMouseOut: TNotifyEvent;
    FOnMouseLDown: TNotifyEvent;
    FOnMouseRDown: TNotifyEvent;
    FOnMouseLUp: TNotifyEvent;
    FOnMouseRUp: TNotifyEvent;
    FCanvas: TCanvas;
    FMEStatus: Boolean;
    procedure CMMouseLeave(var msg:TMessage); message cm_mouseleave;
    procedure CMMouseEnter(var msg:TMessage); message cm_mouseenter;
    procedure WMLD(var msg:TMessage); message  WM_LBUTTONDOWN;
    procedure WMRD(var msg:TMessage); message  WM_RBUTTONDOWN;
    procedure WMLU(var msg:TMessage); message  WM_LBUTTONUP;
    procedure WMRU(var msg:TMessage); message  WM_RBUTTONUP;
  protected
    { Protected declarations }
  public
    { Public declarations }
  property Canvas: TControlCanvas read FCanvas write FCanvas;
  published
    { Published declarations }
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  property OnMouseOut: TNotifyEvent read FOnMouseOut write FOnMouseOut;
  property OnMouseOver: TNotifyEvent read FOnMouseOver write FOnMouseOver;
  property OnMouseLDown: TNotifyEvent read FOnMouseLDown write FOnMouseLDown;
  property OnMouseRDown: TNotifyEvent read FOnMouseRDown write FOnMouseRDown;
  property OnMouseLUp: TNotifyEvent read FOnMouseLUp write FOnMouseLUp;
  property OnMouseRUp: TNotifyEvent read FOnMouseRUp write FOnMouseRUp;
end;



procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TDiv_H]);
end;

procedure TDiv_H.CMMouseEnter(var msg: TMessage);
begin
 if not FMEStatus then
 begin
 FMEStatus:=true;
 if Assigned(FOnMouseOver) then FOnMouseOver(Self);
 end;
end;

procedure TDiv_H.CMMouseLeave(var msg: TMessage);
begin
 if FMEStatus then
 begin
 FMEStatus:=false;
 if Assigned(FOnMouseOut) then FOnMouseOut(Self);
 end;
end;




constructor TDiv_H.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCanvas:= TCanvas.Create;
  FCanvas.TextExtent('11');
  Width := 50;
  Height := 50;
  FMEStatus:=false;
end;


destructor TDiv_H.Destroy;
begin

  inherited Destroy;
end;

procedure TDiv_H.WMLD(var msg: TMessage);
begin
if Assigned(FOnMouseLDown) then FOnMouseLDown(Self);
end;

procedure TDiv_H.WMLU(var msg: TMessage);
begin
if Assigned(FOnMouseLUp) then FOnMouseLUp(Self);
end;

procedure TDiv_H.WMRD(var msg: TMessage);
begin
if Assigned(FOnMouseRDown) then FOnMouseRDown(Self);
end;

procedure TDiv_H.WMRU(var msg: TMessage);
begin
if Assigned(FOnMouseRUp) then FOnMouseRUp(Self);
end;

end.

[evg_m]

выскакивает ошибка "canvas does not allow drawing".
подскажите пожалуйста где я напартачил?

FCanvas := TCanvas.Create;

на самом деле рисует не ваш компонент, а WindowsAPI. А TCanvas только передает ему данные.

неужели сложно пройти по двум ссылкам в коде
canvas.Rectange -->

procedure TCanvas.RequiredState(ReqState: TCanvasState);
var
  NeededState: TCanvasState;
begin
  NeededState := ReqState - State;
  if NeededState <> [] then
  begin
    if csHandleValid in NeededState then
    begin
      CreateHandle;
      if FHandle = 0 then
        raise EInvalidOperation.CreateRes(@SNoCanvasHandle);
    end;
    if csFontValid in NeededState then CreateFont;
    if csPenValid in NeededState then CreatePen;
    if csBrushValid in NeededState then CreateBrush;
    State := State + NeededState;
  end;
end;

TDiv_H = class(TGraphicControl)
private
{ Private declarations }
FOnMouseOver: TNotifyEvent;
FOnMouseOut: TNotifyEvent;
FOnMouseLDown: TNotifyEvent;
FOnMouseRDown: TNotifyEvent;
FOnMouseLUp: TNotifyEvent;
FOnMouseRUp: TNotifyEvent;
FCanvas: TCanvas;

TGraficControl уже имеет свой объект (и свойство) Canvas правильно инициализированное им и надо пользоваться! А не создавать свои без веских на то причин!

[vova65]

Сообщение от evg_m

FCanvas := TCanvas.Create;

на самом деле рисует не ваш компонент, а WindowsAPI. А TCanvas только передает ему данные.

неужели сложно пройти по двум ссылкам в коде
canvas.Rectange -->

procedure TCanvas.RequiredState(ReqState: TCanvasState);
var
  NeededState: TCanvasState;
begin
  NeededState := ReqState - State;
  if NeededState <> [] then
  begin
    if csHandleValid in NeededState then
    begin
      CreateHandle;
      if FHandle = 0 then
        raise EInvalidOperation.CreateRes(@SNoCanvasHandle);
    end;
    if csFontValid in NeededState then CreateFont;
    if csPenValid in NeededState then CreatePen;
    if csBrushValid in NeededState then CreateBrush;
    State := State + NeededState;
  end;
end;

TDiv_H = class(TGraphicControl)
private
{ Private declarations }
FOnMouseOver: TNotifyEvent;
FOnMouseOut: TNotifyEvent;
FOnMouseLDown: TNotifyEvent;
FOnMouseRDown: TNotifyEvent;
FOnMouseLUp: TNotifyEvent;
FOnMouseRUp: TNotifyEvent;
FCanvas: TCanvas;

TGraficControl уже имеет свой объект (и свойство) Canvas правильно инициализированное им и надо пользоваться! А не создавать свои без веских на то причин!

Спасибо! Просто у меня небольшой опыт программирования в delphi...

У меня походу возник новый вопрос.. Где можно найти исходники класса TBitmap?

[evg_m]

Где можно найти исходники класса TBitmap?

Там же где и все остальные исходники Delphi.
Programs Files/Delphi/Source....
или так
1. пишем var x: TBitmap;
2. наводим мышку на Tbitmap;
3. нажимаем Ctrl + Left Mouse
и вот они исходники!

[vova65]

Сообщение от evg_m

Там же где и все остальные исходники Delphi.
Programs Files/Delphi/Source....
или так
1. пишем var x: TBitmap;
2. наводим мышку на Tbitmap;
3. нажимаем Ctrl + Left Mouse
и вот они исходники!

Спасибо!!!