[es] - objekti u paskalu

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3993
*.yu1.net.

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: objekti u paskalu

^{19.12.2005. u 18:58}

evo ti jedno gotovo reshenje... pa ga distribuiraj uz svoju aplikaciju... (ako ti odgovara)

http://www.appdeploy.com//downloads/detail.asp?id=160

Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{19.12.2005. u 18:58}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: objekti u paskalu

^{20.12.2005. u 21:18}

Ne razumijem sta ti nije jasno u TurboVisionu, mozda ti onako glupo izgleda na prvom pogledu, ali kad krenes je super

Code:

program TVprvi;
uses App;
type TMojaAplikacija=Object(TApplication)
               ...... //dodajes procedure
               procedure nesto;
               end;

//ovdje radis procedure
procedure nesto;
begin
...
end;

var MA:TMojaAplikacija;
begin
MA.Init;
//ovdje pozivas procedure
MA.nesto;
MA.Run;
MA.Done;
end;

Evo mali kod koji ima MainMenu i izbacuje MessageBox(..) na klik.

Code:

program probaaa;
uses App,Objects,Menus,Drivers,Views,MsgBox;  (*uniti bez kojih ne mozes radit*)

type TMojaAplikacija=Object(TApplication)
                     procedure InitMenuBar; virtual;   (*procedura koja radi MainMenu*)
                     procedure HandleEvent(var Event: TEvent); virtual; (*procedura koja se poziva na neki event , recimo na OnClick event u MainMenu-u*)
                     end;

procedure TMojaAplikacija.InitMenuBar;
var R: TRect;
begin
  GetExtent(R);
  R.B.Y := R.A.Y + 1;
  MenuBar := new (PMenuBar, Init(R, NewMenu(
                 NewSubMenu('~F~ile', 0, NewMenu(      (*File je submenue>About je item u tom menu-u*)
                 NewItem('~A~bout','',kbF2,1001,0,   (*1001 zamisli kao da je neka oznaka naseg About itema*)
                 nil)) , nil))));
end;

procedure TMojaAplikacija.HandleEvent(var Event: TEvent);
begin
inherited HandleEvent(Event);
if Event.What=evCommand then
    begin
      case Event.Command of
         1001: begin   (*onaj nas About item, kada se na njega izvrsi neka komanda...izbacuje MessageBox-poruku*)
                 MessageBox(#3'Passwd coder :D'#13#13 + #3'..lom',
                 nil, mfInformation or mfOKButton);
                 ClearEvent(Event);
               end;

      end;
    end;

end;

var MA:TMojaAplikacija;
begin
MA.Init;
MA.InitMenuBar;  (*poziva nasu proceduru za kreiranje MainMenua, a ta procedura ce sama pozvat HandleEven kad se desi neki event *)
MA.Run;
MA.Done;
end.

Ako ti nije jasno, idemo sve po redu i vidjet ces da nije uopce tesko..

p0z

^{20.12.2005. u 21:18}

MACTEPx

Član broj: 47593
Poruke: 288
*.neobee.net.

Profil

Re: objekti u paskalu

^{22.12.2005. u 17:56}

ma nije mi problem kodiranje nego nisam razumeo u cemu se to radi: turbo pascalu ili turbo visionu i ako je u turbovisionu treba mi neki link za download

#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}

^{22.12.2005. u 17:56}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: objekti u paskalu

^{22.12.2005. u 18:05}

Turbo Vision je deo Turbo Pascala... ne treba nista da skines, vec imas sve kad instaliras pascal (Borlan, Turbo i Free pascal 100% imaju sa sobom i unit-e za Turbo Vision).

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{22.12.2005. u 18:05}