John Kaster

Behind the Screen

ClientDataSetGrid is finally updated!

with 2 comments

After years of extreme patience from users of the ClientDataSetGrid component, I’ve finally updated it to the latest version. You can get it here from CodeCentral. New features in this version include:

  • Support for VisualCLX
  • Support for Delphi versions up to 7.x
  • rewrote the arrow drawing routine to be more configurable and included the index order information
    implemented SetIndexIndicators
  • added TitleSort, ArrowShade, ArrowHighlight, ArrowColor
  • added ConfigureColumns & persistence for the columns with ConfigFile property
  • Adopted a suggestion from Ruud Bijvank for making sure the drawn arrow is not drawn over the title of the column.
  • Advertisements

    Written by John Kaster

    July 20, 2004 at 11:20 am

    2 Responses

    Subscribe to comments with RSS.

    1. This component is very good.

      nailton franzoi

      February 8, 2005 at 4:13 am

    2. I made the alteration below to support the alignment right, but in some cases the text of the number shows greater, some suggestion to correct?

      AFont := TFont.Create;
      try
      AFont.Assign(Canvas.Font);
      Canvas.Font.Name := SFontName;
      Canvas.Font.Size := FontSize;
      if Col.Title.Alignment = taLeftJustify then //Paulo
      Canvas.TextOut(TextPoint.x, TextPoint.y, IntToStr(Abs(Arrow[ACol]))) else
      Canvas.TextOut(TextPoint.x – Col.Width + 16, TextPoint.y, IntToStr(Abs(Arrow[ACol])));
      Canvas.Font.Assign(AFont);
      finally
      AFont.Free;
      end;
      if Col.Title.Alignment = taLeftJustify then //Paulo
      begin
      Canvas.MoveTo(LeftPoint.x, LeftPoint.y);
      Canvas.Pen.Color := FArrowShade;
      Canvas.LineTo(MidPoint.x, MidPoint.y);
      Canvas.Pen.Color := FArrowHighlight;
      Canvas.LineTo(RightPoint.x, RightPoint.y);
      Canvas.LineTo(LeftPoint.x, LeftPoint.y);
      Canvas.Pen.Color := OldPenColor;
      end
      else
      begin
      Canvas.MoveTo(LeftPoint.x – Col.Width + 16, LeftPoint.y);
      Canvas.Pen.Color := FArrowShade;
      Canvas.LineTo(MidPoint.x – Col.Width + 16, MidPoint.y);
      Canvas.Pen.Color := FArrowHighlight;
      Canvas.LineTo(RightPoint.x – Col.Width + 16, RightPoint.y);
      Canvas.LineTo(LeftPoint.x – Col.Width + 16, LeftPoint.y);
      Canvas.Pen.Color := OldPenColor;
      end;

      Paulo Geloramo

      August 3, 2007 at 5:51 pm


    Leave a Reply

    Fill in your details below or click an icon to log in:

    WordPress.com Logo

    You are commenting using your WordPress.com account. Log Out / Change )

    Twitter picture

    You are commenting using your Twitter account. Log Out / Change )

    Facebook photo

    You are commenting using your Facebook account. Log Out / Change )

    Google+ photo

    You are commenting using your Google+ account. Log Out / Change )

    Connecting to %s

    %d bloggers like this: