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

LCL: added dbgs for TWindoeState and TCloseAction

Browse Source 
git-svn-id: trunk@25961 -
This commit is contained in:
mattias 2010-06-07 18:32:47 +00:00
parent f4e38dd872
commit 48e0180fae
1 changed files with 12 additions and 0 deletions

12
lcl/forms.pp
View File

@ -1582,6 +1582,8 @@ function ShiftStateToKeys(ShiftState: TShiftState): PtrUInt;
function WindowStateToStr(const State: TWindowState): string;
function StrToWindowState(const Name: string): TWindowState;
function dbgs(const State: TWindowState): string; overload;
function dbgs(const Action: TCloseAction): string; overload;
type
TFocusState = Pointer;
@ -1754,6 +1756,16 @@ begin
ord(wsNormal)));
end;
function dbgs(const State: TWindowState): string; overload;
begin
Result:=GetEnumName(TypeInfo(TWindowState),ord(State));
end;
function dbgs(const Action: TCloseAction): string; overload;
begin
Result:=GetEnumName(TypeInfo(TCloseAction),ord(Action));
end;
//------------------------------------------------------------------------------
function GetParentForm(Control: TControl): TCustomForm;
begin