This unit implements VCL graphic functions and standard message dialog, the dialog buttons are automatically translated to user locale language.
| Name | Base class | Description |
| TFRpMessageDlgVCL | TForm | Standard message dialog |
| Declaration | Description |
| function RpMessageBox (const Text: WideString; const Caption: WideString = ''; Buttons: TMessageButtons = [smbOK]; Style: TMessageStyle = smsInformation; Default: TMessageButton = smbOK; Escape: TMessageButton = smbCancel): TMessageButton; | Function replacing Application.MessageBox |
| function RpInputBox (const ACaption, APrompt, ADefault:WideString ):WideString; | A replacement for Application.InputBox |
| procedure FillTreeView (ATree:TTreeView;alist:TStringList); | Function to fill a treeview based on a string list |
| procedure DrawGrid (Canvas:TCanvas; XWidth, XHeight, PixelsWidth, PixelsHeight:integer; Color:TColor;lines:boolean; XOffset,YOffset:integer); | Draws a grid |
| function twipstopixels (ATwips:integer):integer; | Conversion routines |
| function pixelstotwips (apixels:integer):integer; | Conversion routines |
| function FontStyleToInteger(fontstyle:TFontStyles):integer; | Conversion routines |
| function IntegerToFontStyle (intfontstyle:integer):TFontStyles; | Conversion routines |
| function IntegerFontStyleToString (intfontstyle:integer):String; | Conversion routines |
| function AlignToGrid (Value:integer;scale:integer):integer; | Alignment |
| function AlignToGridPixels (Value:integer;scaletwips:integer):integer; | Alignment |
| function GetFullFileName (ANode:TTreeNode;dirseparator:char):String; | Gets the full filename based on a node with parents |