SpeedButton: Glyph in der Laufzeit ändern mit ImageList

[MasterEvil]

Hi leutz,

hab da ein kleines Problem mit dem SpeedButton.
Und zwar erstelle ich einen button zur Laufzeit und weise ihm ein Glyph folgendermaßen zu:
ImageListButtons.GetBitmap(7,SpeedButton.Glyph); Das klappt auch wunderbar.
Nun will ich aber unter bestimmten Bedingungen, dieses Glyph ändern (das selbe Icon, nur mit einem Kreuz drauf).

Delphi-Quellcode:

ImageListButtons.GetBitmap(8,SpeedButton.Glyph);
SpeedButton.Glyph.Modified:=true;

Das geht ebenfalls problemlos.
Wenn ich nun aber das selbe mache, um wieder auf das ursprüngliche Bild zurück zu kommen (also ohne Kreuz), zeichnet er das Bild nicht komplett neu, ein Teil des Kreuzes bleibt erhalten.
Ich finde leider nicht raus wieso oder wie ich das Problem löse.

Jemand eine Idee?

greetz
Steffen

[ibp]

und wenn du das bitmap zwischendurch löschst im button? was bleibt denn vom kreuz übrig?

[ManuMF]

Hallo,

schon mal mit

SpeedButton.Refresh; probiert?

Gruß,
ManuMF

[MasterEvil]

@ibp:
aus mir unerfindlichen Gründen ist das Resultat das Selbe.
hatte ich auch schon probiert (Glyph.FreeImage).

@ManuMF:
bringt leider ebenfalls nichts.

[ibp]

haben die bilder die gleiche größe?

[Lannes]

Hallo,

teste das mal:

Delphi-Quellcode:

SpeedButton1.Glyph := nil;
ImageList1.GetBitmap(1,SpeedButton1.Glyph);

[MasterEvil]

@ibp:
ja, haben sie

@Lannes:
wow, das hat funktioniert
Hatte es mit Glyph.Free versucht, aber dabei ist der dann immer abgeschmiert.
Find ich nicht ganz logisch ...

Aber nun gehts! thx

greetz
Steffen

[DataCool]

Hi,

hatte das gleiche Problem, was ich auch mit folgenden Code wie oben auch schon beschrieben lösen konnte :

Delphi-Quellcode:

  SpeedButton1.Glyph := nil;
  ImageList1.GetBitmap(0,SpeedButton1.Glyph);

Funzt auch wunderbar, jetzt hatte ich mir gedacht schön und gut, da ich das ganze für diverse Buttons mit diversen Imagelists brauche, schreibe ich mir ne Procedure dazu :

Delphi-Quellcode:

procedure TfrmMain.GetBitmapFromImageList(TargetBmp: TBitmap; ImgIdx: Integer; SourceImgL: TImageList);
begin
  TargetBmp := Nil;
  SourceImgL.GetBitmap(ImgIdx,TargetBmp);
end;

// ...
// Aufruf der Procedure
GetBitmapFromImageList(speddButton1.Glyph,0,ImageList1);

Damit tut sich jetzt allerdings wieder gar nichts mehr

Jemand ne Idee ?

Danke und Gruß

[Hawkeye219]

Hallo DataCool,

mit Deiner Version setzt Du lediglich die lokale Variable (den Parameter) TargetBmp auf den Wert NIL.
Du mußt einen Zeiger auf den SpeedButton übergeben und dessen Eigenschaft Glyph ersetzen:

Delphi-Quellcode:

procedure TfrmMain.GetBitmapFromImageList(aButton: TSpeedButton; ImgIdx: Integer; SourceImgL: TImageList);
begin
  aButton.Glyph := Nil;
  SourceImgL.GetBitmap(ImgIdx,aButton.Glyph);
end;

// ...
// Aufruf der Procedure
GetBitmapFromImageList(speddButton1,0,ImageList1);

So könnte es funktionieren.

Gruß Hawkeye

[DataCool]

Hi,

ich wollte die Procedure extra mit Übergabe des TBitmap Objekts,
weil ich das ganze nicht nur mit SpeedButtons verwenden wollte

Habe jetzt auch ne Lösung gefunden die funktioniert :

Delphi-Quellcode:

procedure TfrmMain.GetBitmapFromImageList(TargetBmp: TBitmap; ImgIdx: Integer; SourceImgL: TImageList);
Var tmpBmp : TBitmap;
begin
  tmpBmp := TBitmap.Create;
  try
    SourceImgL.GetBitmap(ImgIdx,tmpBmp);
    TargetBmp.Assign(tmpBmp);
  finally
    FreeAndNil(tmpBmp);
  end;
end;

Gruß