Delphi-PRAXiS
Seite 2 von 2     12

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Listbox färbt komisch ein (https://www.delphipraxis.net/121316-listbox-faerbt-komisch-ein.html)

toyoman 25. Sep 2008 22:09

Re: Listbox färbt komisch ein
 
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 25. Sep 2008 22:16

Re: Listbox färbt komisch ein
 
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 25. Sep 2008 22:19

Re: Listbox färbt komisch ein
 
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...


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:42 Uhr.
Seite 2 von 2     12

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf