Zitat von
Lannes:
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.
Delphi-Quellcode:
//...
begin
with (Sender as TStringGrid), Canvas do
if not (gdSelected in State) then//<----------- !!!
begin
//...
Dann die Procedur zu OnDrawCell erweitern
und selectierte Zellen entsprechnend Deinen Wünschen zeichnen.
Danke für deinen Tip.
Ich hab jetzt folgendes gemacht:
Delphi-Quellcode:
begin
with (Sender as TStringGrid), Canvas do
if not (gdSelected in State) then
begin
{ ... }
end
else
begin
//NEUER PART
Canvas.Brush.Color := clBlue;
TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
FrameRect(Rect);
end;
Jetzt kann ich nur noch hoffen, dass die Markierungsfarbe immer clBlue ist
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<