Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Как в одну ячейку StringGrid засунуть две строки?   Найти похожие ветки 

 
MBoris   (2005-10-24 13:41) [0]

Доброго времени суток! Подскажите, пож-та, как в одну ячейку StringGrid засунуть две строки, т.е. типа StringGrid.Cells [0,0]:="Привет"+#13+" Люди";
Спасибо!


 
umbra ©   (2005-10-24 15:18) [1]

Можно так:


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
h: Integer;

begin
 StringGrid1.Canvas.Textout(rect.Left, rect.Top, "Привет");
 h := StringGrid1.Canvas.TextHeight("Привет");
 StringGrid1.Canvas.Textout(rect.Left, rect.Top + h, "Привет");
end;


 
begin...end ©   (2005-10-24 15:23) [2]

OnDrawCell + DrawText


 
MBoris   (2005-10-24 17:23) [3]

Наверное, будет звучать глупо? А какие значения может принимать State: TGridDrawState. Я пытался подставить gdSelected, gdFocused, gdFixed - ничего не вышло!


 
Германн ©   (2005-10-24 17:26) [4]

Это Set of. А следовательно []


 
MBoris   (2005-10-24 17:33) [5]

А какие значения может принимать Rect: TRect при вызове функции


 
MBoris   (2005-10-24 17:35) [6]

>> begin...end ©   (24.10.05 15:23) [2]
>> OnDrawCell + DrawText
...это что ты имел ввиду?


 
Германн ©   (2005-10-24 17:41) [7]


> А какие значения может принимать Rect: TRect при вызове
> функции


Какая функция имеется в виду?


 
MBoris   (2005-10-24 17:43) [8]

Ой простите при вызове процедуры.
Вот этой:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);


 
Германн ©   (2005-10-24 17:48) [9]

Он принимает значение того прямоугольника, который тебе нужно перерисовать. В данном случае это та самя ячейка грида. Если не ошибаюсь включая рамку.


 
umbra ©   (2005-10-24 17:50) [10]


> procedure TForm1.StringGrid1DrawCell


Это процедура-обработчик события. На вашей форме отметьте StringGrid, в инспекторе обектов щелкните на закладку Events (События). Найдите там OnDrawCell и дважды щелкните по редактируемому полю справа от надписи. В редакторе кода появится заготовка процедуры. вставляете в нее код из примера. Она будет автоматически вызываться каждый раз, когда приложению надо будет нарисовать StringGrid. Все параметры передаются в нее приложением Изменять их без надобности не стоит.
Подробности - в справке про класс ТStringGrid


 
MBoris   (2005-10-24 17:52) [11]

Большое спасибо за то, что помогаете новичкам-самоучкам!!!



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

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.041 c
4-1126553860
Alpine
2005-09-12 23:37
2005.11.13
Надо программно навести курсор на ссылку в WebBrowser-е.


2-1129975111
Ugrael
2005-10-22 13:58
2005.11.13
Помогите с QuickReport 3,пожалуйста.


14-1129904509
Tesla
2005-10-21 18:21
2005.11.13
Посоветуйте компонент


14-1130142429
YurikGL
2005-10-24 12:27
2005.11.13
Стилизованное изображение компьютера


14-1130101965
saNat
2005-10-24 01:12
2005.11.13
Поиск ошибки в проекте