Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
-26 / 1 / 2
Регистрация: 30.09.2010
Сообщений: 39
1

Отрисовка ячеек StringGrid

11.11.2012, 12:48. Показов 1911. Ответов 2
Метки нет (Все метки)

Приветствую! Столкнулся с проблемой при динамическом создании StringGrid-ov. Ячейки почему-то отрисовываются в самом последнем, из созданных, а если переключится на предыдущий ( они создаются на вкладках pagecontrol), то все ячейки опять стандартного цвета. Как можно исправить эту проблему?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    Image1: TImage;
    Procedure  ButClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    Procedure sGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
  private
  public
  end;
 
var
  Form3: TForm3;
  n,s,k:integer;
  TabSheet: array of TTabSheet;
  But:TBitBtn;
  Sgrid:TStringGrid;
 
Procedure  TForm3.ButClick(Sender: TObject);
var Active:Integer;
Begin
   with PageControl1 do
      Begin
         Active:=PageControl1.ActivePageIndex;
         Pages[Active].Destroy;
         PageControl1.ActivePage:=TabSheet[Active-1];
      End;
   SetLength(TabSheet,n-1);
end;
 
procedure TForm3.sGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
  I: Integer;
Begin;
     if sGrid.Cells[Acol,ARow]='5' then
  begin
    sgrid.Canvas.Brush.Color := $0077FD99;   
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
 
  if sGrid.Cells[Acol,ARow]='4' then
  begin
    sgrid.Canvas.Brush.Color := $0077FAFD;   
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
 
  if sGrid.Cells[Acol,ARow]='3' then
  begin
    sgrid.Canvas.Brush.Color := $00758AFF;    
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
  SetBkMode(Handle, TRANSPARENT);
end;
 
procedure TForm3.ListView1DblClick(Sender: TObject);
   var
      BMP:TPNGImage;
      b:TBitMap;
      ItmIdx,i,j:Integer;
      Rect:TRect;
      Text:String;
      But:TBitBtn;
begin
  ItmIdx:=Listview1.ItemIndex;
  if ItmIdx=-1 then Exit;
  for I := 0 to n-1 do
    Begin
      if Tabsheet[i].Caption=Listview1.Items.Item[itmIdx].Caption+' '+ Listview1.Items.Item[itmidx].SubItems[0] then
      begin
       exit;
      end;
 
    End;
 
  {****Create TabSheet****}
 
  n:=Length(TabSheet)+1;
  SetLength(TabSheet,n);
  TabSheet[n-1]:=TTabSheet.Create(self); //создать вкладку, n-1 
  TabSheet[n-1].Caption:=Listview1.Items.Item[itmIdx].Caption+' '+ Listview1.Items.Item[itmidx].SubItems[0];
  TabSheet[n-1].PageControl:=PageControl1;
  PageControl1.ActivePage:=TabSheet[n-1]; //сделать активной
 
 
  {****Create Button****}
 
  But:=TBitBtn.Create(Self);
  But.Parent:=TabSheet[n-1] ;
  But.left:=TabSheet[n-1].Width-45;
  But.Top:=10;
  But.OnClick:=ButClick;
  BMP:= TPNGImage.Create;
  B:=TBitMap.Create;
  BMP.LoadFromFile('C:\Users\Lexa\desktop\exit2.png');
  b.Assign(BMP);
  But.Glyph:=b;
  But.Width:=b.Width+1;
  But.Height:=But.Height+5;
  BMP.free;
  b.Free;
 
  {****Create List****}
 
  Sgrid:=TStringGrid.Create(Self);
  sGrid.Name:='sGrid'+Inttostr(n-1);
  Sgrid.Parent:=TabSheet[n-1];
  sGrid.OnDrawCell:=SGridDrawCell;
  Sgrid.Width:=Listview1.Width div 2 + 16;
  Sgrid.Height:=Listview1.Height div 2 + 89;
  Sgrid.Left:=Listview1.Left+160;
  Sgrid.Top:=Listview1.top+50;
  Sgrid.Visible:=True;
  Sgrid.ColCount:=7;
  SGrid.RowCount:=13;
 
  {****Add Cols&Rows****}
 
  with sGrid do
     Begin
       Cols[1].Text:='I';
       Cols[2].Text:='II';
       Cols[3].Text:='III';
       Cols[4].Text:='IV';
       Cols[5].Text:='I+II';
       Cols[6].Text:='III+IV';
       Cols[7].Text:='YEAR';
       Rows[1].Text:='Русский язык';
       Rows[2].Text:='Литература';
       Rows[3].Text:='Обществознание';
       Rows[4].Text:='История';
       Rows[5].Text:='Физика';
       Rows[6].Text:='Химия';
       Rows[7].Text:='Биология';
       Rows[8].Text:='Физкультура';
       Rows[9].Text:='Информатика';
       Rows[10].Text:='Математика';
       Rows[11].Text:='Геометрия';
       Rows[12].Text:='Башкириский';
     End;
         
      {****Тестовые значения для проверки****}     
 
       sGrid.Cells[2,3]:='5';
       sGrid.Cells[2,5]:='3';
       sGrid.Cells[2,4]:='4';
       sGrid.Cells[3,3]:='5';
       sGrid.Cells[4,5]:='3';
       sGrid.Cells[5,4]:='4';
 
       for i := 0 to SGrid.Colcount-1 do
          Begin
            if i=0 then sGrid.ColWidths[i]:=91 Else sGrid.ColWidths[i]:=40
          End;
 
       for I := 0 to sgrid.Rowcount - 1 do
         Begin
           sGrid.RowHeights[i]:=20;
         End;
