Free Pascal - Úvod - Diskusia

Meno: wwlado
Dátum: 28.2.2010, 1:31
Predmet: dynamicka kniznica

Da sa pocas beh porogramu nacitat .dll alebo .so kniznica? Keby ze sa dala nejaka nazorna ukazka s procedurou.
Dakujem

---

Meno: Sulo
Dátum: 20.2.2010, 15:38
Predmet: Re: RGBY

RGBY neviem, ale RGBA obrázok sa dá vytvoriť napr. v GIMPe, po pridaní alfa kanálu.

---

Meno: wwlado
Dátum: 19.2.2010, 16:35
Predmet: Obrazok v RGBY

Zacinam v Lazaruse. Ako by som dokazal urobit transparentne okno a v nom obrazok v RGBY mode. Take nieco ako su Screenlets v Linuxe.
Ako by som vytvoril obrazok v RGBY?

---

Meno: Sulo
Dátum: 12.2.2010, 13:05
Predmet: Re: Nekonecny rad

Limity typu 64 alebo 640 kB sa vyskytujú v Turbo Pascale pod DOSom. Vo Free Pascale už nie.

---

Meno: wwlado
Dátum: 11.2.2010, 22:02
Predmet: Nekonecny rad

Potreboval by som si vyrobit zoznam ludi, ktory bude dlhsi ako 65xxx a ako urobit to Array, je hlupost.
Takze som zvolil taktyku Dynamickej premennej. No niekde som sa docital, ze dynamicka premenna ma max. priestor iba 64Kb.  Chcel by som sa opytat, ci iba Smerniky (napr. Pchar) su tak obmedzene, alebo aj Objekty (napr. TForm).
Alebo akym sposobom by sa dal vytvorit taky dlhy rad napr. uzivatelov, aby som bol obmedzeny naozaj iba Ramkou..

---

Meno: Sulo
Dátum: 10.12.2009, 18:23
Predmet: Re: kniznica crt.pas

Myslím, že CRT sa ako samostatná knižnica nedodáva, je súčasťou súboru TURBO.TPL a je teda automaticky dostupná na zahrnutie (uses) a používanie.

---

Meno: stano
Dátum: 10.12.2009, 14:08
Predmet: kniznica crt.pas

Nazdar, kto poradi kde stiahnut kniznicu crt.pas pre turbo pascal 7?

---

Meno: Sulo
Dátum: 18.9.2009, 20:08
Predmet: Re: Nejde Outtext

Predpokladám, že program nejde vôbec skompilovať, keďže je v ňom syntaktická chyba na riadku, ktorý obsahuje text:
graphresult! }
Alebo je tento text len zle skopírovaný na toto fórum? Dá sa program skompilovať alebo sa chyba vyskytuje až počas behu?

---

Meno: Jerry
Dátum: 17.9.2009, 16:50
Predmet: Nejde Outtext ??

Dobrý den,
nejde mi zobrazovat text v grafice
funkcí OutText. Nevíte náhodou kde je problém ???


Program inigraph1;
uses crt,graph;
const
  TheLine = 'We are now in 640 x 480 x 256 colors!'+
            ' (press <Return> to continue)';

var
  gd, gm, lo, hi, error,tw,th: integer;
  found: boolean;
  MyTInfo:TextSettingsType;

begin
  gd := D8bit;
  gm := m640x480;
  initgraph(gd,gm,'');
graphresult! }
  error := graphResult;
  if (error <> grOk) Then
    begin
    writeln('640x480x256 is not supported!');
    halt(1)
    end;

  setColor(15);
  moveto(20,20);
  outtext('We are now in 640 x 480 x 256 colors!');

  setColor(14);

  setbkcolor(233);
  rectangle(0,0,getmaxx,getmaxy);

  settextstyle(3,HorizDir,15);

  outtextxy(100,100,'We are now in 640 x 480 x 256 colors!');

  gotoxy(10,10);

  gettextsettings(MyTInfo);
  writeln(MyTInfo.font);
  writeln(MyTInfo.direction);
  writeln(MyTInfo.charsize);
  writeln(MyTInfo.horiz);
  writeln(MyTInfo.vert);


  setTextStyle(defaultFont,horizDir,1);

  tw:=TextWidth(TheLine);
  th:=TextHeight(TheLine);

  outTextXY((getMaxX - TW) div 2,
             (getMaxY - TH) div 2,TheLine);
  setColor(white);
  outText(TheLine);

  writeln(TheLine);

  readln;

  closegraph;

end.

---

Meno: pato1
Dátum: 22.4.2009, 18:59
Predmet: re

ved len cielovy procesor...uz som to skusal mnoho krat. fakt to stve.

---