Unit INIUtil

****************************************************** ****************************************************** Project: Delphi Initialization Database Author: JBD E-mail: binel@alf.tel.hr Comment: Utility functions and classes ******************************************************

Classes

TAutoAlignPanel -
TCheckBoxWithSC -
TComboGetColor -
TEditShortCut -
TGoToWeb -
TLineForResizing -
TListViewExtended -
TPaintTextBox -
TPanelGroup -
TPanelGroupCascade -
TPanelList -
TShowHintBox -

Functions

ArrangeToFit -
GoToWeb -
VKeyOfShortCut -

Types

TDirection
TDrawTextFlags
TPanelMode
TTextFormatFlag
TWinControlsIn2D

Constants

CColors
CDrawTextFlagValues
CMaxAppColors
CMaxCols
CMaxRows
CResDefault
CResDeleteItem
CResNextPrev
CResSaveCurrent
CResSearchSection
CResUpDown

Variables


Functions


procedure ArrangeToFit(WControl:TWinControl;Distance:Integer;ArrangeWidth:Boolean);


function GoToWeb(const URL:string):Boolean;


function VKeyOfShortCut(sCut:TShortCut):word;


Types


TDirection=(rdHorizontal,rdVertical);

TDrawTextFlags=(dtBottom,dtCenter,dtExpandTabs,dtExternalLeading,dtLeft,
									dtNoClip,dtNoPrefix,dtRight,dtSingleLine,dtTabStop,dtTop,dtVCenter,dtWordBreak);

TPanelMode=(pmComboList,pmMemo);

TTextFormatFlag=set of TDrawTextFlags

TWinControlsIn2D=array[1..CMaxRows,1..CMaxCols] of TControl;

Constants

CColors = (clBlack,clMaroon,clGreen,clOlive,clNavy,clPurple,clTeal,clGray, clSilver,clRed,clLime,clYellow,clBlue,clFuchsia,clAqua,clWhite, clActiveBorder, clActiveCaption, clAppWorkSpace, clBackground, clBtnFace, clBtnHighlight, clBtnShadow, clBtnText, clCaptionText, clGrayText, clHighlight, clHighlightText, clInactiveBorder, clInactiveCaption, clInactiveCaptionText, clMenu, clMenuText, clScrollBar, clWindow, clWindowFrame, clWindowText)

CDrawTextFlagValues = ( dt_Bottom,dt_Center,dt_ExpandTabs,dt_ExternalLeading,dt_Left, dt_NoClip,dt_NoPrefix,dt_Right,dt_SingleLine,dt_TabStop,dt_Top,dt_VCenter,dt_WordBreak )

CMaxAppColors = 37

CMaxCols = 16

CMaxRows = 16

CResDefault = 20005

CResDeleteItem = 20004

CResNextPrev = 20001

CResSaveCurrent = 20003

CResSearchSection = 20006

CResUpDown = 20002


Variables