Kód: Vybrať všetko

var
  Bmp: TBitmap;
  X, Y: Integer;
begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('obrazok.bmp');
  X := (Image1.Width - Bmp.Width) div 2;
  Y := (Image1.Height - Bmp.Height) div 2;
  Image1.Canvas.Draw(X, Y, Bmp);
  Bmp.Free;
end;

Kód: Vybrať všetko

uses
  jpeg;


type
  TZvoncek = class
    zreal: TJPEGImage;
    c: TCanvas;
    constructor Create(cc: TCanvas);
    procedure ZobrazZReal; virtual;
end;


implementation
//{$R myzvoncek.res}  // z resource


function GetResourceAsJpeg(const resname: string): TJPEGImage;  // z resource
var
  Stream: TResourceStream;
begin
  Stream := TResourceStream.Create(hInstance, ResName, 'JPEG');
  try
    Result := TJPEGImage.Create;
    Result.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;


constructor TZvoncek.Create(cc: TCanvas);
begin
  c := cc;
  zrea := TJPEGImage.Create;
  zreal.LoadFromFile('animacia/zvoncek.jpg');
//  zreal := GetResourceAsJpeg('mojzvoncek');  // z resource
end;


procedure TZvoncek.ZobrazZReal;
begin
  c.Draw(0, 0, zreal);
end;