Using current Component packs, Windows 7 64 Pro, Delphi XE7.
Project works as expected and displays the database grid as this link indicates.
I then add code to process an expiration date field that was stored as text, so that I can color the background of the row for the user to identify easily. The code is in the AdvDBGrid's GetCellColor event.
procedure TForm1.asgEligibleGetCellColor(Sender: TObject; ARow, ACol: Integer;
AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var MyMonth, MyDay, MyYear, MyDate, WorkDate : string;
i : integer;
begin
if (ACol = 5) and (ARow > 0) and FormShown then
begin
MyDate := asgEligible.Cells[ACol,ARow];
if length(MyDate) > 7 then
begin
i := pos('/',MyDate);
MyMonth := copy(MyDate,0,i-1);
WorkDate := copy(MyDate,i+1);
MyDate := WorkDate;
i := pos('/',MyDate);
MyDay := copy(MyDate,0,i-1);
MyYear := copy(MyDate,i+1,4);
MyDate := MyMonth + '/' + MyDay + '/' + MyYear + ' 00:00:00';
if StrToDateTime(MyDate) < Now then
asgEligible.RowColor[ARow] := clRed;
end;
end;
FormShown is a global boolean, set true in the Form OnShow event.
The highlighting works, but all the buttons / edits / labels on the rest of the form disappear as seen in this link.
If I comment the line testing the date and setting the row color to clRed, the buttons / edits / labels are OK.
Any clue as to what I am doing wrong?
I am using these components on the form:
AdvPanel1: TAdvPanel;
AdvPanel2: TAdvPanel;
AdvFormStyler1: TAdvFormStyler;
AdvPanelStyler1: TAdvPanelStyler;
acbColorScheme: TAdvComboBox;
WebUpdate1: TWebUpdate;
ExeInfo1: TExeInfo;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
User: TAdvEdit;
UserPW: TAdvEdit;
ServerIP: TAdvIPEdit;
afneMSPFile: TAdvFileNameEdit;
asbLoad: TAdvSmoothButton;
DataSource1: TDataSource;
asgEligible: TDBAdvGrid;
AdvDBFilterDialog1: TAdvDBFilterDialog;