WinXP Icons 32 Bit

[Daniel G]

@Mystic: Jepp, danke... Jetzt hab' ich's auch gelesen...

[Mystic]

Ich hab sie...

shell32.dll
32x32 Normal: Bitmap 215
32x32 Hover: Bitmap 214
16x16 Normal: Bitmap 217
16x16 Hover: Bitmap 216

[Martin K]

Zitat von Mystic:

Ich hab sie...

shell32.dll
32x32 Normal: Bitmap 215
32x32 Hover: Bitmap 214
16x16 Normal: Bitmap 217
16x16 Hover: Bitmap 216

Hmm....

Da bekomme ich diese hier...


Hab Deinen Code aus Beitrag #2 verwendet.

[Mystic]

Nicht Icons, Bitmaps

Delphi-Quellcode:

var
  h: HMODULE;
  b: TBitmap;

b := TBitmap.Create;
try
  h := LoadLibrary('shell32.dll');
  if h <> 0 then
    try
      b.LoadFromResourceID(h, 215);  // Bitmap 215
      // Mach was mit b
    finally
      FreeLibrary(h);
    end;
finally
  b.Free;
end;

[Martin K]

Hääää????
Da kommt das bei raus...
(Bild im Anhang).


//Edit:
Probelm gelöst.
Hatte nur mein TImage zu schmal gemacht

[Mystic]

Die Bitmaps sind 32bit-Bitmaps (Alphakanal!), die jeweils 45 Icons nebeneinander beinhalten.

[Martin K]

Hm...
Und wie kann ich die in eine ToolBar (mit ImageList oder so) laden?

[Mystic]

Keine Ahnung. Aber ich würde mal probieren, den Alphakanal in ein zweites Bitmap (Graustufen) zu kopieren und dies als Maske für das Original zu nehmen. Dann müsstest du das Bitmap und die Maske zur ImageList (Masked true) per ImageList.Add(bitmap, maske) hinzufügen können.

[Martin K]

Hab jetzt einfach mal als Bitmap gespeichert und in eine ImageList geladen.
Dabei hat er mich auch gleich gefragt:

Zitat:

---------------------------
Bestätigung
---------------------------
Die Dimensionen für Bitmap test.bmp sind größer als die der Bilderliste. In 47 verschiedene Bitmaps aufteilen?
---------------------------
Ja Nein
---------------------------

Perfekt!!

Jetzt hab ich die Bitmaps alle einzeln in der ImageList!!!
Probleme gibts nur mit dem Alpha Kanal:
Sieht dann in einer ToolBar doch etwas bescheiden aus...

Gibt es vielleicht eine Komponente wie ImageList, die Alpha-Kanal unterstützt?

[Mystic]

Hab was gefunden:

http://qc.borland.com/qc/wc/qcmain.aspx?d=4653

Run the following procedure *before* adding any icons to the image list (add Consts and CommCtrl units to the uses clause; also add XP manifest to your project):

Delphi-Quellcode:

procedure ConvertTo32BitImageList(const ImageList: TImageList);
const
  Mask: array[Boolean] of Longint = (0, ILC_MASK);
var
  TempList: TImageList;
begin
  if Assigned(ImageList) then
  begin
    TempList := TImageList.Create(nil);
    try
      TempList.Assign(ImageList);
      with ImageList do
      begin
        Handle := ImageList_Create(
          Width, Height, ILC_COLOR32 or Mask[Masked], 0, AllocBy);

        if not HandleAllocated then
          raise EInvalidOperation.Create(SInvalidImageList);
      end;

      Imagelist.AddImages(TempList);
    finally
      FreeAndNil(TempList);
    end;
  end;
end;