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

printanje?

[es] :: Pascal / Delphi / Kylix :: printanje?

[ Pregleda: 5864 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon printanje?26.12.2003. u 12:09 - pre 246 meseci
koji kod je, da kad ja kliknem na odredeni "button", da mi program isprinta (na papir) samo vrijednosti koje su u poljima (objektima) "EDIT"

imam ovaj kod

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components.ClassName='TEdit' then
with TEdit(FindComponent(Form1.Components.Name)) do
s:=s+#13#10+Text;
end;
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);
end;


ali ne znam sto ide umjesto "NESTO".

zna netko?
M.j.
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.134.EUnet.yu



+1 Profil

icon Re: printanje?27.12.2003. u 09:55 - pre 246 meseci
Probaj ovaj kod...Radi se o direktnoj stampi, tj. stampac stampa samo tekst koristeci ugradjene fontove. Ukoliko zelis da menjas fontove i velicinu papira moras da imas escape sekvence za taj stampac.

Code:

Var
 f : TextFile;
begin
     AssignFile(f, 'LPT1:');
     Rewrite(f);
     try
       WriteLn(f, 'Jedna linija teksta');
     finally
       CloseFile(f);
     end;
end;

 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.253.EUnet.yu



+1 Profil

icon Re: printanje?27.12.2003. u 10:04 - pre 246 meseci
...da dodam komentar u vezi koda koji imas

Code:

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then
with (Form1.Components[i] as TEdit) do
s:=s+#13#10+Text;
end;
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);
end;
 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?29.12.2003. u 16:29 - pre 246 meseci
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);


daj pi pojasni, kaj stavljam umjesto NESTO


imate pivo ako mi to kazete!! ;)
M.j.
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.110.EUnet.yu



+1 Profil

icon Re: printanje?29.12.2003. u 21:13 - pre 246 meseci
Pa skroz sam pogresio kad sam prosto iskopirao tvoj kod. Namera mi je bila samo da ispravim nacin na koji ides kroz sve edit box-ove na formi, ali sam greskom iskopirao i onaj deo koda koji se tice stampanja. Dakle nesto je samo naziv promenjive moze da bude i "Stampac", ali evo kako izgleda ona prva varijanta samo ispravljena:

Code:

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then
with (Form1.Components[i] as TEdit) do
s:=s+#13#10+Text;
end;
AssignFile(nesto, 'LPT1:');
Rewrite(nesto);
try
  Writeln(nesto, s);
finally
  System.CloseFile(nesto);
end;
end;

 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?29.12.2003. u 22:05 - pre 246 meseci
prijatelju, dal moram jos koju komponentu staviti za ispis??? ili za printer?
M.j.
 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?29.12.2003. u 22:50 - pre 246 meseci
stavil sam komponentu, printa, ali sve jedno ispod drugoga, ali meni treba da mi EDITE ispise bas na tim mjestima kamo sam ih ja stavio na formu!
M.j.
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.14.EUnet.yu



+1 Profil

icon Re: printanje?30.12.2003. u 07:03 - pre 246 meseci
U tom slucaju koristis unit Printers (ovo sam prepisao nisam ja pisao):

Code:

Uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  c: TControl;
  i: Integer;
  topX, topY: Integer;
begin
  printer.begindoc;
  try
    { Scale printer to screen resolution. }
    SetMapMode( printer.canvas.handle, MM_ANISOTROPIC );
    SetWindowExtEx(printer.canvas.handle,
                   GetDeviceCaps(canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(canvas.handle, LOGPIXELSY),
                   Nil);
    SetViewportExtEx(printer.canvas.handle,
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSY),
                   Nil);
    topX := 10;
    topY := 10;
    for i:= 0 to controlcount-1 do begin
      c:= controls[i];
      If c Is TWinControl Then
        TWinControl(c).paintto( printer.canvas.handle,
                                c.left + topX,
                                c.top + topy );
    end;
  finally
    printer.enddoc;
  end;
end;

 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?30.12.2003. u 11:21 - pre 246 meseci
Uses Printers;

tu mi gresku javlja, tko zna zasto??
M.j.
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.156.EUnet.yu



+1 Profil

icon Re: printanje?30.12.2003. u 18:22 - pre 246 meseci
Kakvu gresku, nisam vidovit, moras da napises i tacnu poruku :)?
 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?30.12.2003. u 18:38 - pre 246 meseci
nisi??? mislio sad da jesi... :)

