Home Units Hierarchy Routines All identifiers

Unit unaWinClasses

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

Contains standard Windows GUI classes wrappers.

Version 2.5.2009.06 Fixed some unicode-related bugs

Version 2.5.2008.07 Still here

Uses

Overview

Classes, Interfaces, Objects and Records

Name Description
packed record tagCHOOSEFONTA  
packed record tagCHOOSEFONTW maximum point size allowed if cf_LimitSize is used
packed record TOOLINFOW == tool tips ==
Class unaWinApp Window class which can be used as main application window.
Class unaWinBitmap Windows bitmap.
Class unaWinButton BUTTON window.
Class unaWinCheckBox Checkbox window.
Class unaWinClass This class encapsulates the Windows class object.
Class unaWinCombobox Combobox window.
Class unaWinConsoleApp Simple console-like application main window class.
record unaWinCreateParams  
Class unaWinEdit EDIT window.
Class unaWinFont This class encapsulates the Windows font object.
Class unaWinGraphicsApp Windows application whith graphics support.
Class unaWinListBox LISTBOX window.
Class unaWinMemo Memo window.
Class unaWinSplashWindow This is small centered window without borders.
Class unaWinStatic STATIC window
Class unaWinTootip Tooltip window
Class unaWinWindow This class encapsulates Windows window object.

Functions and Procedures

function ChooseFont(var ChooseFont: TChooseFont): Bool; stdcall;
function ChooseFontA(var ChooseFont: TChooseFontA): Bool; stdcall;
function ChooseFontW(var ChooseFont: TChooseFontW): Bool; stdcall;
function getClass(const className: string = ''; isStdClass: bool = false; style: unsigned = 0; icon: hIcon = 0; smallIcon: hIcon = 0; cursor: hCursor = 0; brBrush: hBrush = COLOR_WINDOW; menuName: int = 0; instance: hModule = 0; force: bool = true): unaWinClass;

Types

PChooseFontA = ˆTChooseFontA;
PChooseFontW = ˆTChooseFontW;
PChooseFont = PChooseFontA;
tagCHOOSEFONT = tagCHOOSEFONTA;
TChooseFontA = tagCHOOSEFONTA;
TChooseFontW = tagCHOOSEFONTW;
TChooseFont = TChooseFontA;
punaWinCreateParams = ˆunaWinCreateParams;
tmessageEvent = function (sender: tObject; wParam, lParam: int): int of object;

Constants

BOLD_FONTTYPE = $0100;
btnCmdExit = 1004;
btnCmdFirstAvail = 1100;
btnCmdStart = 1005;
btnCmdStop = 1006;
CF_ANSIONLY = $00000400;
CF_APPLY = $00000200;
CF_BOTH = CF_SCREENFONTS OR CF_PRINTERFONTS;
CF_EFFECTS = $00000100;
CF_ENABLEHOOK = $00000008;
CF_ENABLETEMPLATE = $00000010;
CF_ENABLETEMPLATEHANDLE = $00000020;
CF_FIXEDPITCHONLY = $00004000;
CF_FORCEFONTEXIST = $00010000;
CF_INITTOLOGFONTSTRUCT = $00000040;
CF_LIMITSIZE = $00002000;
CF_NOFACESEL = $00080000;
CF_NOOEMFONTS = CF_NOVECTORFONTS;
CF_NOSCRIPTSEL = $00800000;
CF_NOSIMULATIONS = $00001000;
CF_NOSIZESEL = $00200000;
CF_NOSTYLESEL = $00100000;
CF_NOVECTORFONTS = $00000800;
CF_NOVERTFONTS = $01000000;
CF_PRINTERFONTS = $00000002;
CF_SCALABLEONLY = $00020000;
CF_SCREENFONTS = $00000001;
CF_SCRIPTSONLY = CF_ANSIONLY;
CF_SELECTSCRIPT = $00400000;
CF_SHOWHELP = $00000004;
CF_TTONLY = $00040000;
CF_USESTYLE = $00000080;
CF_WYSIWYG = $00008000;
DSIG_FONTTYPE = $40000;
ITALIC_FONTTYPE = $0200;
OPENTYPE_FONTTYPE = $10000;
PRINTER_FONTTYPE = $4000;
REGULAR_FONTTYPE = $0400;
rstr_caption_exit = 'E&xit';
rstr_caption_start = '&Start';
rstr_caption_stop = 'S&top';
SCREEN_FONTTYPE = $2000;
SIMULATED_FONTTYPE = $8000;
TOOLTIPS_CLASS = 'tooltips_class32';
TTF_ABSOLUTE = $0080;
TTF_CENTERTIP = $0002;
TTF_DI_SETITEM = $8000;
TTF_IDISHWND = $0001;
TTF_RTLREADING = $0004;
TTF_SUBCLASS = $0010;
TTF_TRACK = $0020;
TTF_TRANSPARENT = $0100;
TTM_ADDTOOLW = WM_USER + 50;
TTM_DELTOOLW = WM_USER + 51;
TTM_ENUMTOOLSW = WM_USER + 58;
TTM_GETCURRENTTOOLW = WM_USER + 59;
TTM_GETDELAYTIME = WM_USER + 21;
TTM_GETMARGIN = WM_USER + 27;
TTM_GETMAXTIPWIDTH = WM_USER + 25;
TTM_GETTEXTW = WM_USER + 56;
TTM_GETTIPBKCOLOR = WM_USER + 22;
TTM_GETTIPTEXTCOLOR = WM_USER + 23;
TTM_GETTOOLINFOW = WM_USER + 53;
TTM_HITTESTW = WM_USER + 55;
TTM_NEWTOOLRECTW = WM_USER + 52;
TTM_POP = WM_USER + 28;
TTM_SETMARGIN = WM_USER + 26;
TTM_SETMAXTIPWIDTH = WM_USER + 24;
TTM_SETTIPBKCOLOR = WM_USER + 19;
TTM_SETTIPTEXTCOLOR = WM_USER + 20;
TTM_SETTOOLINFOW = WM_USER + 54;
TTM_TRACKACTIVATE = WM_USER + 17;
TTM_TRACKPOSITION = WM_USER + 18;
TTM_UPDATE = WM_USER + 29;
TTM_UPDATETIPTEXTW = WM_USER + 57;
TTM_WINDOWFROMPOINT = WM_USER + 16;
TTS_ALWAYSTIP = $01;
TTS_BALLOON = $40;
TTS_CLOSE = $80;
TTS_NOANIMATE = $10;
TTS_NOFADE = $20;
TTS_NOPREFIX = $02;
TYPE1_FONTTYPE = $20000;
unaWinAnchor_BOTTOM = $0001;
unawinAnchor_LEFT = $0008;
unaWinAnchor_RIGHT = $0004;
unaWinAnchor_TOP = $0002;
WM_CHOOSEFONT_GETLOGFONT = WM_USER + 1;
WM_CHOOSEFONT_SETFLAGS = WM_USER + 102;
WM_CHOOSEFONT_SETLOGFONT = WM_USER + 101;

Description

Functions and Procedures

function ChooseFont(var ChooseFont: TChooseFont): Bool; stdcall;
 
function ChooseFontA(var ChooseFont: TChooseFontA): Bool; stdcall;
 
function ChooseFontW(var ChooseFont: TChooseFontW): Bool; stdcall;
 
function getClass(const className: string = ''; isStdClass: bool = false; style: unsigned = 0; icon: hIcon = 0; smallIcon: hIcon = 0; cursor: hCursor = 0; brBrush: hBrush = COLOR_WINDOW; menuName: int = 0; instance: hModule = 0; force: bool = true): unaWinClass;

– getClass() –

Types

PChooseFontA = ˆTChooseFontA;

for some reason this stuff is not included in Windows.pas

PChooseFontW = ˆTChooseFontW;
 
PChooseFont = PChooseFontA;
 
tagCHOOSEFONT = tagCHOOSEFONTA;

maximum point size allowed if cf_LimitSize is used

TChooseFontA = tagCHOOSEFONTA;
 
TChooseFontW = tagCHOOSEFONTW;
 
TChooseFont = TChooseFontA;
 
punaWinCreateParams = ˆunaWinCreateParams;
 
tmessageEvent = function (sender: tObject; wParam, lParam: int): int of object;
 

Constants

BOLD_FONTTYPE = $0100;
 
btnCmdExit = 1004;

f_bitmap: hBITMAP; f_dc: hDC;

btnCmdFirstAvail = 1100;
 
btnCmdStart = 1005;
 
btnCmdStop = 1006;
 
CF_ANSIONLY = $00000400;
 
CF_APPLY = $00000200;
 
CF_BOTH = CF_SCREENFONTS OR CF_PRINTERFONTS;
 
CF_EFFECTS = $00000100;
 
CF_ENABLEHOOK = $00000008;
 
CF_ENABLETEMPLATE = $00000010;
 
CF_ENABLETEMPLATEHANDLE = $00000020;
 
CF_FIXEDPITCHONLY = $00004000;
 
CF_FORCEFONTEXIST = $00010000;

must also have CF_SCREENFONTS & CF_PRINTERFONTS

CF_INITTOLOGFONTSTRUCT = $00000040;
 
CF_LIMITSIZE = $00002000;
 
CF_NOFACESEL = $00080000;
 
CF_NOOEMFONTS = CF_NOVECTORFONTS;
 
CF_NOSCRIPTSEL = $00800000;
 
