| 1 | |
i % 2 == 108.09.2008, 10:07. Показов 2467. Ответов 16
Метки нет (Все метки)
Ребята подскажите, пожалуйста, как лутше сделать. Есть код выделения не чётных строк в DBGrid1, всё нормально работал, потом я добавил CheckBox1 и после этого начались проблемы. Я хочу, чтобы по установлению галочки у меня выделялись строки сразу же, а у меня на данный момент получается так.... ставлю я галочку оно мне сразу же не выделяет и мне приходится мышкой кликать по каждой строке, для того чтобы выделить самостоятельно эти строки не смотря на то, что CheckBox1 включённый. Подскажите, пожалуйста, как мне "пнуть" DBGrid1, чтобы он мне красил сам без моей помощи строки , после того как я включил CheckBox1. Заранее благодарен!!!!!!!!! Вот код.... Код
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
int i = DBGrid1->DataSource->DataSet->RecNo;//Присвоение порядкового номера строке.
if (CheckBox1->State==cbChecked)
{
if (i % 2 == 1)//Красим не чётные строки
{
DBGrid1->Canvas->Brush->Color=clAqua;
DBGrid1->Canvas->Font->Color=clRed;
DBGrid1->Canvas->FillRect(Rect);
if (Column->Alignment==taCenter)
{
DBGrid1->Canvas->TextOut(Rect.Left+23-
DBGrid1->Canvas->TextWidth(Column->Field->Text),
Rect.Top+2,Column->Field->Text);
}
else
DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}
}
}
//---------------------------------------------------------------------------
0
|
|
(
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 09.09.2008, 10:10 | 4 |
|
так тебе же надо просто событие выбрать для прорисовки, но сама прорисовка происходит на дбгриде, а не на чекбоксе...
в событии OnClick тебе надо просто проанализировать - стоит галка или нет, и уже из этого прорисовывать(вызвать обработчик DBGrid1DrawColumnCell с соответствующими параметрами, чтобы прорисовка после клика произошла) или нет, но вообще ИМХО зря ты эти разрисовки делаешь, только работу замедлит
0
|
|
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 09.09.2008, 11:09 | 6 |
|
слушай, а попробуй так: в событии OnClick установи указатель в таблице на первую запись методом First, по идее событие само сработает из-за такого перемещения указателя...
1
|
|
| 10.09.2008, 09:41 [ТС] | 7 |
|
Хорошо, попробую, потом скажу.....
Добавлено через 22 часа 28 минут 37 секунд Спасибо, WooDooMan, фокус с методом First удался, когда я ставлю галочку строки выделяются через одну всё как надо. Но теперь постала следующая проблема, теперь надо сделать так, чтобы я убрал галочку в CheckBox1 и строки опять стали прежними т.е весь фон белай, а буквы чёрные, начал делать через метод Prior. Есть кое-какие наработки, но пока не получается. Заранее спасибо. Вот код... Код
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
int i = DBGrid1->DataSource->DataSet->RecNo;//Присвоение порядкового номера строке.
if (CheckBox1->Checked==true)
{
if (i % 2 == 1)//Красим не чётные строки
{
DBGrid1->Canvas->Brush->Color=clAqua;
DBGrid1->Canvas->Font->Color=clRed;
DBGrid1->Canvas->FillRect(Rect);
if (Column->Alignment==taCenter)
{
DBGrid1->Canvas->TextOut(Rect.Left+23-
DBGrid1->Canvas->TextWidth(Column->Field->Text),
Rect.Top+2,Column->Field->Text); }
else
DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}
}
}
// if (CheckBox1->Checked==false)
//---------------------------------------------------------------------------
void __fastcall TForm3::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->State==cbChecked)
{
DBGrid1->DataSource->DataSet->First();}
else if (CheckBox1->State==cbUnchecked)
{
DBGrid1->DataSource->DataSet->Prior();}
}
//---------------------------------------------------------------------------
0
|
|
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 10.09.2008, 09:49 | 8 |
|
слушай, тебе не надо делать приор, вообще просто делай всегда без проверки first да и все(это делается для того, чтобы событие сгенерировалось, куда скакать неважно), а уже в DBGrid1DrawColumnCell, когда снимаешь галочку, нужно восстанавливать состояние дбгрида...
0
|
|
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 10.09.2008, 10:09 | 10 |
|
а так не пойдет?
Код
DBGrid1->Canvas->Brush->Color=clWhite; DBGrid1->Canvas->Font->Color=clBlack; DBGrid1->Canvas->FillRect(Rect);
0
|
|
| 10.09.2008, 11:37 [ТС] | 11 |
|
Я понимаю, но проверку надо делать уже в DBGrid1, но не OnClick, потому-что если я буду размалёвывать строки в событии OnClick, вывидится ошибка о не понимании FillRect, потому-что я уже это пробывал.
0
|
|
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 10.09.2008, 11:40 | 12 |
|
вообще, событие OnClick используется только для того, чтобы сгенерить событие, где у вас идет прорисовка, и не больше не для чего
0
|
|
| 11.09.2008, 09:13 [ТС] | 13 |
|
Понял буду пробывать..........
Добавлено через 21 час 31 минуту 6 секунд WooDooMan, всё получилось, начало включать и убирать подцветку. Для того чтобы убирать подцветку я использовал Refresh; У меня назрел ещё один вопрос, событие OnKeyUp имеет отношение к кнопке со стрелочкой вверх, или нет??? Заранее спасибо!!!!!!!!!!!!!!!!!!!! 
0
|
|
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 11.09.2008, 09:29 | 14 |
|
да, это событие генерится при нажатии такой клавиши, в отличии от onkeypress
0
|
|
|
132 / 99 / 11
Регистрация: 21.11.2007
Сообщений: 544
|
|
| 26.09.2008, 11:48 | 16 |
|
Я на Дельфях в событии "OnDrawCell" StringGrid'а делал наподобие того, что WooDooMan описал. Только не канву заливал, а толи ячейку, толи строку - не помню ужо. Плюс к тому текст филил (залитый прямоугольник текст закрывал). Там пинать никого не надо было. В DB'шной версии грида разьве это событие не происходит постоянно?
0
|
|
|
Супер-модератор
8783 / 2536 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
|
|
| 26.09.2008, 11:50 | 17 |
|
dioxidin, ну вообще это событие генерится, когда что-то происходит с гридом, а установка флажка этого не делает, вот и приходится дергать что-то, чтобы отрисовка началась
0
|
|
| 26.09.2008, 11:50 | |
Наверх