paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TaskDialog: TLCLTaskDialog and Win32 WS: remove type definitions (and conversion routines) that were copied from the old LCLTaskDialog unit. Part 2.

Browse Source
This commit is contained in:
Bart 2023-08-18 17:57:18 +02:00
parent 17bf02baad
commit 8012169318
1 changed files with 2 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lcl/taskdlgemulation.pp
View File

@ -204,9 +204,8 @@ end;
const const
LCL_IMAGES: array[TTaskDialogIcon] of Integer = ( LCL_IMAGES: array[TTaskDialogIcon] of Integer = (
0 {tdiNone}, idDialogWarning {tdiWarning}, idDialogError {tdiError}, idDialogInfo {tdiInformation}, idDialogShield {tdiShield}, idDialogConfirm {tdiQuestion}); 0 {tdiNone}, idDialogWarning {tdiWarning}, idDialogError {tdiError}, idDialogInfo {tdiInformation},
//LCL_FOOTERIMAGES: array[TTaskDialogIcon] of Integer = ( idDialogShield {tdiShield}, idDialogConfirm {tdiQuestion});
//0 {tdiNone}, idDialogWarning {tdiWarning}, idDialogError {tdiError}, idDialogInfo {tdiInformation}, idDialogShield {tdiShield}, idDialogConfirm {tdiQuestion});
const const
TD_BTNMOD: array[TTaskDialogCommonButton] of Integer = ( TD_BTNMOD: array[TTaskDialogCommonButton] of Integer = (
@ -227,33 +226,6 @@ end;
//function TF_DIALOGICON(const aIcon: TTaskDialogIcon): TLCLTaskDialogIcon;
//begin
// case aIcon of
// tdiWarning: Result := tiWarning;
// tdiError: Result := tiError;
// tdiInformation: Result := tiInformation;
// tdiShield: Result := tiShield;
// tdiQuestion: Result := tiQuestion;
// else
// Result := tiBlank;
// end;
//end;
//function TF_FOOTERICON(const aIcon: TTaskDialogIcon): TLCLTaskDialogFooterIcon;
//begin
// case aIcon of
// tdiWarning: Result := tfiWarning;
// tdiError: Result := tfiError;
// tdiInformation: Result := tfiInformation;
// tdiShield: Result := tfiShield;
// tdiQuestion: Result := tfiQuestion;
// else
// Result := tfiBlank;
// end;
//end;
function IconMessage(Icon: TTaskDialogIcon): string; function IconMessage(Icon: TTaskDialogIcon): string;
begin begin
case Icon of case Icon of