Q&A

  • 리스트박스 선택시의 color변경...
리스트박스의 항목을 선택하면,
짙은 파란색으로 항목이 선택되어지잖습니까?

이걸 다른 색으로 변경하고 싶은데요..

가르쳐 주세여
1  COMMENTS
  • Profile
    장태원 2004.03.10 20:16
    procedure TForm1.CheckListBox1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var Rect : TRect;
    begin

         Rect := CheckListBox1.ItemRect(CheckListBox1.ItemIndex);
         Rect.Left := Rect.Left + 16;
         CheckListBox1.Canvas.Brush.Color := clRed;
         CheckListBox1.Canvas.FillRect(Rect);
         CheckListBox1.Canvas.TextOut(Rect.Left,Rect.Top,CheckListBox1.Items.Strings[CheckListBox1.ItemIndex]);

    end;