Listbox färbt komisch ein

[toyoman]

Zitat:

Zitat von toms

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox) do
  begin
    if Index = 2 then  //bei best. Zeile soll folgendes gelten
    begin
      Canvas.Brush.Color := clRed;
      Canvas.Pen.Color := clWhite;
    end
    else
    begin
      //falls gewünscht
      Canvas.Brush.Color := clWhite;
      Canvas.Pen.Color := clBlack;
    end;

     if  (odSelected in State) then
     begin
       Canvas.Font.Color := clHighlightText;
       Canvas.Brush.Color := clHighlight;
     end else
       Canvas.Font.Color := clWindowText;

    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]);
  end;
end;

cool! hab ich jetzt so und passt soweit. was ich allerdings nicht begreif: bei mir ist die textfarbe immer noch schwarz obwohl diese ja bei hintergrund rot weiss sein sollte? nur wenn ich mit der maus die zeile selektiere ist der text weiss ansonsten schwarz.

und: wenn ich mit der maus klicke werden die farben dargestellt. jedoch nicht beim laden der listbox bzw. beim laden des forms. wie kann ich die listbox IMMER farbig halten?

[toms]

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox) do
  begin
    if Index = 2 then
    begin //bei best. Zeile soll folgendes gelten
      Canvas.Brush.Color := clRed;
      Canvas.Font.Color := clYellow;
    end else //falls gewünscht
      Canvas.Pen.Color := clyellow;

    if  (odSelected in State) then
    begin
      Canvas.Font.Color := clHighlightText;
      Canvas.Brush.Color := clHighlight;
    end;

    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]);
  end;
end;

Zitat:

Zitat von toyoman

und: wenn ich mit der maus klicke werden die farben dargestellt. jedoch nicht beim laden der listbox bzw. beim laden des forms. wie kann ich die listbox IMMER farbig halten?

Wird denn während der Laufzeit die 2 geändert?

Delphi-Quellcode:

if Index = 2 then

Sobald sich der Wert ändert, musst du die Listbox neu zeichnen lassen. z.B per ListBox1.Repaint

[toyoman]

Zitat:

Zitat von toms

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox) do
  begin
    if Index = 2 then
    begin //bei best. Zeile soll folgendes gelten
      Canvas.Brush.Color := clRed;
      Canvas.Font.Color := clYellow;
    end else //falls gewünscht
      Canvas.Pen.Color := clyellow;

    if  (odSelected in State) then
    begin
      Canvas.Font.Color := clHighlightText;
      Canvas.Brush.Color := clHighlight;
    end;

    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]);
  end;
end;

Zitat:

Zitat von toyoman

und: wenn ich mit der maus klicke werden die farben dargestellt. jedoch nicht beim laden der listbox bzw. beim laden des forms. wie kann ich die listbox IMMER farbig halten?

Wird denn während der Laufzeit die 2 geändert?

Delphi-Quellcode:

if Index = 2 then

Sobald sich der Wert ändert, musst du die Listbox neu zeichnen lassen. z.B per ListBox1.Repaint

Delphi-Quellcode:

procedure Tmainform.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox) do
  begin
    if getinivaluefrom(inttostr(listbox1.itemindex+1),'Active',getinivalue('StandardValues','TaskFile'))='false' then  //bei best. Zeile soll folgendes gelten
    begin
      Canvas.Brush.Color := clRed;
      Canvas.Pen.Color := clWhite;
    end
    else
    begin
      //falls gewünscht
      Canvas.Brush.Color := clWhite;
      Canvas.Pen.Color := clBlack;
    end;

     if  (odSelected in State) then
     begin
       Canvas.Font.Color := clHighlightText;
       Canvas.Brush.Color := clHighlight;
     end else
       Canvas.Font.Color := clWindowText;

    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]);
  end;
end;

die Aktuelle Prozedur sieht so aus. Ich reagiere auf Settings in einem Ini-File. Wenn ich den listbox1.repaint beim Laden der Listbox einfüge (am Schluss) wird diese aber nicht korrekt farblich markiert...