Форум программистов [Powered by Invision Power Board]

Цитата(CENTRALFORWARD @ 9.3.2008, 11:15

)

Подскажите, как быть с Canvas объекта Panel, т.к. при движение кнопок A,B,C и D он не обновляется, а только после перемещения?

Код


unit FPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, Messages;

type
  TFPanel = class(TPanel)
  private
    FOnMouseEnter, FOnMouseLeave, FOnPaint: TNotifyEvent;
    procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
     procedure Paint; override;
  public
    property Canvas;
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  end;

procedure Register;

implementation
                      
procedure Register;
begin
  RegisterComponents('MyComponent', [TFPanel]);
end;

{ TFPanel }

procedure TFPanel.CMMouseEnter(var msg: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TFPanel.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

procedure TFPanel.Paint;
begin
  inherited;
  if Assigned(FOnPaint) then FOnPaint(Self);
end;
end.

Код


  public
    property Canvas;

Цитата(CENTRALFORWARD @ 9.3.2008, 12:15

)

т.к. при движение кнопок A,B,C и D он не обновляется,

Цитата(ivan219 @ 9.3.2008, 16:57)

Цитата(CENTRALFORWARD @ 9.3.2008, 12:15

)

т.к. при движение кнопок A,B,C и D он не обновляется,

Правильно так как фокус на кнопке и в это время отрисовывается dxfConnectorW

Цитата(CENTRALFORWARD @ 9.3.2008, 17:38

)

И как же быть?

Цитата(ivan219 @ 9.3.2008, 18:31)

Цитата(CENTRALFORWARD @ 9.3.2008, 17:38

)

И как же быть?

Переписывать dxfConnection