AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist
Thema durchsuchen
Ansicht
Themen-Optionen

TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist

Ein Thema von hoika · begonnen am 23. Nov 2010 · letzter Beitrag vom 25. Nov 2010
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.662 Beiträge
 
Delphi 12 Athens
 
#1

AW: TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist

  Alt 23. Nov 2010, 12:38
Ungefähr so?
Delphi-Quellcode:
function LastColWidth(Grid: TStringGrid): integer;
var i: integer;
    aWidth: integer;
begin
  aWidth := 0;
  for i := 0 to Grid.ColCount - 2 do
    inc(aWidth, Grid.ColWidths[i] + Grid.GridLineWidth);
  Result := Grid.ClientWidth - aWidth - Grid.GridLineWidth;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.ColWidths[StringGrid1.ColCount-1] := LastColWidth(StringGrid1);
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist

  Alt 23. Nov 2010, 12:55
Hallo,

Hansa
das GridLineWidth hat mir gefehlt.

DeddyH
und was ist mit vertikalem Scollbar ?

Tritzdem danke.
Mit allen Threads hier bekomme ich sicher eine Lösung zusammen


Heiko
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.662 Beiträge
 
Delphi 12 Athens
 
#3

AW: TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist

  Alt 23. Nov 2010, 12:57
Bei mir hat das auch mit Scrollbar funktioniert, probier es einfach mal.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist

  Alt 25. Nov 2010, 07:54
Hallo,

spät aber.

Danke !


Klappt wunderbar.


Heiko
Heiko
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz