Hallo
.
Ich versuche vergebens mit Delphi auf dem Canvas von mspaint zu zeichnen.
Ich versuche momentan folgendermaßen ein Rechteck zu zeichnen:
Delphi-Quellcode:
var
test : TBitmap;
paint : hwnd;
begin
paint := FindWindow(NIL,'untitled - Paint');
CloseWindow(paint);
test := TBitmap.Create;
test.Canvas.Handle := paint;
test.canvas.Brush.Color := CLBLACK;
test.Canvas.Rectangle(10,10,100,100);
end;
Zuerst suche ich mit FindWindow das Window
Handle von mspaint, das funktioniert auch.
Dann weise ich dem canvas meiner bitmap das
handle von mspaint zu.
Allerdings wird nichts gezeichnet, gibt auch keine Fehlermeldung oder dergleichen.
Habt ihr ne Idee woran das liegen könnte ?
~stift