pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: add demo for RxSecretPanel

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6421 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-05-16 11:29:59 +00:00
parent 613c96821c
commit 05a358bfd9
12 changed files with 2535 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
components/rx/trunk/rxcontrols/rxapputils.pas
View File

@ -45,6 +45,9 @@ const
AllMask = '*';
{$ENDIF}
type
TRxMsgBeepStyle = (mbsBeep, mbsIconAsterisk, mbsIconExclamation, mbsIconError, mbsIconQuestion, mbsIconWarning, mbsOk);
var
DefCompanyName: string = '';
RegUseAppTitle: Boolean = False;
@ -94,6 +97,8 @@ procedure InitRxLogs;
function RxGetKeyboardLayoutName:string;
function RxMessageBeep(AStyle:TRxMsgBeepStyle):boolean;
implementation
uses
{$IFDEF WINDOWS}
@ -282,6 +287,29 @@ begin
{$ENDIF WINDOWS}
end;
function RxMessageBeep(AStyle: TRxMsgBeepStyle): boolean;
{$IFDEF WINDOWS}
var
uType:UINT;
{$ENDIF}
begin
{$IFDEF WINDOWS}
case AStyle of
mbsIconAsterisk:uType:=MB_ICONASTERISK;
mbsIconExclamation:uType:=MB_ICONEXCLAMATION;
mbsIconError:uType:=MB_ICONERROR;
mbsIconQuestion:uType:=MB_ICONQUESTION;
mbsIconWarning:uType:=MB_ICONWARNING;
mbsBeep,
mbsOk:uType:=MB_OK;
else
uType:=0;
end;
MessageBeep(uType);
{$ELSE}
{$ENDIF}
end;
function GetDefaultSection(Component: TComponent): string;
var