Stringgrid

[hoika]

Hallo,

das is ja wohl einer faul.
Hättest es doch ein Umschreiben können

Heiko <- *heute guten Tag hat*

Delphi-Quellcode:

procedure TForm1.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  X1, X2, Y1, Y2: Integer;
  X: Integer;
  iHeight: Integer;
  iWidth: Integer;
begin
(*
 // horizontal
  X1:= Rect.Left;
  X2:= Rect.Right;
  iHeight:= (Rect.Bottom-Rect.Top) div 2;
  Y1:= Rect.Top+iHeight;
  Y2:= Rect.Top+iHeight;
  Grid1.Canvas.MoveTo(X1, Y1);
  Grid1.Canvas.LineTo(X2, Y2);
*)

 // vertikal
  Y1:= Rect.Top;
  Y2:= Rect.Bottom;
  iWidth:= (Rect.Right-Rect.Left) div 2;
  X:= Rect.Left+iWidth;
  Grid1.Canvas.MoveTo(X, Y1);
  Grid1.Canvas.LineTo(X, Y2);
end;

Heiko