Einzelnen Beitrag anzeigen

raena

Registriert seit: 30. Dez 2007
124 Beiträge
 
#1

Glyph SpeedButton Bitmap im Sourcecode möglich?

  Alt 22. Jul 2008, 15:23
Hallo,

gibt es eine Möglichkeit, die Bitmaps für Icons im Sourcecode abzulegen?
Sprich das Icon soll angezeigt werden auch wenn die Exe Datei des Projekts
ausgefüht wird ohne, dass die Bitmap Dateien im entsprechenden Verzeichnis liegen.

Delphi-Quellcode:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;

type
  TForm2 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
   procedure bmp_to_button(file_bmp:string;Button:TSpeedbutton);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.bmp_to_button(file_bmp:string;Button:TSpeedbutton);
var
   bmp: TBitmap;
begin
   bmp:=TBitmap.Create;
   try
     bmp.LoadFromFile(file_bmp);
     Button.Glyph:=bmp;
   finally
     bmp.Free;
   end;
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
bmp_to_button('mail_24.bmp', SpeedButton1);
bmp_to_button('new_document_24.bmp', SpeedButton2);
end;

end.
  Mit Zitat antworten Zitat