ListView - Erste Spalte in Fett ?

[moelski]

Moin !

Ich habe ein ListView mit 3 Spalten. Die erste Spalte hätte ich gerne in Fett.
Habe dazu diesen Code verwendet:

Delphi-Quellcode:

procedure TGeraetPort_Form.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (Item=nil) then Exit;
  Sender.Canvas.Font.Style := [fsBold];
end;

procedure TGeraetPort_Form.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  with Sender.Canvas do begin
    case SubItem of
      0, 1, 2 : Font.Style := [];
    end;
  end;
end;

Aber das Ergebnis ist immer das Spalte 1 und 2 in Fett sind und nur Spalte 3 ist nicht Fett.

Kann mir jemand nen Tip geben wo ich nun schief liege ?

[marabu]

Hallo Dominik,

in deinem Fall sollte das helfen:

Delphi-Quellcode:

procedure TDemoForm.ListViewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with Sender.Canvas.Font do
    Style := Style + [fsBold];
end;

procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  with Sender.Canvas.Font do
    Style := Style - [fsBold];
end;

Grüße vom marabu

[moelski]

Moin !

Nö auch in diesem Fall ist leider die zweite Spalte Fett.

[marabu]

Mein Code produziert das angehängte Bild.

Wo ist dein Code (Demo-Projekt oder DFM/PAS), mit dem es nicht funktioniert?

[moelski]

Moin !

Moin Code ... UARGH ...
Das ist in unsere Anwendung. Alles wird schwierig, aber ich poste mal das relevante ...

Delphi-Quellcode:

procedure TGeraetPort_Form.FillSelectBox;
var AppPath, INIFile  : String;
    _i                : Integer;
    DeviceINI         : TINIFile;
    Name, Hersteller  : String;
    Port              : String;
    Checked           : Boolean;
    INIListe          : TStringList;
    Item              : TListItem; //Wichtig!!
begin
  SiMain.TrackMethod('FillSelectBox');
  ListView1.Items.BeginUpdate;
  ListView1.Clear;
  INIListe := ListINIFiles(ExtractFilePath(ParamStr(0)));
  SiMain.LogMessage('Anzahl Items : ' + IntToStr(INIListe.Count));
  AppPath := ExtractFilePath(ParamStr(0));
  SiMain.LogMessage(AppPath);
  // Pfad + INI Name -> AppPath + 'Geraete\' + Liste[_i]
  For _i := 0 to INIListe.Count -1 do
  begin          // copy(Liste[_i], 1, length(Liste[_i]) - 4);
    INIFile    := AppPath + 'Geraete\' + INIListe[_i];
    DeviceINI  := TINIFile.Create(INIFile);
    Name       := copy(INIListe[_i], 1, length(INIListe[_i]) - 4); //DeviceINI.ReadString('Gerät', 'Name', 'NO NAME');
    Hersteller := DeviceINI.ReadString('Gerät', 'Hersteller', 'NO VENDOR');
    Checked    := DeviceINI.ReadBool('Gerät', 'Used', False);
    Port       := DeviceINI.ReadString('serielle Schnittstelle', 'Port', '---');

    Item := ListView1.Items.Add;
    Item.Caption := Name;
    Item.SubItems.Add(Hersteller);
    Item.SubItems.Add(Port);
    Item.Checked := Checked;

    DeviceINI.Free;
  end;
  ListView1.Items.EndUpdate;
end;

Hier wird gefüllt

Und hier halt die Events:

Delphi-Quellcode:

procedure TGeraetPort_Form.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
{
    with Sender.Canvas.Font do
      Style := Style + [fsBold];
}
end;

procedure TGeraetPort_Form.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
{
    with Sender.Canvas.Font do
      Style := Style - [fsBold];
}
end;

Derzeit auskommentiert ...

[marabu]

Dein Code ist nicht in sich abgeschlossen, also hänge ich dir mal mein Test-Projekt an.

Ruf an, sobald du es so verbogen hast, dass die zweite Spalte fett erscheint.

[moelski]

Moin !

Hmm, das ist interessant.
Dein Projekt tut bei mir auch nicht ....

Kann es sein das unter D2007 die Sache etwas anders muss ?

[dominikkv]

jo, ich hab auch D2007 und beide Spalten werden fett dargestellt.
mir fehlt aber grad die zeit mir das mal genauer anzuschauen^^

edit: schreibfehler

[moelski]

Moin !

Problem gelöst
Wenn der Berg nicht zu mir will muss ich zum Berg oder wie war das noch

Also, man setze den Font der ListBox auf Bold ...
Und dann nur das hier:

Delphi-Quellcode:

procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  with Sender.Canvas.Font do
    Style := Style - [fsBold];    
end;

Fertsch

Keep on