Icons in TListView haben schwarzen Rand!

[mirage228]

Zitat von Matze:

@Mirage: Wusstest du schon, dass die DP eine Code-Library hat?

schwarzer rand hätte auch geholfen.

Und jetzt schau Dir mal ganz genau das Datum meines Posting und den des Eintrages in der Code-Library an

mfG
mirage228

[Die Muhkuh]

Zitat von mirage228:

Zitat von Matze:

@Mirage: Wusstest du schon, dass die DP eine Code-Library hat?

schwarzer rand hätte auch geholfen.

Und jetzt schau Dir mal ganz genau das Datum meines Posting und den des Eintrages in der Code-Library an

mfG
mirage228

[TimonWorld]

Bei mir geht es trotzdem nicht... erst werden bei den ersten 5 einige systemicons angezeigt (verknüpfung und so...) und wenn ich erst zur laufzeit ein 32bit-Bitmap hinzufüge (wenn ich bei Maske nil angebe) bleibt der Hintegrund schwarz. Ich weiß nicht, wie ich das mit der Maske etc. machen soll... kann nicht mal jemand einen beispielprogramm (wenigstens OnCreate und wie man dann Bitmaps oder Icons hinzufügt)?
Aber ich find's schon klasse, das wenigsten die 5 system icons mit schatten gezeigt werden!!!

gruß,
timon

[TimonWorld]

Sorry...

Hab's schon selber entdeckt wie man Icons anfügt!


Habe aber was anderes zu fragen:

Ich habe versucht eine dafür passende T(New)ImageList erstellt, aber die Icons die ich hinzufüge sind immer nur 5 mal 5 Pixel groß:

Delphi-Quellcode:

constructor TNewImageList.Create(AOwner: TComponent);
var
  SHFileInfo: TSHFileInfo;
  SysIcons: THandle;
begin
  inherited Create(AOwner);
  try
    SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo,
      SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
  Self.Handle := SysIcons;
end;

Gruß,
Timon.

[NicoDE]

ILC_COLOR32

[TimonWorld]

Zitat von NicoDE:

ILC_COLOR32

Danke, aber den Befehl "ImageList_Create()" und die "Convert ImageList (XP Fix)" kann ich bei Delphi 3 leider nicht verwenden.

Gibt es denn irgendwo eine neuere ShellAPI.dcu bei Borland für Delphi 3 zu downloaden???

Gruß,
Timon.

[mirage228]

Hi,

der ImageList_Create() Befehl ist nicht in der Unit ShellAPI, sondern in der CommCtrl Unit deklariert.

mfG
mirage228

[TimonWorld]

Zitat von mirage228:

Hi,

der ImageList_Create() Befehl ist nicht in der Unit ShellAPI, sondern in der CommCtrl Unit deklariert.

mfG
mirage228

Hallo!

Stimmt... Ich hatte bei mir den Befehl nur an falscher Stelle platziert.

Aber funktionieren tut es so

Code:

Handle := ImageList_Create(16,16,ILC_COLOR32,255,0);

trotzdem nicht.

Aber ich habe mir jetzt dieses Convert ImageList (XP Fix) angeschaut und eingebunden:

Code:

//Diese Procedure habe ich hinzugefügt...
procedure ConvertTo32BitImageList(const ImageList: TImageList);
const
  Mask: array[Boolean] of Longint = (0, ILC_MASK);
var
  TemporyImageList: TImageList;
begin
  if Assigned(ImageList) then
  begin
    TemporyImageList := TImageList.Create(nil);
    try
      TemporyImageList.Assign(ImageList);
      with ImageList do
      begin
        ImageList.Handle := ImageList_Create(Width, Height, ILC_COLOR32 or Mask[Masked], 0, AllocBy);
        if not ImageList.HandleAllocated then
        begin
          raise EInvalidOperation.Create(SInvalidImageList);
        end;
      end;
      ImageList.AddImages(TemporyImageList);
    finally
      TemporyImageList.Free;
    end;
  end;
end;

//...und hier eingebunden.
constructor TNewImageList.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ConvertTo32BitImageList(Self);
end;

Gruß,
Timon.

[mirage228]

Hi,

in Deinem Aufruf:
ImageList_Create(16,16,ILC_COLOR32,255,0); sind die letzten beiden Parameter anders, als in der Prozedur darunter. Eventuell liegt es daran.

Ich konnte die Prozedur übrigens ohne Fehlermeldungen unter Delphi 3 compilieren.
Daher wäre es gut zu wissen, was genau nicht klappt.

mfG
mirage228

[TimonWorld]

Zitat von mirage228:

Ich konnte die Prozedur übrigens ohne Fehlermeldungen unter Delphi 3 compilieren.
Daher wäre es gut zu wissen, was genau nicht klappt.

Ich konnte auch beide verschiedene Möglichkeiten ohne Fehler compilieren, aber wenn ich dann mit der ImageList arbeite ist der Hintergrund weiß, wenn es Bilder mit Alpha-Channel sind.

Gruß,
Timon.