引言: ListBox怎樣改變某一個item的字體顏色?

 
  可以在ListBox.OnDrawItem事件中處理    procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With TListBox(control).Canvas Do Begin
    Case State Of
      odSelected : Begin // 選擇到的項目
        Canvas.Brush.Color := clRed; // 指定背景顏色
        Canvas.Font.Color := clBlue; // 指定字體顏色
        TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
      End;
      odGrayed:....;  // 各種狀態 可各別改變顏色 
      odDisabled:....;
      odChecked:....;
      odFocused:....;
      .....
      Else Begin // 其他
        TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
      End;
    End;
  End;
end;

一個方式, 先將 ListBox1.Style := lbOwnerDrawFixed;
然後:    procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var c: TCanvas;
begin
  c := ListBox1.Canvas;
  if not (odSelected in State) then begin
    c.Brush.Color := clWhite;
    c.Font.Color := clBlack;
  end else begin
    c.Brush.Color := clBlack;
    c.Font.Color := clRed;
  end;
  c.FillRect(Rect);
  c.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;    ---

  可以利用ListBox.Itesm.Objects來儲存相關顏色的記錄    1. 記錄在每個Item的Objects屬性 1:有對應  2:沒對應到    Var
  i : Integer ;
Begin
  adoqAreaStaff.First;
  While Not adoqAreaStaff.Eof do begin
    i := ListBox1.Items.IndexOf(trim(adoqAreaStaff['RTT_PName'].AsString));
    If i <> -1 Then Begin
      ListBox1.Items.Objects[i] := Pointer(1)  //表示有對應到
    End Else Begin
      ListBox1.Items.Objects[i] := Pointer(2)  //表示沒有對應到
    End;
    adoqAreaStaff.Next;
  end;
End;    2.一樣ListBox.OnDrawItem事件中
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With TListBox(Control).Canvas Do Begin
    Case Integer(TListBox(Control).Items.Objects[Index]) Of
      1:Begin
        Font.Color := clRed ;  // 如果為 1 則改為紅色
        Brush.Coloe := $00E4FFCA  ; // 還可以改變底色
    End;
    TextOut(Rect.Left,Rect.Top,TListBox(Control).Items[Index]);
  End;
end;

引言: Hi chrislao: 我提供另一種思考,我之前的經驗 1. 把資料庫人名先存在TStringList. 2. 比對ListBox1 與 TStringList 希望對您有幫助

procedure TForm1.FormCreate(Sender: TObject);
begin
 NameList:=TstringList.Create;
 //塞資料
 while not adoquery1.eof do 
  begin
   NameList.Add(FieldbyName('Name').asString);
   next;
  end;
end;    procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var c: TCanvas;
begin
  c := ListBox1.Canvas;
  if not findItem(ListBox1.Items[Index]) then begin
    c.Brush.Color := clWhite;
    c.Font.Color := clBlack;
  end else begin
    c.Brush.Color := clBlack;
    c.Font.Color := clRed;
  end;
  c.FillRect(Rect);
  c.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;    //搜尋人名
function Tform1.findItem(Str:String): boolean;
Var
 i: Integer;
begin
result:=false;
For i:=0 to NameList.Count-1 do
 begin
  if NameList.Find(str,i) then begin
   result:=true;
   break;
  end;
 end;
end;
//^====這函數怪怪捏!?
StringList.Find 本就是搜尋方法？怎還使用迴圈!?
未排序使用StringList.IndexOf(Value)

發表人 - yachanga 於 2004/04/30 01:01:26

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  PDuplicated = ^TDuplicated ;
  TDuplicated = Record
    IsFound : Boolean ;
  end;
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    DupList : TList ;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer ;
  aRecord : PDuplicated ;
begin
  DupList := TList.Create ;
  ListBox1.Style := lbOwnerDrawFixed ;
  ListBox1.Items.BeginUpdate ;
  for i := 1 to 26 do
  begin
    New(aRecord) ;
    if (i mod 4 = 0) then
      aRecord.IsFound := True
    else
      aREcord.IsFound := False ;
    ListBox1.Items.Add(Chr(64   i)) ;
    DupList.Add(aRecord) ;
  end;
  ListBox1.Items.EndUpdate ;
end;    procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  DrawCanvas : TCanvas ;
begin
  DrawCanvas := ListBox1.Canvas ;
  if PDuplicated(DupList.Items[Index]).IsFound then
    DrawCanvas.Font.Color := clRed
  else
    if odSelected in State then
      DrawCanvas.Font.Color := clWhite
    else
      DrawCanvas.Font.Color := clBlack ;
  DrawCanvas.TextRect(Rect, Rect.Left   2, Rect.Top   2, ListBox1.Items[Index]);
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i : Integer ;
begin
  if DupList.Count > 0 then
  begin
    for i := 0 to (DupList.count - 1) do
    begin
      Dispose(PDuplicated(DupList.Items[i])) ;
    end;
    DupList.Clear ;
  end;
  DupList.Free ;
end;    end.