hallo,
Ich möchte gerne in eine MessageBox etwas zeichnen, zb. einen Farbverlauf.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,f,r,g:Integer;
begin
with CreateMessageDialog('
Wie gehts ?',mtquestion,[mbyes,mbno])
do try
...
f:=Round(255/Height);
r:=0;
g:=255;
Canvas.Pen.Color:=
RGB(r,g,100);
FOR i:=0
TO Height
do begin
Canvas.MoveTo(0,i);
Canvas.LineTo(Width,i);
Inc(r,f);
Dec(g,f);
Canvas.Pen.Color:=
RGB(r,g,100);
end;
repaint;
...
finally
...
end;
end;
Ich habe diesen Code benutzt, um einen Farbverlauf in die MessageBox zu zeichnen. Aber es ist nur dieses schnöde Windowsgrau zu sehen. Keine Fehlermeldung vom Compiler.
Wäre schön, wenn mir jemand helfen könnte.