procedure TForm_Main.DBGrid_AddItemsDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Column.Field.FieldName = DBLookupComboBox_InventoryUnit.DataField) then
with DBLookupComboBox_InventoryUnit do
begin
Left := Rect.Left + DBGrid_AddItems.Left + 2;
Top := Rect.Top + DBGrid_AddItems.Top + 2;
Width := Rect.Right - Rect.Left;
Width := Rect.Right - Rect.Left;
Height := Rect.Bottom - Rect.Top;
Visible := True;
end;
end
end;