StringGrid: Breite der vertikalen Scrollbar ermitteln

[DeddyH]

Delphi-Quellcode:

type
  TStringGrid = class(Grids.TStringGrid)
  public
    procedure CalcDrawInfo(var DrawInfo: TGridDrawInfo);
  end;

  TFormDings = class(TForm)
    StringGrid1: TStringGrid;
    ...
  end;

...


procedure TStringGrid.CalcDrawInfo(var DrawInfo: TGridDrawInfo);
begin
  inherited;
end;

[ConnorMcLeod]

Müßte auch so gehen (rein ausm Kopf):

Delphi-Quellcode:

type
  TMyDemoGrid = class(TStringGrid)
  end;

...

var
  FgrdDemo: TMyDemoGrid;

...

procedure MachWas;
var
  DrawInfo: TGridDrawInfo;
begin
  FgrdDemo.CalcDrawInfo(DrawInfo);

[DeddyH]

Japp, solange "nur" protected (ohne strict).

[Sir Rufo]

Also ich habe es gerade getestet (XE7) und TStringGrid.ClientWidth ändert sich, wenn die Scrollbar ins Spiel kommt.

Delphi-Quellcode:

type
  TForm1 = class( TForm )
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click( Sender: TObject );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

Allerdings muss man aufpassen, wenn man innerhalb eines StringGrid-Events auf diese Eigenschaft zugreifen möchte. Diese wird nämlich quasi zum Abschluss der gesamten Aktualisierung gesetzt und ist somit erst nach Abarbeitung der ganzen Events verfügbar.

[BadenPower]

Zitat:

Zitat von Helmi (Beitrag 1291117)

Zitat:

Zitat von DeddyH (Beitrag 1291116)

Naja, da kommt man ja noch drum herum.

verrätst du mir auch wie?

So würde es auch gehen:

Delphi-Quellcode:

implementation

{$R *.dfm}

type
   TStringGridAntiProtect = class(TStringGrid);

procedure TF_DevelopTest.Button1Click(Sender: TObject);
var
  DrawInfo: TGridDrawInfo;
begin
  TStringGridAntiProtect(StringGrid1).CalcDrawInfo(DrawInfo);
end;

[Helmi]

Zitat:

Zitat von Sir Rufo (Beitrag 1291122)

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

In diesem Beispiel dürfte sich ClientWidth gar nicht verändern, da du nur Zeilen hinzufügst, dadurch die Höhe veränderst, nicht aber die Breite

[Sir Rufo]

Zitat:

Zitat von Helmi (Beitrag 1291132)

Zitat:

Zitat von Sir Rufo (Beitrag 1291122)

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

In diesem Beispiel dürfte sich ClientWidth gar nicht verändern, da du nur Zeilen hinzufügst, dadurch die Höhe veränderst, nicht aber die Breite

Falsch, irgendwann können nicht mehr alle Zeilen angezeigt werden und dann kommt die Scrollbar und die Änderung der Breite

[Helmi]

Zitat:

Zitat von Sir Rufo (Beitrag 1291139)

Zitat:

Zitat von Helmi (Beitrag 1291132)

Zitat:

Zitat von Sir Rufo (Beitrag 1291122)

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender: TObject );
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Label1.Caption := StringGrid1.ClientWidth.ToString;
end;

In diesem Beispiel dürfte sich ClientWidth gar nicht verändern, da du nur Zeilen hinzufügst, dadurch die Höhe veränderst, nicht aber die Breite

Falsch, irgendwann können nicht mehr alle Zeilen angezeigt werden und dann kommt die Scrollbar und die Änderung der Breite

Ich geb mich geschlagen...