Szukałem na tym forum, jednak nie znalazłem odp. na nurtujący mnie problem.
Otóż mam tabelkę StringGrid na formularzu, która zawiera 100 wierszy i 100 kolumn. Przesuwając suwaki pionowe i poziome mam do dyspozycji jakiś obszar. Czy można dojść jaki obszar widzę (zakres kolumn i wierszy)?
Piszę program, który wstawia pole edycji do komórki nagłówka kolumny ustawionej na Fixed (FixedRows=1).
Poprzez wybór nagłówka kolumny dostaje informację jaka to kolumna i wstwiam nakładkę pola edycji w to miejsce (w ten sposób user może modyfikować nazwy kolumn). Przy przejściu suwakami scrolla do dalszego obszaru obiektu StringGrid (np. 20 kolumna) pole edycji wychodzi mi już poza obszar obiektu StringGrid.
- Kod: Zaznacz cały
void __fastcall TForm1::Sg1MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
TGridCoord mCoord = Sg1->MouseCoord(X, Y);
EditCol = mCoord.X;
int left=0;
for(int i=0;i<EditCol;i++)
{
left+=Sg1->ColWidths[i]+1;
}
Edit1->Left=left+4;
Edit1->Width=Sg1->ColWidths[EditCol]-4;
}
ProszÄ™ o info.