evo sto kaze

[Error] AO.pas(163): Declaration expected but 'USES' found
M.j.
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.58.EUnet.yu



+1 Profil

icon Re: printanje?30.12.2003. u 20:29 - pre 246 meseci
sintaksna greska:

Uses treba staviti pri vrhu unit-a

Code:

unit AO;

interface

Uses Printers;


Samo jedan Uses smes da imas u interface delu unita (drugi u implementation). Ukoliko treba da stavis vise unita u uses samo ih razdvoj zarezom:

Code:

unit AO;

interface

Uses Classes, SysUtils, Printers;


Uses govori kompajleru da taj pas fajl (AO.pas) koristi kod iz odredjenih postojecih pas fajlova. Nazivi fajlova se navode bez ekstenzije.

 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?30.12.2003. u 21:02 - pre 246 meseci
radi, radi!!!
jeee

e, imam jos jedan problem

isao sam program raditi sa "zadnje strane", napravio sam formu (nazovimo je
forma prva)(napokon) kako mi treba, a sad bi trebao napraviti jednu
predformu, koja bi imala MENI sa otvori, zatvori, pronadi, ispisi, spremi, i
izlaz; te kad bi se odabralo OTVORI, otvorila bi se forma prva, te kad bi
odabrao spremi sejvala bi se forma prva pod imenu kojim ja odaberem...
itd...

kuzite??

e, tko je spreman pomoci???

HVALA


[Ovu poruku je menjao strike dana 31.12.2003. u 15:47 GMT]
M.j.
 
Odgovor na temu

strike
croatia

Član broj: 18230
Poruke: 53
*.cmu.carnet.hr



Profil

icon Re: printanje?30.12.2003. u 21:05 - pre 246 meseci
hvala Ti na objasnjenjima dodatnim!!!!
M.j.
 
Odgovor na temu

emtyy^^2004
Novi Pazar

Član broj: 27313
Poruke: 68
195.252.85.*

Sajt: www.zezanje.co.yu


Profil

icon Re: printanje?15.06.2004. u 16:06 - pre 240 meseci
Sta radite hteo bih da vas zamolim ako mozete da mi pomognete ok Pascala..
E ovako, voleo bih ako bi neko imao nekakav primer igrice koji je uradzen u Pascalu pa ako mozete da mi to stavite na vas ovaj sajt ili ako je lakse da mi posaljete na email
E-mail:[email protected]
Unapred Hvala????
Pa da i ja pokusam da je uradim mislim malo je prepravim a prije toga video bih kakva je igrica...
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.229.eunet.yu



+1 Profil

icon Re: printanje?19.06.2004. u 07:37 - pre 240 meseci
Nazalost nemam ni jednu igricu u pascal-u. Predji u Delphi, mislim da je rad u dos-u iluzoran.
 
Odgovor na temu

Dusan Aleksic
Student; web developer @ freelance
Beograd

Član broj: 5244
Poruke: 200
*.dial.InfoSky.Net

ICQ: 129852450


+5 Profil

icon Re: printanje?19.06.2004. u 14:47 - pre 240 meseci
Citat:
emtyy^^2004:Sta radite hteo bih da vas zamolim ako mozete da mi pomognete ok Pascala..
E ovako, voleo bih ako bi neko imao nekakav primer igrice koji je uradzen u Pascalu pa ako mozete da mi to stavite na vas ovaj sajt ili ako je lakse da mi posaljete na email
E-mail:[email protected]
Unapred Hvala????
Pa da i ja pokusam da je uradim mislim malo je prepravim a prije toga video bih kakva je igrica...


Imas negde na ovom forumu primer tetrisa u paskalu (rekao bih da je to bio tetris), potrrazi ga po starim temama.
sudo make me a sandwich
 
Odgovor na temu

neuromancer
Darko Todorovic

Član broj: 2889
Poruke: 120
*.ptt.yu.

Jabber: neuromancer@elitesecurity.org
ICQ: 347089233


Profil

icon Re: printanje?19.06.2004. u 15:23 - pre 240 meseci
evo jedne pascal igrice,
Odnosno legendarni MARIO,
ovo je naravno source
http://home.planet.nl/~mike.wiering/mario/mariosrc.zip
poz
MacBook Pro or iMac (intel Core Duo edition) user wannabe!!!
Uz malo srece i malo vise para... heh...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: printanje?

[ Pregleda: 5864 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

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