Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
2. Jan 2006
Hallo,
in Deiner OnDrawCell-Behandlungs-Routine werden selectierte Zellen wie normale gezeichnet.
Füge mal die markierte Zeile in die Prozedur ein,
dann klappt erst mal die Selectierung.
//...
begin
with (Sender as TStringGrid), Canvas do
if not (gdSelected in State) then//<----------- !!!
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
2. Jan 2006
Hallo,
OnDrawCell :roll:
was machst Du darin?
Mit dem Code funktioniert es aus den verschiedenen Aufrufmöglichkeiten.
Wobei nur beim Buttonklick alle Zellen markiert(blau) werden,
bei Aufruf aus Menü oder im onClick des StringGrids
ist die erste Zelle der Zeile nur mit einem Focusrahmen versehen.
var aRow,aFixCols : Integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
2. Jan 2006
Hallo,
gerade nochmal getestet,
es funktioniert einwandfrei :?
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Selection := TGridRect(Rect(StringGrid1.FixedCols, //Left: Fixedcols nicht markiern
StringGrid1.Row, //Top: aktuelle Zeile
StringGrid1.ColCount-1, //Right: ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
2. Jan 2006
Hallo,
was soll markiert werden?
Die Zeile mit der aktuell markierten Zelle:
StringGrid1.Selection := TGridRect(Rect(StringGrid1.FixedCols,
StringGrid1.Row,
StringGrid1.ColCount-1,
StringGrid1.Row));
Eine bestimmte Zeile (z.B. die 3te Zeile):