Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Какой использовать компонент?   Найти похожие ветки 

← →
Tornado ©   (2004-04-20 09:02) [0]

Мне нужно отобразить данные которые содержаться в динамическом массиве в виде таблицы, для этого неплохо бы подошел CheckListBox но там все придется записывать в строчку, а мне нужно примерно вот так:


|  От   |   Кому  |    Тема   |    Размер |    #     |
|sssss  |  wwwww  |   ккккк   |     120   | CheckBox |
|eeeee  |  еееее  |   ggggg   |     80    | CheckBox |


можно и в StringGrid засунуть но мне нужны CheckBox-ы

---

← →
Tornado ©   (2004-04-20 09:02) [0]

Мне нужно отобразить данные которые содержаться в динамическом массиве в виде таблицы, для этого неплохо бы подошел CheckListBox но там все придется записывать в строчку, а мне нужно примерно вот так:


|  От   |   Кому  |    Тема   |    Размер |    #     |
|sssss  |  wwwww  |   ккккк   |     120   | CheckBox |
|eeeee  |  еееее  |   ggggg   |     80    | CheckBox |


можно и в StringGrid засунуть но мне нужны CheckBox-ы

---

← →
begin...end ©   (2004-04-20 09:15) [1]

TListView?

---

← →
begin...end ©   (2004-04-20 09:15) [1]

TListView?

---

← →
Stvaffniy ©   (2004-04-20 09:20) [2]

StringGrid, DBGrid?

---

← →
Stvaffniy ©   (2004-04-20 09:20) [2]

StringGrid, DBGrid?

---

← →
Tornado ©   (2004-04-20 09:33) [3]

да TListView похоже подойдет, спасибо

---

← →
Tornado ©   (2004-04-20 09:33) [3]

да TListView похоже подойдет, спасибо

---

← →
Silver Alex ©   (2004-04-20 09:52) [4]

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
 r: Trect;
 i:integer;
begin
  if StringGrid.Cells[ACol,ARow]<>EmptyStr then
  begin
    StringGrid.Canvas.FillRect(Rect);
    r:=Rect;
    InflateRect(r,-20,-20);
    if boolean(StrToInt(StringGrid.Cells[ACol,ARow])) then
      I := DFCS_BUTTONCHECK + DFCS_CHECKED
    else
      I := DFCS_BUTTONCHECK;
      DrawFrameControl(StringGrid.Canvas.Handle,r, DFC_BUTTON, i );
  end;
end;

---

← →
Silver Alex ©   (2004-04-20 09:52) [4]

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
 r: Trect;
 i:integer;
begin
  if StringGrid.Cells[ACol,ARow]<>EmptyStr then
  begin
    StringGrid.Canvas.FillRect(Rect);
    r:=Rect;
    InflateRect(r,-20,-20);
    if boolean(StrToInt(StringGrid.Cells[ACol,ARow])) then
      I := DFCS_BUTTONCHECK + DFCS_CHECKED
    else
      I := DFCS_BUTTONCHECK;
      DrawFrameControl(StringGrid.Canvas.Handle,r, DFC_BUTTON, i );
  end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.035 c