hey, also mir ist das problem nur einmal aufgefallen, da ich normaler weiße die images in der letzten spalte zeichne
naja ne lösung wäre ne andere schriftart zu benutzen anstatt die die du im Object Inspector eingestellt hast, zb. du hast MS Sans Serif eingestellt als font im ListView, dann schreibst im code zb "Font.Name := 'Arial'"
Delphi-Quellcode:
// ist nur ein beispiel code ..
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
B: TBitmap;
begin
if SubItem = 1 then
begin
DefaultDraw := False;
B := TBitmap.Create;
ImageList1.GetBitmap(0, B);
ListView1.Canvas.Draw(ListView1.Column[0].Width, Item.Top, b);
B.Free;
end else
begin
DefaultDraw := True;
Sender.Canvas.Font.Name := 'Arial';
end;
end;
// und hier auch nochmal die Font Ändern da sonst .Caption auch die font ändert .. :O
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Sender.Canvas.Font.Name := 'Arial';
end;
ich weiß es ist nicht die beste lösung ist aber ich glaube auch das es ein problem von Delphi ist
cya, ErazerZ