constructor THeaderControl.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  ControlStyle := [];

  Align := alTop;

  Height := 17;

  FSections := THeaderSections.Create(Self);

  FCanvas := TControlCanvas.Create;

  TControlCanvas(FCanvas).Control := Self;

  FImageChangeLink := TChangeLink.Create;

  FImageChangeLink.OnChange := ImageListChange;

  FFullDrag := True;

  FDragReorder := False;

  FSectionDragged := False;

  FUpdatingSectionOrder := False;

  FSectionStream := nil;

end;

destructor THeaderControl.Destroy;

begin

  FCanvas.Free;

  FSections.Free;

  if Assigned(FSectionStream) then FSectionStream.Free;

  inherited Destroy;

end;

Съдържаниет е скрито
Влезте за да го видите