CF_NOSIMULATIONS = $00001000;
 
CF_NOSIZESEL = $00200000;
 
CF_NOSTYLESEL = $00100000;
 
CF_NOVECTORFONTS = $00000800;
 
CF_NOVERTFONTS = $01000000;
 
CF_PRINTERFONTS = $00000002;
 
CF_SCALABLEONLY = $00020000;
 
CF_SCREENFONTS = $00000001;
 
CF_SCRIPTSONLY = CF_ANSIONLY;
 
CF_SELECTSCRIPT = $00400000;
 
CF_SHOWHELP = $00000004;
 
CF_TTONLY = $00040000;
 
CF_USESTYLE = $00000080;
 
CF_WYSIWYG = $00008000;
 
DSIG_FONTTYPE = $40000;
 
ITALIC_FONTTYPE = $0200;
 
OPENTYPE_FONTTYPE = $10000;
 
PRINTER_FONTTYPE = $4000;
 
REGULAR_FONTTYPE = $0400;
 
rstr_caption_exit = 'E&xit';
 
rstr_caption_start = '&Start';
 
rstr_caption_stop = 'S&top';
 
SCREEN_FONTTYPE = $2000;
 
SIMULATED_FONTTYPE = $8000;

these are extra nFontType bits that are added to what is returned to the EnumFonts callback routine

TOOLTIPS_CLASS = 'tooltips_class32';
 
TTF_ABSOLUTE = $0080;
 
TTF_CENTERTIP = $0002;
 
TTF_DI_SETITEM = $8000;
 
TTF_IDISHWND = $0001;

Use this to center around trackpoint in trackmode -OR- to center around tool in normal mode. Use TTF_ABSOLUTE to place the tip exactly at the track coords when in tracking mode. TTF_ABSOLUTE can be used in conjunction with TTF_CENTERTIP to center the tip absolutely about the track point.

TTF_RTLREADING = $0004;
 
TTF_SUBCLASS = $0010;
 
TTF_TRACK = $0020;
 
TTF_TRANSPARENT = $0100;
 
TTM_ADDTOOLW = WM_USER + 50;

valid only on the TTN_NEEDTEXT callback

TTM_DELTOOLW = WM_USER + 51;
 
TTM_ENUMTOOLSW = WM_USER + 58;
 
TTM_GETCURRENTTOOLW = WM_USER + 59;
 
TTM_GETDELAYTIME = WM_USER + 21;
 
TTM_GETMARGIN = WM_USER + 27;

lParam = lprc

TTM_GETMAXTIPWIDTH = WM_USER + 25;
 
TTM_GETTEXTW = WM_USER + 56;
 
TTM_GETTIPBKCOLOR = WM_USER + 22;
 
TTM_GETTIPTEXTCOLOR = WM_USER + 23;
 
TTM_GETTOOLINFOW = WM_USER + 53;
 
TTM_HITTESTW = WM_USER + 55;
 
TTM_NEWTOOLRECTW = WM_USER + 52;
 
TTM_POP = WM_USER + 28;

lParam = lprc

TTM_SETMARGIN = WM_USER + 26;
 
TTM_SETMAXTIPWIDTH = WM_USER + 24;
 
TTM_SETTIPBKCOLOR = WM_USER + 19;

lParam = dwPos

TTM_SETTIPTEXTCOLOR = WM_USER + 20;
 
TTM_SETTOOLINFOW = WM_USER + 54;
 
TTM_TRACKACTIVATE = WM_USER + 17;
 
TTM_TRACKPOSITION = WM_USER + 18;

wParam = TRUE/FALSE start end lparam = LPTOOLINFO

TTM_UPDATE = WM_USER + 29;
 
TTM_UPDATETIPTEXTW = WM_USER + 57;
 
TTM_WINDOWFROMPOINT = WM_USER + 16;
 
TTS_ALWAYSTIP = $01;
 
TTS_BALLOON = $40;
 
TTS_CLOSE = $80;
 
TTS_NOANIMATE = $10;
 
TTS_NOFADE = $20;
 
TTS_NOPREFIX = $02;
 
TYPE1_FONTTYPE = $20000;
 
unaWinAnchor_BOTTOM = $0001;
 
unawinAnchor_LEFT = $0008;

– unaWinWindow –

child window position anchors default is LEFT + TOP

unaWinAnchor_RIGHT = $0004;
 
unaWinAnchor_TOP = $0002;
 
WM_CHOOSEFONT_GETLOGFONT = WM_USER + 1;
 
WM_CHOOSEFONT_SETFLAGS = WM_USER + 102;

removed in 4.0 SDK

WM_CHOOSEFONT_SETLOGFONT = WM_USER + 101;
 

Author

(c) 2012 Lake of Soft

Generated by PasDoc 0.12.1 on 2012-10-09