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.