Class TFireCustomForm

Unit

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

Overview

Methods

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

Properties

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

Description

Methods

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

Properties

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

Generated by PasDoc 0.15.0.