end;
 
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2012, 12:48
Ответы с готовыми решениями:

Отрисовка цветных ячеек в StringGrid
Делаю ИСС Кинотеатр и нужно сделать выбор места в зале. Делаю так создаю массив из 0 1 и 2. 0 -...

StringGrid, скрытие и отрисовка ячеек
Здраствуйте, хотел спросить совета у знающих людей. У меня есть StringGrid1 заполненный данными. ...

Отрисовка объединенных ячеек Stringgrid
Здравствуйте. Нужна помощь в рисовании ячеек Stringgrid. В фиксированной строке Stringgrid есть...

StringGrid Цвет фона пустых ячеек и ячеек с текстом
Доброго дня.. Задачка следующая: Ячейки в StringGrid'e заполняются по блоку из Timer. В...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31192 / 20390 / 7940
Регистрация: 22.10.2011
Сообщений: 35,361
Записей в блоге: 6
11.11.2012, 12:52 2
А не надо привязываться в процедуре отрисовки к конкретному имени. Для этого есть Sender:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm3.sGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
  I: Integer;
  sGrid : TStringGrid; // <---
Begin;
  sGrid := Sender as TStringGrid; // <--- теперь будешь работать с тем гридом, который передан через Sender
 
     if sGrid.Cells[Acol,ARow]='5' then
  begin
    sgrid.Canvas.Brush.Color := $0077FD99;   
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
 
  if sGrid.Cells[Acol,ARow]='4' then
  begin
    sgrid.Canvas.Brush.Color := $0077FAFD;   
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
 
  if sGrid.Cells[Acol,ARow]='3' then
  begin
    sgrid.Canvas.Brush.Color := $00758AFF;    
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
  SetBkMode(Handle, TRANSPARENT);
end;
1
-26 / 1 / 2
Регистрация: 30.09.2010
Сообщений: 39
11.11.2012, 16:08  [ТС] 3
Цитата Сообщение от UI Посмотреть сообщение
А не надо привязываться в процедуре отрисовки к конкретному имени. Для этого есть Sender:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm3.sGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
  I: Integer;
  sGrid : TStringGrid; // <---
Begin;
  sGrid := Sender as TStringGrid; // <--- теперь будешь работать с тем гридом, который передан через Sender
 
     if sGrid.Cells[Acol,ARow]='5' then
  begin
    sgrid.Canvas.Brush.Color := $0077FD99;   
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
 
  if sGrid.Cells[Acol,ARow]='4' then
  begin
    sgrid.Canvas.Brush.Color := $0077FAFD;   
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
 
  if sGrid.Cells[Acol,ARow]='3' then
  begin
    sgrid.Canvas.Brush.Color := $00758AFF;    
    sgrid.Canvas.FillRect (Rect);
    sgrid.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, sgrid.Cells[ACol,ARow]);
  end;
  SetBkMode(Handle, TRANSPARENT);
end;
Помогло, спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2012, 16:08

Отрисовка StringGrid
procedure TForm16.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State:...

Закрашивание ячеек stringgrid
Нужно чтобы вместо вывода '0' в условиях ,эти ячейки закрашивались. Заранее спасибо откликнувшимся.

Сложение ячеек в StringGrid
Подскажите пожалуйста, как сложить значения всех столбцов stringgrid1 и вывести в stringgrid2 ???

StringGrid обьединение ячеек
Нужно сделать таблицу как на фото, но не удается обьединить ячейку в StringGrid. Как это можно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.