TBitmap.Pixelformat = pfDevice! Check auf 32Bit ?

[Thebe]

Sooo... *schieb*

Ich hab nun herausgefunden das ich da mit dem FormatDescriptor vom Bitmap was anfangen kann.
Und zwar:

Delphi-Quellcode:

var
   pfd: PixelFormatDescriptor
begin
    DescribePixelFormat(result.Canvas.Handle, GetPixelFormat(result.Canvas.Handle), sizeof(PixelFormatDescriptor), pfd);

    if pfd.iPixelType = PFD_TYPE_RGBA then
        ShowMessage('Es ist 32BIT!');
end;

Es funkt tatsächlich, nur es gibt ein riesen Manko bei dem Teil:
Um ca. 6 Bitmaps damit abzuchecken, braucht mein Rechner (P4 2,6Ghz, 1G Ram, WinXP) ma so locker 2-3 Sekunden. Und das ist mir zuviel, besonders da ich die Funktion benutzen will wo auch mal 20 Bitmaps abgecheckt werden müssen. Dann sitzt der Benutzer 7-10 Sekunden doof rum, was ich absolut nicht befürworten kann.

Habt ihr ne Ahnung wie ich diese langsame Funktion (DescribePixelFormat, GetPixelFormat) durch andere ersetzen kann ??

- Thebe