Q&A

  • CheckListBox에 대해서
CheckListBox를 사용하고자 합니다.
선택된 Row 에만 (Items[itemindex]) 별도로 색을 부여하고
싶은데.. Property를 찾아봐도... 그런 기능이 없는거 같아여...
혹시.. 기능이 있는데..제가 못찾는 건지...
있으면...알려주세여...
1  COMMENTS
  • Profile
    이낭하 2002.02.09 16:02
    별도의 프로퍼티는 없습니다...

    간단하게 함 맹글어 본건데 참고 해 보세여....  

    Drawitem 과  MeasureItem 이벤트가 있는데 미처 못 해봤습니다...

    procedure TForm1.SelectColor;
    var
      i : integer;
      Rect: TRect;
    begin
      with CheckListBox1 do
        for i := 0 to Count-1 do
        if Checked[i] = True then
        begin
          Canvas.Brush.Color := clRed;
          Canvas.Brush.Style := bsClear;
          Rect := ItemRect(i);
          Rect.Left := Rect.Left+LoWord(GetSystemMetrics(SM_CYMENUCHECK));
          Canvas.Rectangle(Rect);
    //      Canvas.TextOut(Rect.Left + font.Size, Rect.Top,Items[i])
        end;
    end;