Objekte dynamisch mit Form skalieren

[dopeline]

also das mit dem resizen funktionert super!

nur das mit der einen spalte, zu der dann die übrichgebliebene "breite" hinzugefügt wird, funktionert bei mir nicht er sagt in der letzten zeile (s.u.) " Inkompatible Typen: 'Integer' und 'Extended' "

vielleicht habe ich die variablen falschen typen zugeordnet...

Delphi-Quellcode:

procedure TFormHaupt.FormResize(Sender: TObject);
var i:byte;
    iTemp,iGridSize,dblFaktor:real;
begin
  iGridSize := SGS.Width;
  dblFaktor := 40/899;
  SGS.ColWidths[0] := round(dblFaktor*iGridSize);
  dblFaktor := 99/899;
  SGS.ColWidths[1] := round(dblFaktor*iGridSize);
  dblFaktor := 128/899;
  SGS.ColWidths[2] := round(dblFaktor*iGridSize);
  dblFaktor := 51/899;
  SGS.ColWidths[3] := round(dblFaktor*iGridSize);
  dblFaktor := 135/899;
  SGS.ColWidths[4] := round(dblFaktor*iGridSize);
  dblFaktor := 146/899;
  SGS.ColWidths[5] := round(dblFaktor*iGridSize);
  dblFaktor := 144/899;
  SGS.ColWidths[6] := round(dblFaktor*iGridSize);
  dblFaktor := 128/899;
  SGS.ColWidths[7] := round(dblFaktor*iGridSize);

 iTemp := 0;
  for i:= 0 to SGS.ColCount -1 do
    iTemp := iTemp + SGS.ColWidths[i];

 iTemp := iGridSize - iTemp;
  if not (itemp = 0) then
  SGS.ColWidths[7] := SGS.ColWidths[7] + iTemp;   // an dieser stelle meckert er (s.o.)

end;

woran kann das liegen?

@Smokey wie hast denn deine variablen deklariert?


Gruß, dopeline