With patch #27664 no icons are loaded in MessageDlg
Original Reporter info from Mantis: Michl @michl1
-
Reporter name: Michl
Original Reporter info from Mantis: Michl @michl1
- Reporter name: Michl
Description:
No icons are loaded with the patch http://bugs.freepascal.org/view.php?id=27664
If I change the code back (in win32lclintf.inc):
function TWin32WidgetSet.PromptUser(const DialogCaption, DialogMessage: String;
DialogType: longint; Buttons: PLongint; ButtonCount, DefaultIndex,
EscapeResult: Longint): Longint;
...
if (WindowsVersion >= wvVista) and (GetFileVersion(comctl32) >= ComCtlVersionIE6) then ...
to
...
if (WindowsVersion >= wvVista) and ThemeServices.ThemesEnabled then ...
the icons are shown.
Steps to reproduce:
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('Test', 'Test', mtConfirmation, [mbYes, mbNo], 'Test');
//or
Application.MessageBox('Test', 'Test', MB_ICONQUESTION + MB_YESNO);
end;
Additional information:
http://www.lazarusforum.de/viewtopic.php?f=14&t=8718&p=77256#p77256
Mantis conversion info:
- Mantis ID: 27879
- OS: 7
- OS Build: 64bit
- Build: 48448
- Platform: Windows
- Version: 1.5 (SVN)