Buttons and manifest

[Leledumbo]

Lazarus revision: 13811
FPC: 2.2.0
Platform: Windows XP SP 2

Trying to run this program, all dialogs' buttons doesn't show any caption or bitmap, unless manifest is used.

Code: [Select]


program DialogTest;

{$mode objfpc}{$H+}

{$IFDEF MSWINDOWS}
{$R manifest.rc}
{$APPTYPE GUI}
{$ENDIF}

uses
  Interfaces,Forms,Dialogs,Controls;

var
  s: String;
begin
  Application.Initialize;
  QuestionDlg('QuestionDlg Test','A Question',mtConfirmation,[
    mrYes,mrNo,mrOK,mrCancel,
    mrAbort,mrRetry,mrIgnore,
    mrAll,mrNoToAll,mrYesToAll
  ],0);
  InputBox('InputBox Test','Enter something','Default value');
  InputQuery('InputQuery Test','Enter something',s);
  MessageDlg('MessageDlg Test','A Message',mtInformation,[mbYes,mbNo,mbCancel],0);
  PasswordBox('PasswordBox Test','Enter something');
  ShowMessage('ShowMessage Test');
  SelectDirectory('Select a directory','',s);
end.


[Paul Ishenin]

cant confirm. use bugtracker next time.