[lazarus] VCL VCLX Class Descriptions

James Tabor jimtabor at adsl-64-217-116-74.dsl.hstntx.swbell.net
Fri Jul 26 01:46:49 EDT 2002


Hi All,
Is there any online information on the Classes used with Delphi? Any books?
Like for THeader in ExtCtrls. This is what I have for now in extctrls.pp.

uses Messages;

  THeader = class(TCustomControl)
  private
           procedure FreeSection;
           function  GetWith(X: Integer): integer;
           procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: integer); override;
           procedure MouseMove(Shift: TShiftState; X, Y: integer); override;
           procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer); override;
           procedure SetBorderStyle(Value: TBorderStyle);
           procedure SetSection(Strings: TStrings);
           procedure SetWidth(X: Integer; Value: Integer);
           procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
           procedure WMSetCursor(var Msg: TWMSetCursor); message WM_SETCURSOR;

  protected
           procedure CreateParams(var Params: TCreateParams); override;
           procedure Paint; override;
//           procedure Sized(ASection, AWidth; Integer); ???;
//           procedure Sizing(ASection, AWidth; Integer); ???;

  public
           constructor Create(AOwner: TComponent); override;
           destructor Destroy; override;
  published
           property Align;
//           property AllowResize; Boolean read ???? write ??? default ???;
//           property BorderStyle; TBorderStyle read ??? write ??? default ???;

  end;

I have not written the THeader.inc for these functions in this class yet. I would
like to have more information on what some of these procedures do, other than
just guess or write stubs!

Thanks,
James






More information about the Lazarus mailing list