Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Tabellenkopf soll stehen bleiben


D. Annies - Sa 29.01.11 22:46
Titel: Tabellenkopf soll stehen bleiben
Hi, Delpher,

was muss ich machen, damit der Tabellenkopf im Stringgrid stehen bleibt, wenn ich nach unten scrolle?

Danke, Detlef


Moderiert von user profile iconNarses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am So 30.01.2011 um 22:51


bummi - Sa 29.01.11 22:58

Da ich nicht glaube daß Du FixedRows nicht kennst, bitte ich um genauere Erklärung.


jaenicke - Sa 29.01.11 23:04

Eben, der bleibt eigentlich sowieso stehen, egal ob bei StringGrid oder ListView. :gruebel:


D. Annies - Sa 29.01.11 23:11

Umpf, FixedRows = 1 ist im OI eingestellt und wird im Code nicht verändert.


jaenicke - Sa 29.01.11 23:12

Ja, aber was passiert? Scrollt diese graue feste Zeile nach oben weg?


D. Annies - Sa 29.01.11 23:16

Yes


bummi - Sa 29.01.11 23:48

ein fehlerhaft implementiertes OnDraw...?

oder :
beim setzen von RowCount ??

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TCustomGrid.SetRowCount(Value: Longint);
begin
  if FRowCount <> Value then
  begin
    if Value < 1 then Value := 1;
    if Value <= FixedRows then FixedRows := Value - 1; // <= **@#$#@#$**
    ChangeSize(ColCount, Value);
  end;
end;


D. Annies - So 30.01.11 23:15

Hi, Bummi und Bastian,
nun, es lag - recht versteckt - in einer anderen Proc, dort habe ich vergessen, den RowCounter zu erhöhen.
:)
Schönen Abend, noch, Detlef