Доброе время суток, Господа!

Собственно сабжевый вопрос.

Нужно изменить размер шрифта в таблице типа StringGrid в дельфовой проге.

Заранее благодарен.

| Сообщение посчитали полезным:

открой обычным редактором ресурсов RCDATA->FORM*
и в блок стрингрид добавь строку с указанием шрифта или измени его
object StringGrid1: TStringGrid
Left = 200
Top = 80
Width = 320
Height = 120
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 0
Font.Size = 20
end

| Сообщение посчитали полезным:

Veliant пишет:
Veliant

Спасибо за ответ, но к сожалению, такой метод не подходит, т.к. размер задается, видимо, при создании MDIокна с этой таблицей, т.е. динамически.

| Сообщение посчитали полезным:

temp
Тогда выкладывай прогу.

-----
iNTERNATiONAL CoDE CReW

| Сообщение посчитали полезным:

Spirit пишет:
Тогда выкладывай прогу.

Прогу выложить не могу, по ряду причин.

В принципе, это просто сделать в DELPHI.

допустим при загрузке формы, сделать StringGrid1.Font.Height:=24;
и как после этого дописать инлайн на ассемблере в откомпилировнном приложении, чтоб изменить этот размер ?

| Сообщение посчитали полезным:

temp
Это что-то в духе - прогу не выложу, у кого нет delphi - скачайте, сами напишите пример для себя и еб..итесь с ним.
Бери в руки DeDe, смотри в нем где имеются ссылки на StringGrid и думай что делать

Уговорил, есть у меня delphi. Вот лисстинг из DeDe

* Reference to control TForm1.StringGrid1 : TStringGrid
0045B424 8B80F8020000 mov eax, [eax+$02F8]
* Reference to field TStringGrid.Font : TFont
0045B42A 8B4068 mov eax, [eax+$68]
0045B42D BA18000000 mov edx, $00000018 - размер шрифта 24
* Reference to: Graphics.TFont.SetHeight(TFont;Integer);
0045B432 E84512FCFF call 0041C67C

Как видишь - доступно и понятно

| Сообщение посчитали полезным:

Пишешь свою прогу в которой есть StringGrid1.Font.Height:=24 в отладчике ищешь все константы 18h и методом тыка меняешь все значения на большее (меньшее). После того как найдешь нужное, ищи нечто подобное в своей проге. Можешь еще поковырять прогу в DEDE, через нее виднее как и что происходит.

| Сообщение посчитали полезным:

tihiy_grom пишет:
Это что-то в духе - прогу не выложу, у кого нет delphi - скачайте, сами напишите пример для себя и еб..итесь с ним.

сорри если, что не так, просто чтобы не терять время, рассчитывал на ответ, тех, кто с этим уже сталкивался.

пример скомпилить не мог, т.к. под рукой не было дельфей.

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



з.ы. прога корпоративная, лицензионная, не хотелось светить.

| Сообщение посчитали полезным:

все, разобралсо. всем спасибо за помощь. тема закрыта

| Сообщение посчитали полезным: