Hi,
ich habe hier ein Stringgrid und das muß auf die Form passen, ohne Scrollbalken. Bzw. wenn es überhaupt drauf paßt. Es geht also darum, eventuell die Form zu vergrößern, so weit wie möglich, um das Stringgrid noch unterzubringen. Eventuell kann die Form ja auch nach links verschoben werden um Platz zu schaffen und dann eben vergrößern.
Jetzt ist das ganze allerdings etwas verwirrend, denn die Spalten des Grids werden ert im Programm ermittelt (also die Anzahl und Breite). Und wie sieht es da mit den vertikalen Linien aus ? Zählen die bei ColWidth mit oder nicht ?
Habe mal im Nebel rumgestochert :
Delphi-Quellcode:
var i,
GridWidth : integer;
begin
GridWidth := 0;
for i := 0 to sg.ColCount - 1 do
GridWidth := GridWidth + sg.ColWidths [i];
showmessage ('sg '+IntToStr (sg.Width)+' gridwith '+IntToStr (GridWidth));
// + ' Left '+ IntToStr (sgArtNr.Left));
sg.Width := GridWidth;
if GridWidth + sg.Left > Width then
Width := Left + GridWidth + 10;
end;
Wie siehts aus mit dem Left von der Form und dem Grid ? Hoffe mal, daß das einer schon gemacht hat, weil die
OH nicht viel hergibt.