Подскажите как изменить (пример - сделать жирным) текст в заголовках колонок таблицы TStringGrid?
Нашел вроде бы Tabl.Cells.Canvas.Font.Style:=[fsBold]; - да не работает...
Сообщение отредактировано: APAL -
--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
stringgrid1.Font.Style:=[fsBold]; а в Cells надо указывать номер строки и столбца: Cells[i,j]
Спасибо! Работает!
Вроде мелочь, но я замучился с ней...
--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
Жирный шрифт нужен был для заголовков колонок - он им и становиться, но после возврата предидущего стиля заголовки опять стандартного стиля. Как сделать раздельное определение стиля на разные ячейки, а не на всю таблицу целиком?
Код
procedure TfMain.TablEnter(Sender: TObject); Var Style: TFontStyles; begin Style := Tabl.Font.Style; // Получение стиля текущего шрифта. Tabl.Font.Style:=[fsBold]; Tabl.Cells[0,0]:='Дата'; Tabl.Cells[1,0]:='Время'; Tabl.Cells[2,0]:='№ документа'; Tabl.Cells[3,0]:='Документ'; Tabl.Cells[4,0]:='Сумма'; Tabl.Cells[5,0]:='Получатель'; Tabl.Cells[6,0]:='Поставщик'; Tabl.Cells[7,0]:='Информация'; { Tabl.Font.Style:=Style; } end;
--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
Попробуй этот код!!!!!! МОжно даже разными цветами!! я думаю,для себя приспособишь... в цикле if...then параметр смени; запускай,кликай по Stringgrid-у
Код
type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure StringGrid1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); const CharOffset = 3; begin with StringGrid1.canvas do begin if State=[gdFixed]then begin font.color := clMaroon; font.Style:=[fsBold]; textout(rect.left + CharOffset, rect.top + CharOffset, 'Lloyd'); font.color := clNavy; font.Style:=[]; textout(rect.left + CharOffset + TextWidth('L'), rect.top + CharOffset, 'loyd'); end else
end;
end;
procedure TForm1.StringGrid1Click(Sender: TObject); begin Stringgrid1.Font.Style:=[]; Stringgrid1.Cells[2,2]:='kruto'; Stringgrid1.Cells[3,3]:='офонареть'; end;
Спасибо, KRUTOY! Немного подкорректировал и все заработало как надо!
--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
With TStringGrid(Sender),TStringGrid(Sender).Canvas Do Begin IF (Odd(ARow)) then Brush.Color:=$f7f9fc else If ARow<>0 then Brush.Color:=Cl3Dlight; IF ARow<>0 then FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]); End;
with Tabl.canvas do begin if State=[gdFixed]then begin font.Style:=[fsBold]; textout(rect.left + CharOffset, rect.top + CharOffset, Tabl.Cells[ACol,Arow]); end else font.Style:=[fsBold]; end; end;
Сообщение отредактировано: APAL -
--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск