Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Arnulf,
8. Apr 2008
ok - jetzt hab ichs.
ich hab einfach in der art noch nie mit 2 forms gearbeitet.
ich hab in form1 create - eine form2 erstellt und auf visible=true gesetzt.
damit hatte ich wohl 2 forms und eine runtime erstellt - also 3.
Dann ist es klar, warum beim onpaint event alles funktioniert hat, aber nicht wenn ich dirrekt was gezeichnet habe.
und ich bin nur drauf gekommen, weil ich einfach...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Arnulf,
8. Apr 2008
800x600
if ( Assigned(myBitmap)) then
begin
ClientWidth := myBitmap.Width;
ClientHeight := myBitmap.Height;
// ClientWidth := 200;
// ClientHeight := 200;
Canvas.Draw( 0, 0, MyBitmap );
invalidate();
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Arnulf,
8. Apr 2008
nein am waitstate liegts sicher nicht.
nachdem die receive funktion aufgerufen wird - und das bitmap bekomme ich ebenfalls.
grundsätzlich benutze ich ein globales bitmap - übergebe das ja mit var.
Hab jetzt probiert in receive()
ClientWidth := 100;
ClientHeight := 100;
invalidate();
einfach fix zu vergeben und hab mit breakpoint geprüft. - er springt einfach drüber...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Arnulf,
8. Apr 2008
Hallo marabu
nein nur asserhalb oder ja jetzt gerade.
funktioniert auch nicht.
fVideo reagiert einfach nicht auf die commandos hm...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Arnulf,
8. Apr 2008
Komisch, dass ich nichts gefunden habe darüber.
Aber ich habe 2 Forms.
in unit1 ( form1 ) rufe ich eine function in unit2 (enthält form2 - fVideo) auf.
dort versuche ich die größe von form2 anzupassen.
function TfVideo.receive(var myBitmap : TBitmap) : Boolean;
....
Canvas.Draw( 0, 0, myBitmap );
ClientWidth := myBitmap.Width;
ClientHeight := myBitmap.Height;