Klappt wieder - fragt mich nicht wie.
Ich habe einfach folgenden Code:
Delphi-Quellcode:
procedure ...;
begin
with Componente do begin
Image:=...;
Width:=Componente.Image.Width;
Height:=Componente.Image.Height;
...
end;
end;In foldenden Umgewandelt:
Delphi-Quellcode:
procedure ...;
begin
with Componente do begin
Image:=...;
Width:=300;
Height:=200;
...
Und auf einmal gings wieder ...... Naja, trotzdem VIELEN DANKE
