ychatu35.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 58 行

unit YchatU35;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DynamicSkinForm;

type
  TForm31 = class(TForm)
    ListView1: TListView;
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form31: TForm31;

implementation

{$R *.dfm}

procedure TForm31.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
 ItemRect: TRect;
begin
 With TListview(Sender).Canvas do begin
       if Odd(Item.Index) then begin
          Brush.Color := ClSilver;
          Font.Color := clblack;
       end else begin
          Brush.Color := clWindow;
          Font.Color := clblack;
       end;

    DefaultDraw := False; //user draw
    ItemRect := Item.DisplayRect(drBounds);

     if Item.Selected then
      begin
       Brush.Color := clHighlight;
       Font.Color := clHighlightText;
       //Rectangle(Rect);
       //Font.Style:= [fsBold] else  Font.Style:= [];
      end;

    FillRect(ItemRect);
    DefaultDraw := True; // AI takes over
 end;
end;

end.