Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Icons werden zur Laufzeit nicht mehr angezeigt


Oliver Marx - Fr 17.02.12 14:08
Titel: Icons werden zur Laufzeit nicht mehr angezeigt
Hi,

habe dieses Mal ein kleines Problem mit TButton und TImageList.

Ich habe in der IDE zur Entwurfszeit eine ImageList erzeugt und dieser sechs Icons (Bitmaps) hinzugefügt. Zusätzlich habe ich ein paar Buttons auf der Form und habe diesen per "Images" und "ImageIndex" Icons zugewiesen. Diese werden auch zur Entwurfszeit von der IDE korrekt angezeigt. Wenn ich aber das Projekt kompiliere und starte, werden mir die Buttons ohne die Icons angezeigt und ich verstehe nicht warum. Ich habe auch schon die anderen Image-Eigenschaften des Buttons verändert, allerdigs ohne Erfolg.

Daher möchte ich euch fragen, ob jemand das Problem kennt und mir helfen kann?

Viele Grüße

Oliver

Aufruf der Form:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
var
   i: integer;
   Form: TExchangeForm;
begin
   Form:=TExchangeForm.Create(Nil);
   for i := 0 to Datenbank.Count-1 do
   begin
      Form.ListBox1.Items.Add(Datenbank.GetItem(i));
   end;
   Form.ShowModal;

   Form.Free;
end;


Auszug aus der dfm Datei:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
  object BFirst: TButton
    Left = 6
    Top = 56
    Width = 43
    Height = 41
    HotImageIndex = 2
    ImageAlignment = iaCenter
    ImageIndex = 2
    Images = ImageList1
    TabOrder = 2
    OnClick = BFirstClick
  end

  object ImageList1: TImageList
    ColorDepth = cd24Bit
    BlendColor = clWhite
    BkColor = clWhite
    Height = 32
    Width = 32
    Left = 24
    Top = 16
    Bitmap = { ... }
  end


Und noch die passenden Bilder:

Entwurfszeit:
Entwurf

Laufzeit:
Laufzeit