AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

"Optimale Breite" bei StringGrid einstellbar?

Ein Thema von daywalker-dj-k · begonnen am 5. Mär 2004 · letzter Beitrag vom 9. Aug 2019
Antwort Antwort
Seite 1 von 2  1 2   
daywalker-dj-k

Registriert seit: 27. Nov 2003
85 Beiträge
 
#1

"Optimale Breite" bei StringGrid einstellbar?

  Alt 5. Mär 2004, 12:58
hallo,
kann man irgendwo einstellen, dass das stringgrid die optimale breite nutzen soll (also quasi wie z.b. bei excel). die breite soll sich automatisch so einstellen, das der länste text so gerade darstellbar ist.

oder muss man das von hand programmieren?

danke
mfg
tkliewe
  Mit Zitat antworten Zitat
Robert_G
(Gast)

n/a Beiträge
 
#2

Re: "Optimale Breite" bei StringGrid einstellbar?

  Alt 5. Mär 2004, 13:12
Wir haben hier doch eine Supi-Suchfunktion...

Einfach mal nach Hier im Forum suchenstringgrid AND breite suchen.

Kommt unter anderem das dabei raus:
http://www.delphipraxis.net/internal...?p=23699#23699

Etwas übersichtlicher wäre es wohl so:
Delphi-Quellcode:
Var
  vCol, vRow, Len : Integer,
Begin
  ...
  For vCol := FixedCols To pred(Grid.ColCount) Do
  Begin
    len := 20; // min. Breite
    For vRow := FixedRows To pred(Grid.RowCount) Do
      If len < Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) Then
        len := Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]);
    Grid.ColWidths[vCol] := len;
  End;
  ...
End;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#3

Re: "Optimale Breite" bei StringGrid einstellbar?

  Alt 5. Mär 2004, 13:15
Ich würde nicht nurGrid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) werwenden, sondern z.B.Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) + 4
Delphi-Quellcode:
  For vCol := FixedCols To pred(Grid.ColCount) Do
  Begin
    len := 20; // min. Breite
    For vRow := FixedRows To pred(Grid.RowCount) Do
      If len < Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) + 4 Then
        len := Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) + 4;
    Grid.ColWidths[vCol] := len;
  End;
Den um die Schrift ist ja noch ein gewisser Rahmen, den sollte man nicht vergessen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Robert_G
(Gast)

n/a Beiträge
 
#4

Re: "Optimale Breite" bei StringGrid einstellbar?

  Alt 5. Mär 2004, 13:20
hatte nur den Code kopiert und Col/Row in vCol/vRow geäandert.
Richtiger wäre
Delphi-Quellcode:
  ...
  With Grid Do
    For vCol := FixedCols To pred(ColCount) Do
    Begin
      len := 20; // min. Breite
      For vRow := FixedRows To pred(RowCount) Do
        If len < Canvas.TextWidth(Cells[vRow, vCol]) + GridLineWidth + 4 Then
          len := Canvas.TextWidth(Cells[vRow, vCol]) + GridLineWidth + 4;
      ColWidths[vCol] := len;
    End;
  ...
  Mit Zitat antworten Zitat
daywalker-dj-k

Registriert seit: 27. Nov 2003
85 Beiträge
 
#5

Re: "Optimale Breite" bei StringGrid einstellbar?

  Alt 5. Mär 2004, 13:44
hallo,
vielen dank erstmal für die hilfe. nur leider klappt das bei mir nicht

also:

Delphi-Quellcode:
function TForm1.OptStringGridBreite(Sender: TObject): string;
var vCol, vRow, len: integer;
begin
  with TStringGrid(Sender) do
  for vCol := FixedCols to pred(ColCount) do
    begin
      len := 1; // min. Breite
      for vRow := FixedRows to pred(RowCount) do
        if len < Canvas.TextWidth(Cells[vRow, vCol]) + GridLineWidth + 4 then
          len := Canvas.TextWidth(Cells[vRow, vCol]) + GridLineWidth + 4;
      ColWidths[vCol] := len;
    end;
