wm_paint

Borrisholt viste mig en måde at tilføre canvas property til en panel. Problemet var bare at mine paneler ikke blev tegnet i opstarts proceduren. Jeg valgte derfor at tvinge proceduren gennem en TTimer og på den måde tegne mine paneler. Jeg har imellemtiden fundet ud af at hvis jeg lader min application få besked fra API\'en om en wm_paint så vil mine paneler blive tegnet fra starten (og jeg er fri for at min application skal bruge unødig resourcer). Men noget har undret mig meget:

1. Hvorfor modtager min application ikke en wm_paint besked når jeg eksempelvis flytter min application uden for skærmen og når min application har været minimeret?

2. Min application indeholder 6 paneler. Alle paneler på nær Panel1 bliver tegnet i opstarts proceduren (ellers bliver de alle tegnet ens) hvorfor?

Her et min kode:

...

var
  Form1: TForm1;
  pan01, pan02, pan03, pan04, pan05, pan06,
  skin : Tbitmap;
implementation

{$R *.DFM}

type
  Tcanvascontrol = class(Tcustomcontrol)
    property canvas;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.onmessage := appmessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (msg.message = wm_paint) then
    begin
      //handled := true;
      formpaint(nil);
    end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  canvas.draw(0,0,skin);                //tegner bitmap på form1

  //tegner bitmaps på mine panel\'er
  Tcanvascontrol(panel1).canvas.draw(0,0,pan01);
  Tcanvascontrol(panel2).canvas.draw(0,0,pan02);
  Tcanvascontrol(panel3).canvas.draw(0,0,pan03);
  Tcanvascontrol(panel4).canvas.draw(0,0,pan04);
  Tcanvascontrol(panel5).canvas.draw(0,0,pan05);
  Tcanvascontrol(panel6).canvas.draw(0,0,pan06);
end;

...

ZeroHero