Обикновено, за пречертаване на изображението в клетките, използвани OnDrawColumnCell метод.
Нейната параметър Rect - структура, описваща правоъгълник заета от клетката; Колона вариант - колона DBGrid, което трябва да се промени начинът, по чертеж на изображението. За да се покаже текста на метод TextOut свойства Canvas TDBGrid компонент.
Да предположим, че трябва да промените цвета на текста и фона линия в зависимост от стойността на поле (например, VenueNo). Нека да създадете събитие манипулатор OnDrawColumnCell DBGrid1 компонент.
В случая Делфи, съответния код е както следва:
В резултат на това по време на изпълнение при показване на редовете, в които стойността на полето е един VenueNo, фонови клетки ще бъдат оцветени в зелено, а текстът се показва в бяло.
При получаването на избраните линии всички данни в клетките бяха приведени в ляво. Ако искаме повече да показва правилно подравняване на текста в колоната трябва да бъде леко променят нашия код, като се вземат предвид текущата стойност на имота Alignment (тоест, който се изготвя в момента) колоната:
Съответният код за Delphi е:
В този случай, подравняването на текста в колоните съвпада с колони за подравняване.
Имайте предвид, че стойността на отклонението (в този случай, две пиксела), като цяло, зависи от слушалките и размера на шрифта, използван в тази графа, и трябва да се избира индивидуално.
Ако искате да покажете нестандартен начин целият ред, и само на няколко клетки, трябва да анализираме името на полето, за да бъдат показани в тази колона, както е в следния случай манипулатор.
Съответният код за Delphi е:
В резултат на това те са набелязани само клетките, за които са изпълнени условията, избрани за контакт:
Как да се замени на данните в колона компонент TDBGrid
Често DBGrid колона не е необходимо да се извлече действителната стойност се съхранява в съответното поле на масата, както и други данни, съответстващи на разположение (например, символен низ вместо своя цифров код). В този случай също така метод TextOut свойства платно TDBGrid компоненти:
Съответният код за Delphi е:
Друг пример - използването на икони или шрифтове намотки Webdings като заместители на низове.
Свързани статии