paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add DbgS for FormStyle

Browse Source 
git-svn-id: trunk@65490 -
This commit is contained in:
michl 2021-07-22 06:30:59 +00:00
parent 76da38eb3a
commit 5ff92a4b96
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -2790,6 +2790,7 @@ function DbgS(p: TControlAutoSizePhase): string; overload;
function DbgS(Phases: TControlAutoSizePhases): string; overload;
function DbgS(cst: TControlStyleType): string; overload;
function DbgS(cs: TControlStyle): string; overload;
function DbgS(fs: TFormStyle): string; overload;
operator := (AVariant: Variant): TCaption;
@ -3039,6 +3040,11 @@ begin
Result:='['+Result+']';
end;
function DbgS(fs: TFormStyle): string;
begin
WriteStr(Result, fs);
end;
function GetModalResultStr(ModalResult: TModalResult): ShortString;
begin
Result := UITypes.ModalResultStr[ModalResult];