다른 색상의 목록 상자에 항목을 그리는 방법

Question

내 질문은 기본적으로이 question과 같습니다. 그러나, 나는 왼쪽에서 오른쪽으로 설정된 색상에서 흰색으로 색상 흐름을 만들고 싶습니다. 아이디어는 모든 항목을 100 %로 채우고 점차적으로 색상을 녹색에서 노란색으로 빨간색으로 변경한다는 것입니다.

Answer 1

이 코드를보십시오 : 참조 그라데이션 채우기를 수행하는 간단한 절차

unit Unit1; 

interface 

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

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    ListBox1: TListBox; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; 
     Rect: TRect; State: TOwnerDrawState); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    procedure AddLog(const aStr : String; const aColor : TColor); 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.AddLog(const aStr: String; const aColor: TColor); 
begin 
    ListBox1.Items.AddObject(aStr, TObject(aColor)); 
end; 

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
    Rect: TRect; State: TOwnerDrawState); 
var 
    OldColor : TColor; 
begin 
    with ListBox1.Canvas do begin 
    OldColor := Font.Color; 
    Font.Color := TColor(ListBox1.Items.Objects[Index]); 
    TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); 
    Font.Color := OldColor; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Randomize; 
    AddLog(
    'String #' + IntToStr(ListBox1.Items.Count), 
    RGB(Random(11) * 20 , Random(11) * 20, Random(11) * 20) 
); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    ListBox1.Clear; 
end; 

end.