Einzelnen Beitrag anzeigen

funkuchn

Registriert seit: 20. Sep 2009
Ort: Boblitz
81 Beiträge
 
Delphi 6 Professional
 
#5

Re: stringgrid benutzen

  Alt 4. Mär 2010, 15:07
ja ok, thx
aber guck mal, das is mein code für verdeckte karten
Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if KartenArray[aCol, arow]=0 then
   Stringgrid1.Canvas.Draw(rect.left,rect.top,KarteVerdeckt);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
    for i:=0 to 2 do
     for j:=0 to 2 do
       KartenArray[i,j]:=0;

    KarteVerdeckt:=tbitmap.create;
    KarteVerdeckt.LoadFromFile(extractfilepath(application.exename)+'clip_image002.bmp');

end;
und das onselectcell jetzt so ähnlich??
  Mit Zitat antworten Zitat