Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
Relaxxx   (2003-09-02 11:52) [0]

Здраствуте!!!
У меня тут появился такой вопросик маленький, он впринципе не существенный но может кто знает как мне в СтрингГрид(например в заголовке) писать в две строчки?


 
Palladin   (2003-09-02 11:55) [1]

Вручную рисуя, OnDrawCell.


 
Relaxxx   (2003-09-02 12:01) [2]

а можно как- то немножко поподробней????


 
Palladin   (2003-09-02 12:11) [3]

Пример в природе есть, это не миф, найти его можно следующим способом.
1 Кидаем на форму компонент TStringGrid
2 Переходим в Object Inspector, если с этим сложности, просто нажми несколько раз F11, пока он не появится.
3 Переходим на вкладку Events, при этом компонент StringGird1 должен быть активным
4 Находим событие OnDrawCell, делаем его активным.
5 Нажимаем Magic Key F1
И вот перед нами некая информация. Наверху которой написано Example. Щелкаем на него курсором мышки и выбираем раздел, по вкусу. Наслаждаемся написаным примером.


 
KSergey   (2003-09-02 12:19) [4]

По-моему, я уже 3-й день по разу кидаю эти ссылки.
Люди, читайте конфы! Много для себя почерпнете ;)
Очень надеюсь, так же, что еще никому не надоел этими ссылками.

http://www.delphikingdom.com/helloworld/dbgridcolor.htm
http://www.delphikingdom.com/helloworld/mergegrid.htm
http://www.delphikingdom.com/helloworld/nogrid.htm
http://www.delphikingdom.com/helloworld/grid.htm
http://www.delphikingdom.com/helloworld/dbgridplus.htm

Здесь в основном про DBGrid, но в данном случае - один фиг.


 
KSergey   (2003-09-02 12:21) [5]

Да, и забыл добавить стандартное:

все статьи из

http://www.delphikingdom.com/asp/section.asp?ID=16

к обязательному прочтению!!!!


 
Андрей Сенченко   (2003-09-02 12:21) [6]

Вот что бывает когда штатный компонент сделан излишне простым :))


 
KSergey   (2003-09-02 12:25) [7]

2 Андрей Сенченко © (02.09.03 12:21)

Не совсем понял о чем вы.
По поводу кол-ва ссылок? Так в них примерно одно и тоже, расположил их в порядке полезности автору в свете рассматриваемого вопроса. По сути нужна первая, вторая. Остальные - для общего развития в надежде, что часть следующих по плану стандартных вопросов на форум ему постить не придется. ;)


 
Андрей Сенченко   (2003-09-02 12:30) [8]

KSergey © (02.09.03 12:25) [7]

Совсем не о том ...
Собственно примерно каждый 15-й вопос на Форуме - по поводу расширения "штатных" возможностей STringGrid


 
KSergey   (2003-09-02 12:41) [9]

[8] Андрей Сенченко © (02.09.03 12:30)
Совсем не о том ...


Ааааа...
Ну это нормальное сезонное обострение ;) Оно на разные вопросы в разные периоды встречается. А вообще я тоже давно уже заметил, что вопросы на форум как правило косяками ходят. Причины мне не известны. Думаю, тема для хорошей кандидатской как минимум ;)


 
Андрей Сенченко   (2003-09-02 12:52) [10]

KSergey © (02.09.03 12:41) [9]

от сессии до сессии живут студенты весело.
В потрепаться ?


 
Relaxxx   (2003-09-03 11:30) [11]

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

if (ACol<>0)AND(ARow=5) then
begin
StatisticGrid.canvas.Brush.Color:=clyellow;
StatisticGrid.canvas.fillRect(Rect);
end;


 
Palladin   (2003-09-03 11:31) [12]

Ну раз ты закрашиваешь, наверно вывод текста надо добавить.
TextOut


 
Relaxxx   (2003-09-03 11:39) [13]

Все, сори за глупый вопрос :-)


 
Relaxxx   (2003-09-03 12:28) [14]

Еще проблема, в чем может быть глюк??
Я пишу в OnDrawCell
if (ACol<>0)AND(ARow=5) then
begin
StatisticGrid.canvas.Brush.Color:=clYellow;
StatisticGrid.canvas.Font.Color:=clBlack;
StatisticGrid.canvas.Font.Style:=[fsBold];
StatisticGrid.canvas.TextOut(67,108,StatisticGrid.Cells[1,5]);
StatisticGrid.canvas.TextOut(125,108,StatisticGrid.Cells[2,5]);
StatisticGrid.canvas.TextOut(187,108,StatisticGrid.Cells[3,5]);
StatisticGrid.canvas.TextOut(236,108,StatisticGrid.Cells[4,5]);
StatisticGrid.canvas.fillRect(Rect);
end;

все рисует и работает, но когда я обновляю значения у меня всё перерисовывается крому
StatisticGrid.canvas.TextOut(236,108,StatisticGrid.Cells[4,5]);

в чем ошибка???


 
Relaxxx   (2003-09-03 12:43) [15]

все, просто там нежнобыло рефрешнуть стринг грид. А как сделать чтоб у меня ечейки выделялись не синим цветом что стоит в настройках винды а например красным??


 
KSergey   (2003-09-03 12:59) [16]

Слухай, родной, ты издиваешься что ли над всеми??!!!
Ты статьи читал? Где-нибудь там видел, чтобы в TextOut первыми двумя параметрами конкретные цифры писали???!!!!!!

if (ACol<>0)AND(ARow=5) then

Вот раскинь слегка мозгами: если ACol = 5, то оно всяко не равно 0. А зафиг тогда первое условие??

begin
StatisticGrid.canvas.Brush.Color:=clYellow;
StatisticGrid.canvas.Font.Color:=clBlack;
StatisticGrid.canvas.Font.Style:=[fsBold];
StatisticGrid.canvas.TextOut(67,108,StatisticGrid.Cells[1,5]);
StatisticGrid.canvas.TextOut(125,108,StatisticGrid.Cells[2,5]);
StatisticGrid.canvas.TextOut(187,108,StatisticGrid.Cells[3,5]);
StatisticGrid.canvas.TextOut(236,108,StatisticGrid.Cells[4,5]);
StatisticGrid.canvas.fillRect(Rect);
end;


Выводли значит текст выводил - а потом бац - и fillRect (затер тобишь по верх). На кой?
Но это фигня, читай далее
OnDrawCell вызывается для каждой ячейки, а потому не надо выводить там и Cells[4,5] и Cells[2,5] и т.д.
В параметрах тебе же ясно указано какая сейчас ячейка отрисовывается (с каким номером, с.м. аргументы Col и Row)

PS
я сейчас материться начну.



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

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

Наверх





Память: 0.48 MB
Время: 0.01 c
1-48585
RyDmi
2003-09-04 01:10
2003.09.15
Как поместить проект в SysTray?


14-48708
DeMoN-777
2003-08-28 13:57
2003.09.15
Интересуюсь...


3-48415
Алексей Петухов
2003-08-25 09:28
2003.09.15
Инсталяция BDE


14-48753
Тролль
2003-08-26 18:19
2003.09.15
Multimedia API


9-48390
Paroplan
2003-03-02 11:19
2003.09.15
Кто знает как увеличить кол-во оперативки под делфи а?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский