Rückgabewert von TSpeedButton.Glyph wenn undefiniert? Nil?

[Schilly]

Ich will, dass das Bild nur geändert wird, wenn bisher nichts angezeigt wird. Ich will quasi zwischen zwei Zuständen wechseln: Bild/Kein Bild.
Bis jetzt hab ichs so gemacht:

Delphi-Quellcode:

var feld: array of array of TSpeedButton;

...

    if feld[X,Y].Glyph = nil then
      imagelist1.getbitmap(0, feld[X,Y].Glyph)
    else feld[X,Y].Glyph.Free;

aber beim ersten Klick passiert nichts und beim zweiten kommt ein EAccessViolation, also muss da oben wohl irgendwas falsch sein ^^
also wenn mir jemand helfen kann, wärs nett.

Gruß

[jaenicke]

Erstens: Wenn du Glyph aus dem Speicher entfernst (Free), kannst du danach ja schlecht etwas hineinschreiben (GetBitmap).
Zweitens: Wenn du ohnehin ein Array benutzt, warum nicht auch eins um den Zustand zu speichern?
Drittens: Jede Komponente hat die Eigenschaft Tag, in der du einen benutzerdefinierten beliebigen Integerwert speichern kannst. Dort könntest du den Status auch ablegen.

[Schilly]

gut das stimmt natürlich

wie mach ich denn, dass kein bild mehr angezeigt wird?

PS: ich benutz sowieso eine nachfahrklasse von TSpeedButton, das mit dem Status ist also kein Problem ... ich dachte nur, das ginge auch einfacher.

[Hawkeye219]

Hallo,

wenn du das Bild nicht aus einer ImageList holst, sondern direkt in SpeedButton.Glyph ablegst, kannst du auch so umschalten:

Delphi-Quellcode:

procedure TForm1.SpeedButtonClick(Sender: TObject);
begin
  if (SpeedButton.Margin < 0) then
    SpeedButton.Margin := SpeedButton.Width
  else
    SpeedButton.Margin := -1;
end;

Gruß Hawkeye

[himitsu]

Glyph existiert ja, nur ist halt kein Bild drin.

Delphi-Quellcode:

if feld[X,Y].Glyph.Witdh = 0 then
  ImageList1.GetBitmap(0, feld[X,Y].Glyph)
else feld[X,Y].Glyph.Witdh := 0;

[Schilly]

ah klar das ist natürlich ne Möglichkeit

Vielen Dank euch

wobei: kann man auch zur Laufzeit ne leere TBitmap erstellen und damit das erste Bild überschreiben?

[himitsu]

klar kannst du das ... du könntest dir aber auch ein "leeres" Bild in die ImageList laden