end;
aufgerufen wird es so:

OptStringGridBreite(StringGrid1); kurz bevor die funktion aufgerufen wird, wird erst die anzahl der spalten festgelegt:

StringGrid1.ColCount := ComboBox5.Items.Capacity; zum einen wird eine spalte mit daten (z.b. 24.01.2004) zu eng gerückt und zum anderen werden viele spalten nicht eng genug gerückt (z.b. leere spalten. gibt es noch einen mindestbreitenwert von delphi aus? ich habe den im qt ja schona uf 1 begrenzt.

danke
mfg
tkliewe
  Mit Zitat antworten Zitat
Robert_G
(Gast)

n/a Beiträge
 
#6

Re: "Optimale Breite" bei StringGrid einstellbar?

  Alt 12. Mär 2004, 00:41

Tausche mal vRow und vCol um...
  Mit Zitat antworten Zitat
joehd

Registriert seit: 8. Okt 2008
Ort: Heidelberg
106 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#7

AW: "Optimale Breite" bei StringGrid einstellbar?

  Alt 17. Jul 2019, 09:46
So ist es jetzt dann richtig würde ich sagen zumindest bei mir geht es so ...
Ob eine Spalte gleich 0 wird habe ich nicht probiert
Delphi-Quellcode:
function TForm1.OptStringGridBreite(Sender: TObject): string;
var vCol, vRow, len: integer;
begin
  with TStringGrid(Sender) do
  for vCol := FixedCols to pred(ColCount) do
    begin
      len := 1; // min. Breite
      for vRow := FixedRows to pred(RowCount) do
        if len < Canvas.TextWidth(Cells[vcol, vrow]) + GridLineWidth + 4 then
          len := Canvas.TextWidth(Cells[vcol, vrow]) + GridLineWidth + 4;
      ColWidths[vCol] := len;
    end;
end;
joe
immer wenn ich was suche finde ich es hier komisch oder ?
Arbeite mit D3 D5 D2007 DXE Prof
  Mit Zitat antworten Zitat
dominicday

Registriert seit: 9. Aug 2019
1 Beiträge
 
#8

AW: "Optimale Breite" bei StringGrid einstellbar?

  Alt 9. Aug 2019, 05:26
vielen dank für deine antwort. nur leider klappt das bei mir nicht
  Mit Zitat antworten Zitat
hoika

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

AW: "Optimale Breite" bei StringGrid einstellbar?

  Alt 9. Aug 2019, 07:59
Hallo,
"klappt nicht" ist keine Fehlermeldung ...

Wann genau rufst du die Methode auf?
Und poste noch mal deine Methode.
Heiko

Geändert von hoika ( 9. Aug 2019 um 08:01 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.449 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: "Optimale Breite" bei StringGrid einstellbar?

  Alt 9. Aug 2019, 09:09
///<summary>
/// Resizes the columns of a TCustomGrid to fit their contents
/// @param Grid is the TCustomGrid to work on
/// @param Options is a TResizeOptionSet specifying additional options,
/// defaults to an empty set.
/// @param RowOffset gives the first row to use, -1 means "start at the first non-fixed row"
/// @param ConstantCols is an array containg the indexes of columns that should keep their
/// width.
/// @returns True, if the grid is not wide enough to display all columns (that is: It should
/// have a horizontal scrollbar)
/// False, if all columns fit without scrolling
/// @note that the default is to use the first 10 rows. </summary>
function TGrid_Resize(_Grid: TCustomGrid): Boolean; overload;
function TGrid_Resize(_Grid: TCustomGrid; _Options: TResizeOptionSet; _RowOffset: Integer = -1): Boolean; overload;
function TGrid_Resize(_Grid: TCustomGrid; _Options: TResizeOptionSet;
const _ConstantCols: array of Integer; _RowOffset: Integer = -1): Boolean; overload;

https://osdn.net/projects/dzlib-tool...lib-tools#l116
Thomas Mueller
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 15:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz