Paskal kodovi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E.L.I.T.E. ::
Prvo si pitao dali se mogu koristiti ASCII kodovi, a sad već želiš praviti grafičke programe

Zato sto je tema matora,konzolu sam savladao pa sad idem dalje

• 1Ovo se svidja korisniku: Milos CG
  
  Registruj se da bi pohvalio/la poruku!

Možeš ručno da pišeš Windows aplikacije, ali je to veoma mukotrpan posao. Jedan mali primer (prikazuje poruku i to je sve) izgleda ovako:
program WinTest; uses   Windows; begin   MessageBox(0, 'Hello world!!!', 'Message', 0); end.

Bilo šta komlikovanije od toga, zahteva stotinak linija koda. Ako planiraš da praviš Windows aplikacije, predlažem ti da pogledaš Lazarus. Lazarus je grafičko okruženje koje ti olakšava pravljenje prozora. Uz njega dobijaš i niz gotovih komponenti, pa možeš u roku od par minuta da napraviš klon Notepad-a.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Lazarus sam koristio,ali,ako mi vjerujes,vece mi je zadovoljstvo da kucam rucno
Zahvaljujem ti se za ovaj primjer ,samo mi treba skripta za ostale komande,tipa pokretanje programa,sabiranje brojeva, input box idt. (imam neki osjecaj da moram drugacije kodove da kucam za graficki program nego za kozolu,pa ti zato trazim skriptu )

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne znam baš koliko zadovoljsto će ti biti da pišeš ručno Evo... ovo je primer kreiranja praznog prozora koji ne radi bukvalno ništa, a ti zamisli koliko tek treba da pišeš samo da bi dodao jedno dugme koje samo zatvara prozor

program WinTut; uses   Windows, Messages; var   WndClass: TWNDClassEx;   Wnd: HWnd;   Msg: TMsg; function WndProc(Wnd: HWnd; Msg: UINT;   wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin   case Msg of     WM_DESTROY:     begin       PostQuitMessage(0);       Result:= 0;     end   else     Result:= DefWindowProc(Wnd, Msg, wParam, lParam);   end; end; begin   WndClass.cbSize := SizeOf(WndClass);   WndClass.style := CS_HREDRAW or CS_VREDRAW;   WndClass.lpfnWndProc := @WndProc;   WndClass.cbClsExtra := 0;   WndClass.cbWndExtra := 0;   WndClass.hInstance := HInstance;   WndClass.hIcon := LoadIcon(0, IDI_APPLICATION);   WndClass.hCursor := LoadCursor(0, IDC_ARROW);   WndClass.hbrBackground := COLOR_BTNFACE + 1;   WndClass.lpszMenuName := nil;   WndClass.lpszClassName := 'MojProzor';   WndClass.hIconSm := 0;   RegisterClassEx(WndClass);   Wnd := CreateWindowEx(     WS_EX_OVERLAPPEDWINDOW,     'MojProzor',     'Prozor bez VCL',     WS_OVERLAPPEDWINDOW,     100, 100, 400, 300,     0,     0,     HInstance,     nil   );   ShowWindow(Wnd, SW_SHOWDEFAULT);   UpdateWindow(Wnd);   while GetMessage(Msg, 0, 0, 0) do     DispatchMessage(Msg);   UnregisterClass('MojProzor',HInstance); end.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Au,Bog te vidio!

Cek,ovo je kao prazan prozor?Pff,mislio sam da je malo prostije .Nema onda nista bez Lazarusa

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako te zanima šta se tu tačno dešava u kodu, imaš ovde lepo objašnjenje tog primera: [Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala ,naravno da mi je bolje kad shvatim,nego da bubam kod