[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