vorhandene SMDBGrid Komponente anpassen

[manfred_h]

[quote="mkinzler"]

Zitat:

Zeig mal eine der angemeckerten Zeilen mit Typunverträglichkeiten

[Pascal Error] Smdbgrid.pas(1333): E2010 Incompatible types: 'TSMDBColumn' and 'TTntColumn'
 if (grid is TSMDBGrid) and (grid.Columns.Items[i] is TSMDBColumn) then ein wenig ausführlicher:

Delphi-Quellcode:

      if (grid is TSMDBGrid) and (grid.Columns.Items[i] is TSMDBColumn) then
        with TSMDBColumn(grid.Columns.Items[i]) do
        begin
          RegIniFile.WriteString(RegistrySection, IntToStr(i) + '_Sort',
                                 Format('%d,%s,%d,%d,%s,%d,%d', [Ord(SortType), NormilizedText(SortCaption), BandIndex, Ord(InplaceEditor), NormilizedText(VarToStr(FooterValue)), Ord(FooterType), Tag]));
          if FFooterText<>'' then
            RegIniFile.WriteString(RegistrySection, IntToStr(i) + '_Footer',Format('%s',[NormilizedText(FFooterText)]));
        end;

[Pascal Error] Smdbgrid.pas(1412): E2010 Incompatible types: 'TSMDBGrid' and 'TDBGrid'
  if grid is TSMDBGrid then ein wenig ausführlicher:

Delphi-Quellcode:

  if grid is TSMDBGrid then
    TSMDBGrid(grid).FAutoFitIsLocked := True;