Anonymní profil mikeek – Programujte.com

po přidání

vykres.Handle := GetDC(0);

vykres.Brush.color:=clblack;

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

no já to zkoušim zatim nanečisto do prazdne aplikace, než to vpustim do te hry, ale i tak, nevim v čem bych tam jinak měl chybu.

 TKula = class

    FLeft:integer;

    FHeight:integer;

    FWidth:integer;

    FTop:integer;



    function RLeft:integer;

    function RHeight:integer;

    function RWidth:integer;

    function RTop:integer;



    procedure WLeft(i:integer);

    procedure WHeight(i:integer);

    procedure WWidth(i:integer);

    procedure WTop(i:integer);



    property Left:integer read RLeft write WLeft;

    property Height:integer read RHeight write WHeight;

    property Width:integer read RWidth write WWidth;

    property Top:integer read RTop write WTop;



    constructor Create;



  end;



var

  Form1: TForm1;

  Kula: Tkula;

  Vykres: TCanvas;

  BMap:TBitmap;

  han:HDC;



implementation

{$R *.dfm}

constructor TKula.Create;

begin

    left:=3;

    top:=3;

    width:=100;

    height:=100;

end;



function TKula.RLeft;

begin

    RLeft:=FLeft;

end;



procedure TKula.WLeft(i:integer);

begin

    FLeft:=i;

end;



function TKula.RTop;

begin

    RTop:=FTop;

end;



procedure TKula.WTop(i:integer);

begin

    FTop:=i;

end;



function TKula.RHeight;

begin

    RHeight:=FHeight;

end;



procedure TKula.WHeight(i:integer);

begin

    FHeight:=i;

end;



function TKula.RWidth;

begin

    RWidth:=FWidth;

end;



procedure TKula.WWidth(i:integer);

begin

    FWidth:=i;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

    kula:=TKula.Create;

    Vykres:=TCanvas.Create;

    han:=CreateCompatibleDC(vykres.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;

end;

To illioner :
fííha, asi sem moc dutej :)...
správně sis vytvořil 1 třídu canvasu(resp. inicializoval) - to teda mam

teď vezmi jeden nějakej pomocnej handle, a do něho přiřaď kompatibilní DC který inicializuješ handlem toho svého globálního canvasu - to jsem pochopil takto (han je pomocný handle):

han:=CreateCompatibleDC(vykres.Handle);

Vykres.Brush.Bitmap:=TBitmap.Create;

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

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

Vykres.Brush.Bitmap.Handle:=CreateCompatibleDC(vykres.Handle);

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

Vykres.Handle:=han;

Yop ty property byly jenom orientačně, abych věděl zda něco nedělam špatně :).
Dále jsem to mírně nepochytil :).

Takže, vytvořím si jeden globalni canvas.

Vykres:TCanvas

Vykres:=Tcanvas.Create;

CreateCompatibleDC(Vykres.handle);

mam dotaz. mam tenhle kod:

 TKula = class

    Canvas:TCanvas;



    FLeft:integer;

    FHeight:integer;

    FWidth:integer;

    FTop:integer;



    function RLeft:integer;

    function RHeight:integer;

    function RWidth:integer;

    function RTop:integer;



    procedure WLeft(i:integer);

    procedure WHeight(i:integer);

    procedure WWidth(i:integer);

    procedure WTop(i:integer);



    property Left:integer read RLeft write WLeft;

    property Height:integer read RHeight write WHeight;

    property Width:integer read RWidth write WWidth;

    property Top:integer read RTop write WTop;



  end;



var

  Form1: TForm1;

  Kula: Tkula;



implementation

{$R *.dfm}

function TKula.RLeft;

begin

RLeft:=FLeft;

end;



procedure TKula.WLeft(i:integer);

begin

FLeft:=i;

end;



function TKula.RTop;

begin

RTop:=FTop;

end;



procedure TKula.WTop(i:integer);

begin

FTop:=i;

end;



function TKula.RHeight;

begin

RHeight:=FHeight;

end;



procedure TKula.WHeight(i:integer);

begin

FHeight:=i;

end;



function TKula.RWidth;

begin

RWidth:=FWidth;

end;



procedure TKula.WWidth(i:integer);

begin

FWidth:=i;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

kula:=TKula.Create;

kula.Canvas:=Tcanvas.Create;





kula.Left:=3;

kula.Top:=3;

kula.Height:=3;

kula.Width:=3;

kula.Color:=clblack;

kula.Canvas.Brush.Color:=clblack;

kula.Canvas.Ellipse((0,0,kula.Width,kula.height);

přes Application.OnIdle jsem to zkoušel, dal jsem na ni pohyb nepřatelskych kuliček, ale ten byl trhaný v závislosti na pohybu mé kuličky.... jak přesně máš na mysli definování vlastnich objektů?

tak sem to udělal teda tak, že jsem si na vše vytvořil misto shapu image a do nich jsem to přes canvas nakreslil (nevim jak bych přesně dělal ten pohyb, kdybych to canvasem kreslil přimo na form...). Pohybuje se to o něco plynulejc, ale furt to neni ono, ale to už bude problem v procedurach kontrolujicich, jestli je kulička na plošince (pokud neni, má padat dolu).
Dá se ta kontrola udělat nějak jinak? Mám tam poc-1 plošinek (plocinka poc je podlaha), nepritel jsou ty dalsi kulicky, ikdyz necham na timeru jenom tohle, furt se me zda ze to jede celkem pomalu, cca od intervalu 40 dolu se nezrychlují, to uz rychleji nedokaze? max je maximalni hodnota kam muze kazda kulicka jet (plosina[k].left+plosina[k].width) a min=plosina[k].left:

for k:=0 to (poc-1) do

    begin

    if nepritel[k].left=min[k] then pos[k]:=1

     else if nepritel[k].left=max[k] then pos[k]:=-1;

    nepritel[k].Left:=nepritel[k].Left+pos[k];

    end;

yop dam to teda do jednoho timeru, je to fakt, nevim proč sem to tak nedal rovnou.... no do canvasu jsem to nekreslil proto, že to pořadně neumim (jsem začátečník), tak pořádně nevim jak na to, ale projdu nějaky kurzy a přijdu canvasu na kloub ;). diky

Zdravím, řešim jeden problem.
Chtěl jsem udělat jednu takovou blbost, prostě kulička (Shape) která by reagovala na zmáčknutí šipek, pohybovala by se, skákala by po takovych plošinkách (pole shapů). Udělal jsem to přes timer (interval 10, vždy zjišťoval GetKeyState(vk_left), vk_right a vk_up ...), vše jsem měl, běhalo to v pohodě, fungovalo jak mělo.
Ale logicky, taková "hra" je o ničem, tak jsem se rozhodl, že přidám na každou plošinku (je jich 11+podlaha) kromě podlahy jednu kuličku(pole shapů) která se bude pohybovat po te plošince od jedné hrany k druhé, při dotyku s mou bude konec hry. Když jsem měl hotov pohyb kuliček (přes další timer, interval 10, pouze posunoval kuličky) a chtěl jsem se pustit do kontroly kolize, otestoval jsem to a co nevidím, hra se při pohybu mou kuličkou dost zpomaluje.
Napadlo mne, že ten prvni timer to asi hodně vytěžuje, chtělo by to pořešit jinak. Chtěl jsem to tedy dát na OnKeyDown formuláře.
Narazil jsem ale na problem, kvuli kteremu jsem to již na začátku dal na timer.

Při zmáčknutí a držení klávesy se sice kulička pohybuje, ale ne ideálně. Vite jak třeba prijíždíte textem a držíte klávesu? Kurzor se posune o jednu pozici, pak má chvíli pauzu a až po té pauze se začne svižně pohybovat dál. Stejně se hýbe i má kulička. Jak se zbavím té pomlky?

omlouvam se, už sem měl čas tak sem si to našel. sorry za obtěžování kvuli takove kravině ;)

šmarja ja vim jak je napsat jinak, přes tu angl. klavesnici třeba, ale de mi o to že je rychlejší tohle, jeslti se to tu řešilo, omlouvám se, ale nijak sem neměl čas to tu projiždět a na vyraz "ostré závorky" se nic nenašlo :)

Zdravim, mam problem s Dev-C++
Nejdou mi v něm psát ostré závorky pomoci p.alt + , a p.alt + .
dá se to nějak opravit? Předem děkuji :)