TgraphicControl에서 비트 맵으로 jpg 설정

Question

TGraphicControl에 배경 이미지를 추가하려고합니다.

TCard (TGraphicControl의)

Private 
    BitMap1:TBitMap;  {Used to store a card image} 
Public 
    procedure SetBitmap(image: TBitmap); 

...... 양식 1 버튼 클릭에

procedure TCard.SetBitmap(image: TBitmap); 
begin 
    bitmap1 := Tbitmap.create(); 
    bitmap1.Assign(image); 
    canvas.draw(0,0,bitmap1); 
end; 

, 나는 tcard 구성 요소

procedure TForm1.Button1Click(Sender: TObject); 
var 
    image : Tbitmap; 
    jpg: TJpegImage; 
begin 
    image := TBitmap.create(); 
    jpg := Tjpegimage.Create(); 
    jpg.LoadFromFile(dir+'\pics\backcard.jpg'); 
    image.Assign(jpg); 
    card1.setbitmap(image); 
    card1.Repaint; 
    image.Destroy; 
    jpg.Destroy; 
end; 

에 이미지를 추가 할

나는 이것을 실행할 때 아무 일도 일어나지 않는다. 이 이미지를 TCard 구성 요소의 백그라운드로 어떻게 가져 옵니까?

Answer 1

여기 TGraphicControl 자손 배경 이미지의 설정 예 및 (이 형태의 OnCreate에 TBitmap를 사용하고 Button1Click에서 TJpegImage 모두를 입증)을 사용한 예이다. 시작하기 위해 하나의 TButton이있는 새로운 빈 VCL 양식 응용 프로그램 만 있으면됩니다.

unit Unit1; 

interface 

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

type 
    TCard = class(TGraphicControl) 
    private 
    FBackGround: TBitmap; 
    procedure SetBackground(Value: TBitmap); overload; 
    public 
    constructor Create(AOwner: TComponent); override; 
    destructor Destroy; override; 
    procedure Paint; override; 
    published 
    property BackGround: TBitmap read FBackGround write SetBackground; 
    end; 

    TForm1 = class(TForm) 
    Button1: TButton; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    FCard: TCard; 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TCard } 

constructor TCard.Create(AOwner: TComponent); 
begin 
    inherited; 
    FBackGround := TBitmap.Create; 
end; 

destructor TCard.Destroy; 
begin 
    FBackground.Free; 
    inherited; 
end; 

procedure TCard.Paint; 
begin 
    inherited; 
    Self.Canvas.StretchDraw(Self.ClientRect, FBackGround); 
end; 

procedure TCard.SetBackground(Value: TBitmap); 
begin 
    FBackGround.Assign(Value); 
    //Self.SetBounds(Left, Top, FBackGround.Width, FBackGround.Height); 
    Invalidate; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Image: TJPEGImage; 
    Bmp: TBitmap; 
begin 
    Image := TJPEGImage.Create; 
    Bmp := TBitmap.Create; 
    try 
    Image.LoadFromFile(PathToSomeJPEGFile); 
    Bmp.Assign(Image); 
    FCard.BackGround := Bmp; 
    finally 
    Bmp.Free; 
    Image.Free; 
    end; 
end; 

procedure TForm4.FormCreate(Sender: TObject); 
var 
    Bmp: TBitmap; 
begin 
    FCard := TCard.Create(Self); 
    FCard.Parent := Self; 
    Bmp := TBitmap.Create; 
    try 
    // Load a standard image from the backgrounds folder (D2007). 
    Bmp.LoadFromFile('C:\Program Files (x86)\Common Files\CodeGear Shared\Images\BackGrnd\GREENBAR.BMP'); 
    FCard.BackGround := Bmp; 
    finally 
    Bmp.Free; 
    end; 
end; 


end.