Canvas

Czy ktoś zna jakiś kurs rysowania w Canvasie ?

Hmm, a dokładniej? Czego Ci dokładnie potrzeba ?

press F1

http://cyfbar.republika.pl/canvas.html

#include <vcl.h>
#pragma hdrstop

#include "KodGry.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

// tworzenie obiektu i ustalenie uchwytu
memDC = CreateCompatibleDC(Canvas->Handle);
// tworzenie obiektu ,ustawienie wymiarów i ustalanie uchwytu
bmp = CreateCompatibleBitmap(Canvas->Handle,ClientWidth,ClientHeight);

// tworzenie obiektu
memCanv = new TCanvas();
// ustalanie uchwytu
memCanv->Handle=memDC;

// Łączenie obiektów
SelectObject(memCanv,memDC);

// tworzenie struktur TRect
backRect = new TRect(0,0,ClientWidth,ClientHeight);

ballRect = new TRect();
padleRect = new TRect();

// Tworzenie obiektów
ballImage = new TPicture();
backImage = new TPicture();
padleImage = new TPicture();

// ładowanie obrazków
backImage->LoadFromFile("data\kamil.bmp");
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
// zwalnianie zasobów z pamięci
delete ballImage;
delete backImage;
delete padleImage;
delete memCanv;
delete ballRect;
delete padleRect;
delete backRect;
DeleteDC(memDC);
DeleteObject(bmp);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
draw();
}
//---------------------------------------------------------------------------
void TForm1:: draw()
{
memCanv->StretchDraw(*backRect,backImage->Graphic);

Canvas->CopyRect(*backRect,memCanv,*backRect);
}

<font color="red">Dlaczego obraz sie nie wyświetla ?</span>