Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

StringGrid ;(( 


koks   (2002-04-01 10:45) [0]

Уважаемые мастера ! Подскажите пожалуйста, как "ручками" нарисовать 3D-эффект для Fixed Rows & Cols в сабже...

Я отключаю DefaultDrawing в свойствах TStringGrid и пишу обработчик OnDrawCell, в котором вызываю Canvas.FillRect для фона клеток и Canves.TextOut для вывода текста. Там достаточно сложные условия... Короче - стринггрид у меня разноцветный и в нем активно используется выравнивание по правому краю и по центру... все работает, только некрасиво выглядят Fixed rows и Cols....



MBo   (2002-04-01 11:07) [1]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (Acol<>0) and (ARow<>0) then begin
...


не устроит?



koks   (2002-04-01 14:08) [2]

Нет, потому что я на Fixed Rows и Cols тоже вывожу текст в OnDrawCell, выравненный по центру.

Я уже так пробовал: (Я ставил if (gsFixed in State) then...)
Если сделать так и установить DefaltDrawing то мой текст в клетке пишется 2 раза - один раз выравненный по левому краю (Default), а второй раз уже по центру - моя прорисовка... и 3D при этом рисуется путем. А если убрать DefaultDrawing то текст пишется путем... и фон... но нет 3D



reonid   (2002-04-01 14:10) [3]

см DrawEdge



MBo   (2002-04-01 14:17) [4]

ну рисуй там Bevel, по нему пиши




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
1-46374           koks                  2002-04-01 10:45  2002.04.15  
StringGrid ;((


1-46459           Geo                   2002-04-02 17:09  2002.04.15  
Проблема -использование obj файлов в Дельфи


1-46388           Xpyctuk               2002-03-26 11:58  2002.04.15  
Кто-нибудь знает как работать с компонентой IdBase64Encoder


3-46249           fomstas               2002-03-22 09:40  2002.04.15  
Не могу бороться с ошибкой


6-46460           Diablo                2002-01-31 17:10  2002.04.15  
вопрос по UDP