Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

objekti u paskalu

[es] :: Pascal / Delphi / Kylix :: objekti u paskalu

[ Pregleda: 4100 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MACTEPx

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



+5 Profil

icon objekti u paskalu18.12.2005. u 11:57 - pre 222 meseci
mogu li nekako da se naprave objekti u pascalu kao sto su textbox, command button...(ne u delphiju!) i da onaj "crni" prozor deluje malo lepse?
#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}
 
Odgovor na temu

Passwd

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



Profil

icon Re: objekti u paskalu18.12.2005. u 13:23 - pre 222 meseci
Tesko da ces to u cistom pascalu postic...ali zato mozes u Turbo Visionu, evo pogledaj primjer koji je Srki_82 napravio u njemu..

www.elitesecurity.org/poruka/fajluzporuku/819650
 
Odgovor na temu

MACTEPx

Član broj: 47593
Poruke: 341
*.com
Via: [es] mailing liste



+5 Profil

icon Re: objekti u paskalu18.12.2005. u 16:39 - pre 222 meseci
a gde moze da se nadje taj turbo vision?
#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}
 
Odgovor na temu

Passwd

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



Profil

icon Re: objekti u paskalu18.12.2005. u 18:29 - pre 222 meseci
To sve mozes radit u TP (Turbo Pascalu) :>

EDIT:
http://www.geocities.com/Silic...ey/Park/3230/pas/pasl3007.html
http://www.geocities.com/Silic...ey/Park/3230/pas/pasl3008.html
http://www.geocities.com/Silic...ey/Park/3230/pas/pasl3009.html
http://www.geocities.com/Silic...ey/Park/3230/pas/pasl3010.html
http://www.geocities.com/Silic...ey/Park/3230/pas/pasl3011.html
http://www.geocities.com/Silic...ey/Park/3230/pas/pasl3012.html
http://www.developer.be/index....rbo_Vision_Tutorial_Part_6.htm
http://www.developer.be/index....rbo_Vision_Tutorial_Part_2.htm


..ima toga ;)
Malo je zeznuto u Turbo Visionu radit, treba dosta koda, dosta se toga radi sa pointerima i tako, uglavnom zahtjeva vec neko znanje..

p0z

[Ovu poruku je menjao Passwd dana 18.12.2005. u 19:38 GMT+1]
 
Odgovor na temu

MACTEPx

Član broj: 47593
Poruke: 341
*.com
Via: [es] mailing liste



+5 Profil

icon Re: objekti u paskalu19.12.2005. u 13:27 - pre 222 meseci
kako?
#include <iostream.h>
void main()
{
cout << "Pozdrav...";
}
 
Odgovor na temu

Passwd

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



Profil

icon Re: objekti u paskalu19.12.2005. u 18:41 - pre 222 meseci
Citat:
MACTEPx: kako?


Sta kako?
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

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

Sajt: https://avramovic.info


+46 Profil

icon Re: objekti u paskalu19.12.2005. u 18:58 - pre 222 meseci
evo ti jedno gotovo reshenje... pa ga distribuiraj uz svoju aplikaciju... (ako ti odgovara)

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

Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

Passwd

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



Profil

icon Re: objekti u paskalu20.12.2005. u 21:18 - pre 222 meseci
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
 
Odgovor na temu

MACTEPx

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



+5 Profil

icon Re: objekti u paskalu22.12.2005. u 17:56 - pre 222 meseci
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...";
}
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: objekti u paskalu22.12.2005. u 18:05 - pre 222 meseci
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).
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: objekti u paskalu

[ Pregleda: 4100 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.