Missing TBooleanField.GetData implementation makes TBooleanField unusable
Original Reporter info from Mantis: hombre
-
Reporter name: Sergei Serebrov
Original Reporter info from Mantis: hombre
- Reporter name: Sergei Serebrov
Description:
The lack of this procedure leads to usage of inherited one.
As a result, any data-aware control shows "True;False" for True and "False" for the False values of TBooleanField respectively or proper strings if DisplayValues is changed.
Steps to reproduce:
Trivial
Additional information:
To resolve that it's neccessary to add the declaration to db.bas:
protected
procedure GetText(var theText: string; ADisplayText: Boolean); override;
and the implementation to fields.inc:
procedure TBooleanField.GetText(var theText: string; ADisplayText: Boolean);
var b : wordbool;
begin
If GetData(@b) then
theText := FDisplays[ADisplayText,b]
else
theText:='';
end;
Mantis conversion info:
- Mantis ID: 15794
- OS: all
- OS Build: all
- Platform: all
- Version: 2.4.0