Скачать: CL | DM;

StringGrid, GridDrawCell   Найти похожие ветки 

← →
Melifaro ©   (2006-05-05 20:22) [0]

Такая проблемма: Нашёл событие, с помощью которого можно прорисовать ромбический контур. Для курсовой это было нужно, но тут такая проблемма задают вопросы, а я немогу ответить! объясните пожалуйста что конкретно это за событие, зачем нужен FillRect(cellrect(ACol,ARow)); и DrawText

procedure TKontur.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var                                  
r: TRect;                          
begin                                
With Sender as TStringGrid do        
 With Canvas do                    
 begin
   begin
    if ((acol)<(arow+6-q+w))and((acol)>(arow-6-q+w))and((arow + acol)<14+q+w)and((arow + acol)>2+q+w) then Brush.Color:= clYellow;
    Font.Color:= clBlack;
    FillRect(cellrect(ACol,ARow));
   end;
 r:=KdnRect(rect,2,2,0,0);
 DrawText(Canvas.Handle, PChar(Grid.Cells[acol, ARow]),
          Length(Grid.Cells[acol, arow]),r,DrawTextBiDiModeFlags(DT_LEFT));
 end;
end;

---

← →
Melifaro ©   (2006-05-05 20:23) [1]

if ((acol)<(arow+6-q+w))and((acol)>(arow-6-q+w))and((arow + acol)<14+q+w)and((arow + acol)>2+q+w) - таким образом я выделяю контур и закрашиваю его в желтый Brush.Color:= clYellow.

---

← →
MBo ©   (2006-05-05 20:39) [2]

>что конкретно это за событие
Это нужно прочитать в хелпе и разобраться
Потом вот это, например:
http://www.delphimaster.ru/articles/stringgrid/index.html

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c