Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Farbige Listbox

    Delphi
    by ManfredG, 29. Dez 2007
  Vielleicht nicht elegant, aber wie wärs mit:
  
  
  Listbox3.Clear;
  if assigned(FResult) then begin
  if FMysql.Status<>MYSQL_STATUS_READY then
  ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
  FreeAndNil(FResult);
  end;
  FResult := FMysql.query('select * from users;', true, ex);
• Forum: Sonstige Fragen zu Delphi

  Re: Farbige Listbox

    Delphi
    by ManfredG, 29. Dez 2007
  Hallo Hansa,
  a) OwnerDraw muß gesetzt werden
  b) was ist an einem ListView kompliziert
  und
  c) schau dir mal die Rahmen an, wenn du die Zeilen selektierst, wenn du von einer Zeile auf die nächste klickst (einmal auf den Text und einmal auf eine leere Position rechts neben den Text)
  d) wenn schon, dann "Listbox1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, Listbox1.Items)"
  :roll:
  Gruß Manfred
• Forum: Sonstige Fragen zu Delphi

  Re: Farbige Listbox

    Delphi
    by ManfredG, 29. Dez 2007
  Hallo,
  verwende doch statt der TListbox ein TListView.
  Dort hast du das Ereignis OnCustomDrawItem. Dort läßt sich die Hintergrundfarbe der Zeile einfach einstellen, ohne daß du dich um den ganzen Inhalt kümmern mußt.
  Beispiel:
  
  
  procedure THF.FilesCustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
  var Attrs: Integer;
  pSi:...