was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

33 Visitors Online


 
...die Spaltenbreite eines TDBGrid automatisch anpassen?
Autor: Uwe Braune
Homepage: http://www.dblinks.de
[ Tip ausdrucken ]  

Tip Bewertung (7):  
     


(*
--- english -------------------------------------------------------------------
This will change (reduce or extend) the width of column(s) so they all
fit in the Grid.
If aChangeAll = False then only the last col will be modified.
--- german --------------------------------------------------------------------
Anpassung (Vergrößerung oder Verkleinerung) der Spaltenbreite(n).
Wenn aChangeAll = False, dann wird nur die letzte Spalte verändert.
*)
procedure ChangeColumnWidths(DBGrid: TDBGrid; aChangeAll: boolean);
var
  
NewWidth,
  TotalColumnWidth,
  ColumnCount,
  GridClientWidth,
  StepWidth,
  i: integer;
begin
  
ColumnCount := DBGrid.Columns.Count;
  if ColumnCount = 0 then Exit;

  // Ermitteln der momentanen Breite des Grids
  // look for the actual size of all columns
  
TotalColumnWidth := 0;
  for i := 0 to ColumnCount-1 do
    
TotalColumnWidth := TotalColumnWidth + DBGrid.Columns[i].Width;
  if dgColLines in DBGrid.Options then
    
TotalColumnWidth := TotalColumnWidth + ColumnCount;

  // Ermitteln der max. Breite des Grids
  // What's the total Grid width?
  
GridClientWidth := DBGrid.Width - GetSystemMetrics(SM_CXVSCROLL);
  if dgIndicator in DBGrid.Options then begin
    
GridClientWidth := GridClientWidth - IndicatorWidth;
    if dgColLines in DBGrid.Options then
      
Dec(GridClientWidth);
  end;
  if DBGrid.BorderStyle = bsSingle then begin
    if 
DBGrid.Ctl3D then // 2 * 2 Pixel
      
GridClientWidth := GridClientWidth - 4
    else // 2 * 1 Pixel
      
GridClientWidth := GridClientWidth - 2;
  end;

  // Neue Spaltenbreiten setzen: vergößern
  // change the width(s): extend size/width
  
if TotalColumnWidth < GridClientWidth then begin
    
StepWidth := (GridClientWidth - TotalColumnWidth) div ColumnCount;
    // Alle Spalten anpassen
    // for all columns
    
if aChangeAll then begin
      for 
i := 0 to ColumnCount-1 do
        
DBGrid.Columns[i].Width := DBGrid.Columns[i].Width + StepWidth;
    // Nur letzte Splate anpassen
    // only for the last one
    
end else
      
DBGrid.Columns[ColumnCount-1].Width := DBGrid.Columns[ColumnCount-1].Width + ColumnCount * StepWidth;
  end

  
// Neue Spaltenbreiten setzen: verkleinern
  // change the width(s): reduce size/width
  
else if TotalColumnWidth > GridClientWidth then begin
    
StepWidth := (TotalColumnWidth - GridClientWidth) div ColumnCount;
    if (TotalColumnWidth - GridClientWidth) mod ColumnCount <> 0 then Inc(StepWidth);
    // Alle Spalten anpassen
    // for all columns
    
if aChangeAll then begin
      for 
i := 0 to ColumnCount-1 do begin
        
NewWidth := DBGrid.Columns[i].Width - StepWidth;
        if (NewWidth > 5) then DBGrid.Columns[i].Width := NewWidth;
      end;
    // Nur letzte Splate anpassen
    // only for the last one
    
end else begin
      
NewWidth := DBGrid.Columns[ColumnCount-1].Width - ColumnCount * StepWidth;
      if (NewWidth > 5) then DBGrid.Columns[ColumnCount-1].Width := NewWidth;
    end;
  end;

end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners