procedure TCustomDBGrid.InvalidateTitles;
var
R: TRect;
DrawInfo: TGridDrawInfo;
begin
if HandleAllocated and (dgTitles in Options) then
begin
CalcFixedInfo(DrawInfo);
R := Rect(0, 0, Width, DrawInfo.Vert.FixedBoundary);
InvalidateRect(Handle, @R, False);
end;
end;
procedure TCustomDBGrid.TopLeftChanged;
begin
InvalidateTitles;
inherited TopLeftChanged;
end;
//TODO: Ariadna Ltd 30/03/2000
procedure TCustomDBGrid.SetColMoving(const Value: Boolean);
begin
FColMoving := Value;
If FColMoving Then
Inherited Options := Inherited Options + [goColMoving]
Else
Inherited Options := Inherited Options - [goColMoving];
end;
procedure TCustomDBGrid.SetColumnDrag(Value: Boolean);
begin
FColumnDrag := Value;
end;
procedure TCustomDBGrid.SetEnableDeleteRec(const Value: Boolean);
begin
FEnableDeleteRec := Value;
end;
procedure TCustomDBGrid.SetEnableInsertRec(const Value: Boolean);
begin
FEnableInsertRec := Value;
end;
Procedure TCustomDBGrid.SetTextRows(Value: Integer);
begin
If (Value <> FTextRows)And(FTextRows > 0) Then Begin
FTextRows := Value;
LayoutChanged;
InvalidateTitles;
End;
end;
procedure TCustomDBGrid.SetColAlignment(const Value: TColAlignment);
begin
if FColAlignment <> Value then begin
FColAlignment := Value;
InvalidateTitles;
end;
end;
end.