[Delphi] Jak wczytać obrazek?

[Varcetti]

Powiedzmy że mamy taką definicję klasy:
[code=Delphi]
TKwadrat = class
procedure Rysuj;
end;

h(ui'
procedure Rysuj;
begin
Canvas.Rectangle(10,10,100,100);B[B [/code]

Nie wiem czy to jest dobrze bo piszę z pamięci ale powinien narysować nam się kwadrat, i teraz jak wczytać jakiś obrazek w to pole?

[krajew4]

Rysunek sobie załaduj do TImage, a nastepnie zastosuj:
image1.Picture.Bitmap.Canvas.CopyRect(...);

// albo dowolny rysunek
[delphi][/delphi]

[Varcetti]

Dzięki ci bardzo Krajew4

[krajew4]

Nie ma za co 8)

[Varcetti]

Zrobiłem tak jak mówisz tylko jest pewien problem a mianowicie taki:
[code=Delphi]
procedure TForm1.Button1Click(Sender: TObject);
var F: TGXBY^N[BY[BY^NQ^X[T]
Ć6FWTćRbĆDg&fĆR66WŚśv'&ŚVć&4(
ą4)4(ĄŚy',xŚ&ĘY(h(x,jŹŚ+3yf)RxŹÓ~jnW(!śz-mxbZbuŚui'
procedure TForm1.Button1Click(Sender: TObject);
var F: TGXBY[BY^NQ^X[T]
X][^S[RcŁDw&27&VFSbĆDg&fĆR66WŚśv'&ŚV4(
ą4)4 [/code]

To wywala informację: "Abstract Error" i co ja mam takiego zrobić z tym fantem :?:

[krajew4]

[code=Delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
b: T]XBY^N[BY[BY^NQ^X[T]
Ć6FWTćR#ŁD&F7&VFS\"ĆDg&fĆĄŹŹ4(
ą4(free;
end;
[/code]

// w tym swoim drugim kodzie nie masz zadeklarowanej zmiennej 'sciezka' wiec i tak to nie zadziała 8)
// When the type of graphic is known, store the graphic in its specific type object - cytat z pomocy

[Varcetti]

Teraz działa dzięki. A jeśli chodzi o tą ścieżkę to miałem zadeklarowaną jako zmienną globalną