Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
11. Dez 2008
Hallo Starworld,
habe Dir noch einen Codeschnipsel aus einer meiner Kombos rausgesucht, vielleicht hilft es Dir weiter. Ist aber ohne nachträglichen Test umgeschrieben wurden, daher auch keine Garantie auf Fehlerfreiheit!
procedure TListView1.DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var i: integer;
s: string;
TR1, TR2, ARect:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
9. Dez 2008
Hallo,
nach dem Screen hat die Listview 3 Spalten (Titel, Jahr, Wertung), so dass die 3 Spalte abgefragt werden muss.
if (Item.SubItems.Strings = '1') then ...
Manchmal muss eben viel experimentiert werden, um ans Ziel zu gelangen :gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
8. Dez 2008
Nur als Ansatz:
if (Item.Caption = '1') then bmpImage.Assign(Punkt1.Picture.Bitmap) else
if (Item.Caption = '2') then bmpImage.Assign(Punkt2.Picture.Bitmap) else
if ...
Vielleicht wäre hier ein Array "Punkt: array of TBitmap;" besser geeignet.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
8. Dez 2008
Hallo,
Ich vermute mal, der Fehler liegt in der Schleife - Du übermals jedesmal alle Items! Nimm die Schleife raus und gestalte Deine Abfrage zum Setzen der entsprechenden Bitmaps auf andere Weise.
roga