Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
2. Jan 2006
Danke für deinen Tip.
Ich hab jetzt folgendes gemacht:
begin
with (Sender as TStringGrid), Canvas do
if not (gdSelected in State) then
begin
{ ... }
end
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
2. Jan 2006
Im OnDrawCell mach ich folgendes:
procedure TMainForm.StringGrid_AblaufDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid), Canvas do
begin
//linke, obere Zelle
if (ACol = 0) and (ARow = 0) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
2. Jan 2006
Wenn ich euren Code aus einem Button raus starte dann wird nichts markiert.
Wenn ich aber in das OnClick-Ereignis der StringGrid schreibe, dann passiert das was auf dem Bild zu sehen ist.
Ich muss noch hinzu sagen, dass ich OnDrawCell verwende. Wenn ich im OnDrawCell mal ein exit am Anfang schreibe (damit mein Code nicht durchlaufen wird) wird auch die ganze Zeile markiert (von einem...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
2. Jan 2006
Ich will die Zeile der aktuell markierten Zelle makieren.
Wenn ich deinen Code benutze, dann markiert er mir nur die schon markierte Zelle und die letzte Zeile.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
2. Jan 2006
Hallo,
wie kann ich eine Zeile eines StringGrids markieren?
Ich vergaß: die zeile soll nur durch eine Procedure (z. B. Aufruf durch ein MainMenu-Item) markiert werden.
Durch einen Klick auf eine Zelle soll diese markiert sein.
gesetzte Optionen: