Puh Ok, ich hoffe ich habe den Fehler gefunden, jetzt läuft alles wie es soll. Der Fehler wurde wie es aussieht ausgelöst, in der Komponente TFileThumb. Diese arbeitet ebenfalls mit einem Bitmap aus dem Grunde, da das BS einen HBitmap als Thumbnail liefert. Hierbei war natürlich kein Look, Unlook beim arbeiten mit dem BMP drin. Somit flog mir das Ganze an dieser Stelle:
Delphi-Quellcode:
procedure TAnThumbThread.DoExecute;
var tBmp, tmpBmp: TBitmap; iPic: String; LParams: TAnThumbParam;
begin
...
try
if LParams.BuildType = btImg48Thumb then
if FFileThumb.Size <> 128 then FFileThumb.Size := 128
else
if FFileThumb.Size <> 256 then FFileThumb.Size := 256;
...
finally
...
end;
...
end;
um die Ohren.
@Bernhard Geyer
Ne, ich werde mich hüten das zu mach
, ich übertrage es Natürlich nicht direkt sondern Zeichne es auf dem Output.
Ok Luckie Danke, aber wieso in das Thema Multimedia?