800x600
Delphi-Quellcode:
if ( Assigned(myBitmap)) then
begin
ClientWidth := myBitmap.Width;
ClientHeight := myBitmap.Height;
// ClientWidth := 200;
// ClientHeight := 200;
Canvas.Draw( 0, 0, MyBitmap );
invalidate();
end
else messagebox(0,pchar('no Bitmap'),nil,0)
funktioniert ebenfalls nicht - sobald ich aber ein anderes fenster drüber fahre gehts ( klar wegen onpaint).
edit:
jetzt mal ganz im ernst - das ist doch irgend so eine kleinigkeit die ich nicht weiß.
ich hab jetzt einfach mal das programm gestartet und einen button eingefügt:
Delphi-Quellcode:
procedure TfMain.Button2Click(Sender: TObject);
begin
fVideo.ClientHeight := 500;
fVideo.ClientWidth := 500;
fVideo.Invalidate;
end;
da tut sich nichts auf der form fVideo.
also hab ich irgend so eine kleinigkeit falsch und die sourcen sind es nicht sonder irgend etwas anderes