08-07-2020, 01:51 PM
08-12-2020, 10:07 AM
In Properties:
dgTails.columns[1].LinkField := KLY;
and
procedure TfmTail.dgTailsColumns1Click(ASender: TObject; const AValue: string);
begin
with dmTail do
begin
if tTails.FieldByName('KLY').AsString = AValue then
begin
btPlanClick(ASender);
end else begin
tTails.First;
while not tTails.Eof do
begin
if tTails.FieldByName('KLY').AsString = AValue then break;
tTails.Next;
end;
end;
end;
end;
dgTails.columns[1].LinkField := KLY;
and
procedure TfmTail.dgTailsColumns1Click(ASender: TObject; const AValue: string);
begin
with dmTail do
begin
if tTails.FieldByName('KLY').AsString = AValue then
begin
btPlanClick(ASender);
end else begin
tTails.First;
while not tTails.Eof do
begin
if tTails.FieldByName('KLY').AsString = AValue then break;
tTails.Next;
end;
end;
end;
end;
08-12-2020, 04:48 PM
Hello,
thank you very mutch that work very well
Thank's a lot.
do you knwon if it's possible to change row color on row select ?
Thank's a lot for your help
best regards
hello,
here the solution that work well for information in future
procedure TIWFormModifTache.IWDBGridListeTachesRenderCell(ACell: TIWGridCell;
const ARow, AColumn: Integer);
begin
// -1 is Footer Row
if ARow = -1 then
begin
ACell.BGColor := clSilver;
if AColumn = 0 then
begin
ACell.Font.Color := clRed;
ACell.Text := IntToStr(IWDBGridListeTaches.RecordCount);
end;
end
else if IWDBGridListeTaches.RowIsCurrent then
begin
ACell.BGColor := clYellow;
end;
end;
thank you very mutch that work very well
Thank's a lot.
do you knwon if it's possible to change row color on row select ?
Thank's a lot for your help
best regards
hello,
here the solution that work well for information in future
procedure TIWFormModifTache.IWDBGridListeTachesRenderCell(ACell: TIWGridCell;
const ARow, AColumn: Integer);
begin
// -1 is Footer Row
if ARow = -1 then
begin
ACell.BGColor := clSilver;
if AColumn = 0 then
begin
ACell.Font.Color := clRed;
ACell.Text := IntToStr(IWDBGridListeTaches.RecordCount);
end;
end
else if IWDBGridListeTaches.RowIsCurrent then
begin
ACell.BGColor := clYellow;
end;
end;