Hallo zusammen,
ein kleines Problem: Ich experimentiere gerade damit herum die Objects des StringGrid zu verwenden und zwar möchte ich im Grid festhalten, ob eine Row des Grid als Vorschlagswert verwendet wird (Daten kommen aus einer
DB) und sobald der Benutzer das Grid anklickt soll die Row als Ausgewählt markiert werden. Hier mal ein paar Codeschnipsel:
Delphi-Quellcode:
//Der Objekttyp für das Grid
type
TStellplatz = class(TObject)
private
Suggested: boolean;
Selected: boolean;
end;
//Hier wird das Objekt dem Grid (immer Spalte 0) zugeordnet
procedure TFrmLlesy.AnmeldungAddStellplatzToGrid;
var
AObject : TStellplatz;
begin
AObject:=TStellplatz.Create;
AObject.Suggested:=IsSuggested;
AObject.Selected:=false;
StrngGrdAnmeldungStellplaetze.Objects[0,ARow]:=AObject;
end;
//Hier wird geprüft, ob das Bit Suggested gesetzt ist
function TFrmLlesy.AnmeldungStellplatzSuggested;
begin
if StrngGrdAnmeldungStellplaetze.Objects[0,ARow]<>nil then
result:=TStellplatz(StrngGrdAnmeldungStellplaetze.Objects[0,ARow]).Suggested
else
result:=false;
end;
//Hier wird geprüft, ob das Bit Selected gesetzt ist
function TFrmLlesy.AnmeldungStellplatzSelected;
begin
if StrngGrdAnmeldungStellplaetze.Objects[0,ARow]<>nil then
result:=TStellplatz(StrngGrdAnmeldungStellplaetze.Objects[0,ARow]).Selected
else
result:=false;
end;
//Hier wird das Grid zum ersten Mal befüllt
...
AnmeldungAddStellplatzToGrid(ARow,ADOQry.FieldByName('stv').AsInteger>0);
...
//Hier ein Ausschnitt aus der OnDrawCell Routine
...
if ACol=1 then
begin
Canvas.Brush.Color:=clBtnFace;
Canvas.FillRect(Rect);
if AnmeldungStellplatzSuggested(ARow) then
begin
ImgLst.GetBitmap(6,AImage);
Canvas.StretchDraw(Rect,AImage);
end;
if AnmeldungStellplatzSelected(ARow) then
begin
ImgLst.GetBitmap(7,AImage);
Canvas.StretchDraw(Rect,AImage);
end;
end;
//Hier soll beim Klicken des Grid Selected zugewiesen werden
procedure TFrmLlesy.StrngGrdAnmeldungStellplaetzeClick(Sender: TObject);
begin
(StrngGrdAnmeldungStellplaetze.Objects[0,StrngGrdAnmeldungStellplaetze.Row] as TStellplatz).Selected:=true//not (StrngGrdAnmeldungStellplaetze.Objects[0,StrngGrdAnmeldungStellplaetze.Row] as TStellplatz).Selected;
end;
Das Einfügen der Grafik in das Gitter bei Suggested funktioniert so perfekt, wenn ich gleich am Anfang auch Selected auf True setzte dann wird auch korrekt die andere Grafik angezeigt. Es scheint also am Klickereignis des Gitters zu liegen. Ich habe da jetzt schon alle möglichen Sachen probiert, aber irgendwie klappt es nicht. Warum???
Danke und Gruß, Guido