Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 

Grössere Icons als 32x32 laden und darstellen

  Alt 28. Mär 2007, 18:54
Wer einmal auf das Problem stößt, ein Icon in der Anwendung zu verwenden das
größer als 32x32 Pixel ist, der kann mit MSDN-Library durchsuchenLoadImage dieses lösen.

Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
  ico: hicon;
  ic: TIcon;
  i: integer;
begin
  // Alle Icongrössen holen und zeichnen.

  // wenn eine Icongrösse in der Resource nicht vorhanden ist wird das nächst
  // kleine Icon verwendet und Vergrössert

  ic := TIcon.Create;
  Canvas.Brush.Style := bsClear;
  i := 16;
  repeat
    ic.Handle := LoadImage(Hinstance, 'MAINICON', IMAGE_ICON, i, i, 0);

    Canvas.TextOut(i*2, i, format('<- Size: %dx%d ', [i,i]));
    Canvas.Draw(i, i, ic);
    i := i * 2;
  until i > 256;

  ic.Free;
end;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat