Anonymní profil Mikeek – Programujte.com

Ok, diky moc, od vikendu na tom začnu pracovat vic, kdyžtak se ozvu ;)

liborb, hafo diky, z tvého přispěvku jsem konečně dobře pochopil co vlastně dělám, moc diky :). Teď už mi to funguje. Respektive jsem zatim jenom u tohohle. Velikost te bitmapy je už drobnost.
Takže později až budu chtěl rozhybat kuličku tak vždycky budu muset překreslit jeji puvodni pozici kuličkou barvy jako pozadi a nakreslit ji o ten kousiček vedle? stejně tak i s nepřátelskými kuličkami?
Předpokládám že s plošinkami nebudde nejmenši problem, jen nakresleni do tohoto canvasu...

A ještě mě napadlo (doufám že už jsem se na to neptal), co kdybych to vše vykresloval přímo do canvasu toho formuláře a v něm to překresloval? Ale je to jenom takovej nápad, chápu, pokud je to nějaky špatny. Upřimně bych raději pokračoval v tomhle, abych se toho co nejvice přiučil, pokud se mnou budete mit trpělivost :)

ok, pak zkusim, ale bez řádku

vykres.Handle := GetDC(0);

Velice se omlouvám za dlouhou pauzu, ale mě jsem problémy s internetem a taky hodně práce... jestli je ještě někdo ochotný, rád bych pokračoval v projektu :).

na FormCreate tedy mam

kula:=TKula.Create;

Vykres:=TCanvas.Create;

han:=CreateCompatibleDC(canvas.Handle);

Vykres.Brush.Bitmap:=TBitmap.Create;

Vykres.Brush.Bitmap.Width:=form1.Width;

Vykres.Brush.Bitmap.Height:=form1.Height;

SelectObject(han,Vykres.Brush.Bitmap.Handle);

Vykres.Handle:=han;

vykres.Handle := GetDC(0);

bitblt(form1.Canvas.Handle,0,0,40,40,vykres.Handle,0,0,0);

Vykres.Brush.Color:=clyellow;

vykres.Ellipse(0,0,40,40);