Class TFireCustomForm

Unit

FireGraphics

Declaration

type TFireCustomForm = class(TCustomForm)

Description

The class allows you to create native top-level windows with the ability to customize the frame around the window.

Hierarchy

• TCustomForm
• TFireCustomForm

Overview

Methods

	function GetScaleFactor: Single;
	procedure SetNativeFrameless(NativeFrameless: Boolean);
	procedure SetFrameThickness(Thickness: Integer);
	procedure CreateHandle; override;
	procedure DestroyHandle; override;
	function CheckFrameSection(const MousePos: TPoint): TFireFormFrameSection;
	function GetScreenGeometry: TRect;
	procedure SetScreenGeometry(const Rect: TRect);
	constructor Create(AOwner: TComponent; Frameless: Boolean = False); reintroduce;
	constructor CreateNew(AOwner: TComponent; Dummy: NativeInt = 0); override;
	procedure InitializeNewForm; override;
	procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;
	procedure MouseMove(Shift: TShiftState; X, Y: Single); override;
	class procedure StartDrag(Form: TCustomForm; const Pos: TPoint);

Properties

	property ScaleFactor: Single read GetScaleFactor;
	property NativeFrameless: Boolean read FNativeFrameless write SetNativeFrameless;
	property FrameThickness: Integer read FFrameThickness write SetFrameThickness;
	property ScreenGeometry: TRect read GetScreenGeometry write SetScreenGeometry;

Description

Methods

	function GetScaleFactor: Single;

	procedure SetNativeFrameless(NativeFrameless: Boolean);

	procedure SetFrameThickness(Thickness: Integer);

	procedure CreateHandle; override;

	procedure DestroyHandle; override;

	function CheckFrameSection(const MousePos: TPoint): TFireFormFrameSection;

	function GetScreenGeometry: TRect;

	procedure SetScreenGeometry(const Rect: TRect);

	constructor Create(AOwner: TComponent; Frameless: Boolean = False); reintroduce;

	constructor CreateNew(AOwner: TComponent; Dummy: NativeInt = 0); override;

	procedure InitializeNewForm; override;

	procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;

	procedure MouseMove(Shift: TShiftState; X, Y: Single); override;

	class procedure StartDrag(Form: TCustomForm; const Pos: TPoint);

Properties

	property ScaleFactor: Single read GetScaleFactor;

	property NativeFrameless: Boolean read FNativeFrameless write SetNativeFrameless;

	property FrameThickness: Integer read FFrameThickness write SetFrameThickness;

	property ScreenGeometry: TRect read GetScreenGeometry write SetScreenGeometry;

---

Generated by PasDoc 0.15.0.