Verwendung von Windows-Icons in Dialogfenstern

[MoTala]

Hi!

Als Umsteiger von Delphi versuche ich gerade, ein simples Programm unter Lazarus zum Laufen zu bringen.

Dabei sollen Dialogfenster (MessageBox-Stil) mit diesen Standard-Windows-Icons versehen werden.

Für Delphi hatte ich einen passenden Code, man findet ihn z.B. hier:

Code: Alles auswählen

uses ShellAPI;
 
    //drop a timage (image1) on the form
    var
      icon : TIcon;
    begin
      Icon := TIcon.Create;
      try
       icon.Handle := LoadIcon(icon.Handle, PChar(IDI_QUESTION)) ;
       Image1.Picture.Icon := Icon;
      finally
        icon.Free;
      end;
    end;

Leider erscheint kein Bild. Der Versuch

Code: Alles auswählen

image1.Picture.Icon := Application.Icon

klappt dagegen.

Desweiteren habe ich das "PChar(IDI_QUESTION)" mal einer lokalen Variablen zugewiesene, der Debugger meint zum Wert der Variablen dann "Adress out of Bounds". Offenbar liegt das Problem in dieser Anweisung begründet.

In den Sourcen der IDE finde ich auch keine Hinweise, wie das gemacht werden soll.

Für Lösungsvorschläge bedanke ich mit im Vorraus herzlich.

MoTala

[theo]

In den Sourcen der IDE finde ich auch keine Hinweise, wie das gemacht werden soll.

Da sind schon welche.

Für Lösungsvorschläge bedanke ich mit im Vorraus herzlich.

Lazarus ist nicht Delphi!! Eine Cross-Platform Lösung wäre afaics:

Code: Alles auswählen

uses ...Interfacebase, LCLType;
....
var bmp,mask:HBitmap;
begin
if WidgetSet.ThemeServices.GetStockImage(idDialogConfirm,bmp,mask) then
Image1.Picture.Bitmap.LoadFromBitmapHandles(bmp,mask);
end;