ganz hungrig aufs testen
edit:
was isn da passiert statt 2,6mb is das proggi nur noch 800kb klein !
edit 2:haha hab nen neuen fehler
das sind meine prozeduren im network traffic, die angelegt bzw verändert habe:
Delphi-Quellcode:
procedure wgImage1MouseIn(Sender: TObject);
var i:integer;
begin
for i:=1 to 31 do begin
mainform.setFormAlpha(100+i*5);
mainform.RenderForm;
mainform.setLeft(1024-25-(i-1)*4);
delay(10);
end;
end;
procedure wgImage1MouseOut(Sender: TObject);
var i:integer;
begin
for i:=1 to 31 do begin
mainform.setFormAlpha(255-i*5);
mainform.RenderForm;
mainform.setLeft(1024-147+(i-1)*4);
delay(10);
end;
procedure InitializeWidget;
begin
Adapters := Adapters.Create;
wgTimer1Timer(nil);
mainform.setLeft(1024-27);
mainform.setTop(768-97);
end;
wenn das widget rausfährt und ich beim rausfahren mit der maus das widget verlasse, wird das onmouseout event nicht ausgelöst, genauso is es auch beim onmousein, wenn das widget wieder nach rechts fährt und ich mit der maus während des fahrens auf das widget zeige, fährt es trotzdem weiter.
delay, setLeft, setTop, inspector events klappen funzt
