Ширина разделяющих линий в DbGrid

[Aleks_www]

У меня возник интересный на мой взгляд вопрос. Мне необходимо изменить ширину разделяющих линий в DbGrid, по типу того как это делается в StringGrid (свойство GridLineWidth). Если кто нибудь имеет соображения по этому вопросу поделитесь пожалуйста.

[MaxNik2009]

так подойдет?

TStringGrid(DBGrid1).GridLineWidth:= 5;

[Aleks_www]

Сообщение от MaxNik2009

так подойдет?

TStringGrid(DBGrid1).GridLineWidth:= 5;

А как это вообще работает? StringGrid и DbGrid немного разные вещи. Как они в этом случае между собой связаны?

[MaxNik2009]

А как это вообще работает?

Это называется приведение типов.

StringGrid и DbGrid немного разные вещи.

вот именно что немного

[Aleks_www]

Сообщение от MaxNik2009

Это называется приведение типов.

вот именно что немного

TStringGrid(DBGrid1).GridLineWidth: = 5;


Можно поподробнее. Я просто не уловил связь TStringGrid и DBGrid1.

Я понимаю например StrToInt или DateToStr но вот это TStringGrid(DBGrid1) как то у меня не вяжется:-)

[ArtGrek]

вот подробности из модуля, создание етого DBGrid1

constructor TCustomDBGrid.Create(AOwner: TComponent);
var
  Bmp: TBitmap;
begin
  inherited Create(AOwner);
  inherited DefaultDrawing := False;
  FAcquireFocus := True;
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromResourceName(HInstance, bmArrow);
    FIndicators := TImageList.CreateSize(Bmp.Width, Bmp.Height);
    FIndicators.AddMasked(Bmp, clWhite);
    Bmp.LoadFromResourceName(HInstance, bmEdit);
    FIndicators.AddMasked(Bmp, clWhite);
    Bmp.LoadFromResourceName(HInstance, bmInsert);
    FIndicators.AddMasked(Bmp, clWhite);
    Bmp.LoadFromResourceName(HInstance, bmMultiDot);
    FIndicators.AddMasked(Bmp, clWhite);
    Bmp.LoadFromResourceName(HInstance, bmMultiArrow);
    FIndicators.AddMasked(Bmp, clWhite);
  finally
    Bmp.Free;
  end;
  FTitleOffset := 1;
  FIndicatorOffset := 1;
  FUpdateFields := True;
  FOptions := [dgEditing, dgTitles, dgIndicator, dgColumnResize,
    dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit];
  if SysLocale.PriLangID = LANG_KOREAN then
    Include(FOptions, dgAlwaysShowEditor);
  DesignOptionsBoost := [goColSizing];
  VirtualView := True;
  UsesBitmap;
  ScrollBars := ssHorizontal;
  inherited Options := [goFixedHorzLine, goFixedVertLine, goHorzLine,
    goVertLine, goColSizing, goColMoving, goTabs, goEditing];
  FColumns := CreateColumns;
  FVisibleColumns := TList.Create;
  inherited RowCount := 2;
  inherited ColCount := 2;
  FDataLink := CreateDataLink;
  Color := clWindow;
  ParentColor := False;
  FTitleFont := TFont.Create;
  FTitleFont.OnChange := TitleFontChanged;
  FSaveCellExtents := False;
  FUserChange := True;
  FDefaultDrawing := True;
  FBookmarks := TBookmarkList.Create(Self);
  HideEditor;
end;

constructor TCustomGrid.Create(AOwner: TComponent);
const
  GridStyle = [csCaptureMouse, csOpaque, csDoubleClicks, csNeedsBorderPaint];
begin
  inherited Create(AOwner);
  if NewStyleControls then
    ControlStyle := GridStyle
  else
    ControlStyle := GridStyle + [csFramed];
  FCanEditModify := True;
  FColCount := 5;
  FRowCount := 5;
  FFixedCols := 1;
  FFixedRows := 1;
  FGridLineWidth := 1;
  FOptions := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,
    goRangeSelect];
  DesignOptionsBoost := [goColSizing, goRowSizing];
  FFixedColor := clBtnFace;
  FScrollBars := ssBoth;
  FBorderStyle := bsSingle;
  FDefaultColWidth := 64;
  FDefaultRowHeight := 24;
  FDefaultDrawing := True;
  FSaveCellExtents := True;
  FEditorMode := False;
  Color := clWindow;
  ParentColor := False;
  TabStop := True;
  SetBounds(Left, Top, FColCount * FDefaultColWidth,
    FRowCount * FDefaultRowHeight);
  Initialize;
end;

[MaxNik2009]

Я просто не уловил связь TStringGrid и DBGrid1

StringGrid и DBGrid являются "родственниками", т.е. у них общий родитель (класс TCustomGrid). У DBGrid есть свойство GridLineWidth (т.к. все свойства наследуются от родителя), только оно скрыто. А через приведение типов

TStringGrid(DBGrid1)

мы получаем доступ к свойствам класса TCustomGrid. Таким образом можно изменить например и высоту строки DBGrid'a.

[Aleks_www]

Сообщение от MaxNik2009

StringGrid и DBGrid являются "родственниками", т.е. у них общий родитель (класс TCustomGrid). У DBGrid есть свойство GridLineWidth (т.к. все свойства наследуются от родителя), только оно скрыто. А через приведение типов

TStringGrid(DBGrid1)

мы получаем доступ к свойствам класса TCustomGrid. Таким образом можно изменить например и высоту строки DBGrid'a.

Наставили меня на путь истинный . Я столько с DBGrid уже в тесном контакте так сказать а ширину линий уже хотел заречься изменить. Ну и приведением типов никогда не пользуюсь. Спасибо большое всем за ответы.