Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: und wieder TGrid: diesmal: Linien zeichen

  Alt 9. Apr 2008, 17:49
Was meinst du mit TGrid ? Diese Klasse gibt es nicht in der VCL.
Meinst du ein TDrawGrid ?
Hier kleiner Beispielcode. Einfach auf das Event OnDrawCell doppelklicken und folgenden Code einbauen:
Delphi-Quellcode:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TDrawGrid do
  begin
    Canvas.Brush.Color := clBackGround;
    Canvas.FillRect(Rect);
    Canvas.MoveTo(Rect.Left, Rect.top);
    Canvas.LineTo(Rect.Right, Rect.Bottom);
  end;
end;
Andreas
  Mit Zitat antworten Zitat