True False Sand Falsk Paradox

Jeg kan ikke se andet end at du selv må lave omformningen, når du henter i databasen.
Noget ala
  if databaseudtræk = true then
    udsagn := sand
  else
    udsagn := falsk;

Lav en eventhandler til OnDrawDataCell i DBGridet der ser cirka sådan her ud:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if Field.DisplayText = \'False\' then
    DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, \'Falsk\')
  else if Field.DisplayText = \'True\' then
    DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, \'Sandt\');
end;

det virker selfølgelig kun runtime - håber du kan bruge det aligevel

nico

> NICO
du har helt sikkert fat i noget af det rigtige, problemet er bare at det ikke funger. Den skal tjekke ALLE cellerne i dbgridet, men der virker sgu ikke :(. Måske skal man sammenligne med den table der ligger bag eller?

Hvis du Runtime tilknytter nogle event på ongettext og onsettext på dine DBField\'s så kan du gøre lige hvad du vil med dine data inden du viser dem på skærmen og inden de bliver gemt igen, så jeg vil anbefale dig at bruge dem, men de ligger på dine fields, dvs hvis du lukker og åbner dit dataset skal du lige assigne dem igen eller også skal du loade dine fields DesignTime og lave det hele DesignTime det kan du også ( Hvilket jo er nemere hvis du ikke har prøver det andet før )

/Martin

smukkemanny>>sker der slet ikke noget? Jeg testede med en tabel med tre records, og det virkede fint

nice>> der sker rent faktisk ikke noget, den kan satens compile det, men den gider sgu ikke lige at ændre det. Kan du ikke være noget med nogle properties for min dbgrid der måske er sat forkert? Desuden står der meget i min dbgrid, og den skulle gerne teste alle rækkerne. Det er lidt lort, for det er det eneste der mangler i mit ellers så smukke program :)

jeg har lavet en paradox tabel med to felter - et af dem med boolske værdier. Så har jeg en TTable, TDataSource og en DBGrid på formen. Jeg mener ikke jeg har ændret nogle properties ud over OnDrawDataCell

nico > det er faktisk rigtigt, jeg lavede også selv lige et hurtigt program, jeg ved ikke hvad jeg har gjort galt i det andet, jeg prøver mig frem.

OK nu er jeg kommet frem til problemets kerne. Hvis man laver en columneditor på dbgrid\'en virker det IKKE. Og det er nødvendigt for mig at lave dette, så problemet er kun løst halvt

jeg skal nok kigge på det.

Brug OnDrawColumnCell i stedet for

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Field.DisplayText = \'False\' then
    DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, \'Falsk\')
  else if Column.Field.DisplayText = \'True\' then
    DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, \'Sandt\');
end;

YES. Det virker :)) 1000 tak for hjælpen

smukkemanny >> Det er 100 gange nemere at gøre det på field\'s GetText i stedet for at ligge og lave ownerdraw i din dbgrid, det virker jo ikke hvis du vil vise det i en edit-box, det gør den anden løsning også.