Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zum verzweifeln- Farbe in den Cells (https://www.delphipraxis.net/122316-zum-verzweifeln-farbe-den-cells.html)

zorakh 13. Okt 2008 20:47


Zum verzweifeln- Farbe in den Cells
 
Es klappt einfach cniht. Eingentlich will ich nur alle Felder meines Grids per Schleife rot färben.
über dieses Prinzip, aber es klappt einfahc nciht. Es färbt sich rein garnichts.
Woran kann das liegen?
Delphi-Quellcode:
for x:=0 to (max-1) do begin
for y:=0 to (max-1) do begin
  ColCords:=x;
  RowCords:=y;
  StringGrid1.repaint;
end;
end;

Und dann bei OnDraw Cells

procedure TForm1.TabelleDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender).Canvas do begin
       if (ACol=ColCords) and (ARow=ColCords) then begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
  end;

mkinzler 13. Okt 2008 20:51

Re: Zum verzweifeln- Farbe in den Cells
 
Ist OwnerDraw aktiv?

zorakh 13. Okt 2008 20:57

Re: Zum verzweifeln- Farbe in den Cells
 
"
Tut mir Leid. Ich weiß garnicht was Owner-Draw ist, Was müsste ich denn da machen?
btw: Wenn ich ColCords und RowCords auf 1 setze(in FormCreate) dann bekomme ich mein rotes Feld bei 1,1.
Aber mit der Schleife geht snciht. Klingt sehr danach, als obe es an repaint hängen würde oder?
"

mkinzler 13. Okt 2008 21:17

Re: Zum verzweifeln- Farbe in den Cells
 
Wo befindet sich der Code mit den Schleifen?

zorakh 13. Okt 2008 21:21

Re: Zum verzweifeln- Farbe in den Cells
 
Alles in der selben Unit

Delphi-Quellcode:
procedure TForm1.ShowData;
var x,y:integer;
begin
for x:=0 to (feldmase-1) do begin
for y:=0 to (feldmase-1) do begin
  ColCor:=x;
  RowCor:=y;
  Tabelle.repaint;
end;
end;
end;
und die wird bei einem Timer aufgerufen
Tabelle ist das StringGrid feldmase ist das max

mkinzler 13. Okt 2008 21:23

Re: Zum verzweifeln- Farbe in den Cells
 
Rufe sie mal testweise einmalig auf

zorakh 13. Okt 2008 21:24

Re: Zum verzweifeln- Farbe in den Cells
 
Genau das selbe. Es passiert leider garnichts :(

mkinzler 13. Okt 2008 21:26

Re: Zum verzweifeln- Farbe in den Cells
 
Bei mir funktioniert es. Wo hast du ColCor und RowCor deklariert?

zorakh 13. Okt 2008 21:27

Re: Zum verzweifeln- Farbe in den Cells
 
Global.
Kannst du vielleicht einfach deinen komplette Code hierrein kopieren?
Dann kann ich mal vergleichen

mkinzler 13. Okt 2008 21:33

Re: Zum verzweifeln- Farbe in den Cells
 
Was hast du eigentlich vor?


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:12 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf