Rahmen um Auswahl in Listbox entfernen

[capo]

Moin
auch auf die Gefahr hin, dass ich jetzt aufgefordert werde die Forum-Suche zu nutzen, ich habe nichts gefunden.
Ich möchte den Rahmen der, entsteht wenn ich in einer Listbox etwas selektiere einfärben oder löschen.Momentan sieht es noch so aus. (s. Anhang)

Gruss vom capo

[Blackheart]

Schon mal hiermit probiert [dp]Listbox färben[/dp]

[capo]

Ja, habe alles ausgetestet, kein positives Ergebnis.
Selbst hiermit sehe ich immer noch einen kleinen gepunkteten Rahmen.
http://www.delphipraxis.net/internal...stbox+f%E4rben

Gruss vom capo

[capo]

ich denk ich darf nun mal *push* ^^

[Blackheart]

Zitat:

Zitat von capo

Ja, habe alles ausgetestet, kein positives Ergebnis.
Selbst hiermit sehe ich immer noch einen kleinen gepunkteten Rahmen.
http://www.delphipraxis.net/internal...stbox+f%E4rben

Gruss vom capo

Dort stand es doch

Delphi-Quellcode:

if odSelected in state then Canvas.DrawFocusRect(rect);

[capo]

Hallo Blackheart...

hab ja auch nicht wirklich eine Ahnung. Danke

Habe versucht aber auch so funkt. es nicht.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  begin

  with (Control as TListBox) do
  begin

    if Odd(Index) then
    begin

     if odSelected in State then  begin
    //  if (odFocused in State) and (odSelected in State) then
        Canvas.Brush.Color := $00D4B569;   //Canvas-Hintergrundfarbe a
          Canvas.DrawFocusRect (Rect)
    end
      else

        Canvas.Font.Color := $00817161;
        end
    else
    begin

    if odSelected in State then  begin
        Canvas.Brush.Color := $00D4B569;   //Canvas-Hintergrundfarbe
        Canvas.DrawFocusRect (Rect)
    end
      else
        Canvas.Brush.Color := clwhite;    //Canvas-Hintergrundfarbe
        Canvas.DrawFocusRect (Rect);
    end;

    Canvas.FillRect(Rect);  //schön ausmalen
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Items[Index]);   //Text drüberpinseln

  end;

end;

gruss vom capo

[Amateurprofi]

versuch es mal so, daß du das DrawFocusRect erst ganz am Schluß machst
also

Canvas.FillRect(Rect); //schön ausmalen
Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Items[Index]); //Text drüberpinseln
if .... then Canvas.DrawFocusRect(rect);

[capo]

Klappt nun perfekt.
:-D
gruss vom capo

[Amateurprofi]

@capo,

ich hab mir das (aus eigenem Interesse) noch mal angeschaut.
Wenn ich deinen Source-Code richtig interpretiere , dann möchtest du, daß der Hintergrund
- $D4B569 ist, wenn es sich um einen selektierten Eintrag handelt
- $817161 ist, wenn es sich um einen unselektierten Eintrag mit ungeradem Index handelt
- clWhite ist, wenn es sich um einen unselektierten Eintrag mit geradem Index handelt

Dann könnte man den Code so gestalten.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const 
   bkclr:Array[boolean,boolean] of TColor=((clWhite,$817161),($D4B569,$D4B569));
begin
   with (Control as TListBox).Canvas, Rect do begin
      Brush.Color:=bkclr[odSelected in state, Odd(index)];
      TextRect(Rect,Left+2,Top+1,Items[index]);
      if odFocused in State then DrawFocusRect(Rect);
   end;
end;

DrawFocusRect muß dann aufgerufen werden wenn odFocused in State ist (nicht odSelected)

[xZise]

Ansonsten ohne rahmen entweder:

Delphi-Quellcode:

Canvas.Pen.Color := Canvas.Brusch.Color

oder

Delphi-Quellcode:

Canvas.Pen.Style := psClear;

:)

[Amateurprofi]

@xZise:
Sehr schön, hat aber den Nachteil, daß es nicht funktioniert (jedenfalls bei mir nicht)

[xZise]

Beide?

[Amateurprofi]

ja, beide.

[xZise]

Sorry, aber normalerweise geht es ;) Wahrschenlich dann nicht in dem Fall von DrawItem ;)

[capo]

Hallo Amateurprofi,

dein Code bei mir bei

Delphi-Quellcode:

,Items

hängen:

Delphi-Quellcode:

[DCC Fehler] Unit1.pas(873): E2003 Undefinierter Bezeichner: 'Items'

Delphi-Quellcode:

 TextRect(Rect,Left+2,Top+1,Items [index]);

gruss vom Capo

[Amateurprofi]

Zitat:

Zitat von capo

Hallo Amateurprofi,

dein Code bei mir bei

Delphi-Quellcode:

,Items

hängen:

Delphi-Quellcode:

[DCC Fehler] Unit1.pas(873): E2003 Undefinierter Bezeichner: 'Items'

Delphi-Quellcode:

 TextRect(Rect,Left+2,Top+1,Items [index]);

gruss vom Capo

ja, sorry.
Ersetze den "." vor "Canvas" durch ein ","
also :

Delphi-Quellcode:

with (Control as TListBox), Canvas, Rect do begin 
     ...
end;

[capo]

Danke...das wars auch :)

gruss vom capo