Zitat von
choose:
Task Dialog
Mal technisch: Ich sitze gerade hier mit Vista und Delphi 5.
Auf die UI muss ich verzichten, aber der Kommandozeilencompiler geht. Die einfache Variante des Dialogs, "TaskDialog", habe ich hinbekommen:
Delphi-Quellcode:
unit Vista;
interface;
const
TD_WARNING_ICON = -1;
TD_ERROR_ICON = -2;
TD_INFORMATION_ICON = -3;
TD_SHIELD_ICON = -4;
// TASKDIALOG_COMMON_BUTTON_FLAGS
TDCBF_OK_BUTTON = $0001;
// selected control return value IDOK
TDCBF_YES_BUTTON = $0002;
// selected control return value IDYES
TDCBF_NO_BUTTON = $0004;
// selected control return value IDNO
TDCBF_CANCEL_BUTTON = $0008;
// selected control return value IDCANCEL
TDCBF_RETRY_BUTTON = $0010;
// selected control return value IDRETRY
TDCBF_CLOSE_BUTTON = $0020;
// selected control return value IDCLOSE
function TaskDialog(hwndParent: HWND; hInstance: longword;
pszWindowTitle: PWideChar; pszMainInstruction : PWideChar;
pszContent: PWideChar; dwCommonButtons: dword; pszIcon : PWideChar;
var pnButton: integer): HRESULT;
stdcall;
implementation
const
comctl32 = '
comctl32.dll';
function TaskDialog;
external comctl32;
end.
Im Original ist die Deklaration der Buttons eigentlich vom enum-Typ, aber egal. Das funktioniert auch erst mal so. Merkwürdig finde ich das mit den Symbolen. Hier mal die Originaldeklaration der Funktion
Code:
WINCOMMCTRLAPI HRESULT
WINAPI TaskDialog(__in_opt HWND hwndParent, __in_opt HINSTANCE hInstance, __in_opt PCWSTR pszWindowTitle, __in_opt PCWSTR pszMainInstruction, __in_opt PCWSTR pszContent, TASKDIALOG_COMMON_BUTTON_FLAGS dwCommonButtons, __in_opt PCWSTR pszIcon, __out_opt int *pnButton);
PCWSTR ist doch,
IMHO, ein PWideChar, oder? Demzufolge müsste meine Delphi-Deklaration von oben ja korrekt sein. Klappt nur nicht. Versuche ich ein Symbol zu laden, dann sehe ich die Box überhaupt nicht. Bisher klappt es nur mit
nil:
Delphi-Quellcode:
if (TaskDialog(0, 0, 'Test TaskDialog', 'So eine etwas dickere Überschrift',
'Dies ist der eigentliche Inhalt.', TDCBF_YES_BUTTON or TDCBF_NO_BUTTON or
TDCBF_CANCEL_BUTTON, nil, i) = S_OK) then
begin
case i of
IDYES:
MessageBox(0, 'Ja', nil, 0);
IDNO:
MessageBox(0, 'Nein', nil, 0);
IDCANCEL:
MessageBox(0, 'Abbrechen', nil, 0);
end;
end;
An sich sollte aber auch
(TaskDialog(0, 0, { ... } MAKEINTRESOURCEW(TD_INFORMATION_ICON), i)
klappen. Wo also liegt der Fehler?
@André: Wenn es für dein Programm einen guten Grund gibt, einen komplett durchsichtigen Hintergrund zu nutzen, dann nur zu. Andernfalls solltest du erst mal ausprobieren, wie das aussieht, was andere dazu sagen und die Sache dann wieder vergessen.
Nichts für ungut, aber bei den Gadgets macht das noch halbwegs Sinn. Die Startleiste ist ja auch transparent.
PS: Aaaah, Problem (wieder mal
) selbst gelöst. Die Icon-Werte waren falsch. Und das aus der Headerdatei des Windows
SDK Egal:
Delphi-Quellcode:
TD_ICON_BLANK = 100;
TD_ICON_WARNING = 101;
TD_ICON_QUESTION = 102;
TD_ICON_ERROR = 103;
TD_ICON_INFORMATION = 104;
TD_ICON_BLANK_AGAIN = 105;
TD_ICON_SHIELD = 106;
geht dann aber (s. neues Bild im Anhang).