[Delphi] rysowanie w dbgridzie

0

heloł

ponawiam swoje pytanie

jak rysować w dbgridzie - jedno z pól jest typu logical (boolean)
w celi tego pola ma się pojawiać nie wartość logiczna t/f ale np. kolor czerwony jeśli true, zielony jeśli false - jeśli ktoś mi może pomóc
dzięki bardzo

[cya]

0

ponawiam swoje pytanie

Staraj się tego unikać. Jeżeli nikt nie odpowiedział to znaczy to, że:

  1. nikt nie wie
  2. temat jest tak często powtarzany, że ludziom się znudziło odpowiadać (wtedy Szukaj)

Najwyraźniej nikt nie wie...

0

DefaultDrawing zmień na false

A W onDrawColumnCell wpisz:

with dbgrid1.Canvas do
begin
FillRect(Rect);
dbgrid1.DefaultDrawColumnCell(Rect, DataCol,Column, State);
IF Datacol = tu numer kolumny w której masz Logical Then
Begin
Brush.Color:= ClGreen ;
// TextOut(Rect.Left+1, Rect.Top+1, 'negatywny');
IF Tablejakastam.FieldByName('Wynik').AsBoolean = True then
Begin
Brush.Color:= ClRed;
// TextOut(Rect.Left+1, Rect.Top+1, 'pozytywny');
End;
FillRect(Rect);
End;
End;

czy jakoś tak, chwilowo nie mam możliwości sprawdzić.

1 użytkowników online, w tym zalogowanych: 0, gości: 1