Keresés: - Delphi programozás - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#1750 vz12 tag labuwx #1749

Új Válasz 2009-06-30 17:59:08 #1750
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vz12

tag

válasz labuwx #1749 üzenetére

Akkor marad valami jó könyv és/vagy az internet.
#1748 vz12 tag labuwx #1747

Új Válasz 2009-06-30 17:49:38 #1748
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vz12

tag

válasz labuwx #1747 üzenetére

Pl.
canvas.Pen.color:=clRed;
canvas.Brush.color:=clBlue;
canvas.Ellipse(5,5,100,100);
Ez rajzolni fog egy Piros határvonalú, belül Kék "korongot". RGB is használható.
A vonal (Pen) és kitöltő (Brush) színeket mindig a rajzoló tevékenység ELŐTT kell beállítani, egy adott canvas-on csak 1 Pen és 1 Brush van, ezt a rajzoló utasítások közösen használják. Tehát pl. most egy vonal(50,50,80,80) utasítás Piros vonalat húzna, mert a Pen színe arra lett állítva, itt ugye nincs kitöltés tehát a Brush érdektelen. Szerintem olvasgasd a Help-et, a Delphi-nek elég jó van.
#1746 vz12 tag labuwx #1744

Új Válasz 2009-06-30 17:01:27 #1746
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vz12

tag

válasz labuwx #1744 üzenetére

Ez érdekes, ilyet én a D3-ban és D5-ben nem tapasztaltam. Ott simán engedte a vonalat túlhúzni a képen, persze a kívül eső részek nem látszottak. Kellett is ez a lehetőség mert pl. a vonal(0,488,488,488); nem húzná végig a vonalat, a (0,488) még rendben van, de a (488,488) kimaradna, a vonal 1 pixellel hamarabb érne véget, ezért a vonal(0,488,489,488); parancsot kellene alkalmazni a teljes vonal kirajzolásához, ez ugye elvileg 1 pixellel kilógna, de az nem látszik, viszont a (488,488) is jó lenne.
Ilyen új Delphi-vel nincs tapasztalatom, de hátha másnak van. A helyedben addig is bátran kísérletezgetnék, gyűjteném a tapasztalatokat, kis kreativitással gyorsan rá lehet jönni sok mindenre és lehet fejlődni önállóan.
Egy észrevétel: A "vonal" eljárást én nem a "RajzClick" eljárás belső eljárásaként definiálnám.
#1745 Gyuri16 senior tag labuwx #1744

Új Válasz 2009-06-30 16:56:29 #1745
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Gyuri16

senior tag

válasz labuwx #1744 üzenetére

szerintem meghuzta a vonalakat, csak nem latszik, mert a kornyezetnek is ugyanolyan szine van. probalj meg mas szint allitani: image.canvas.pen.color (konstansok pl clRed, clBlue ...). allithatsz neki vastagsagot is: pen.width
#1743 vz12 tag labuwx #1741

Új Válasz 2009-06-30 08:49:23 #1743
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

vz12

tag

válasz labuwx #1741 üzenetére

Canvas.Line tényleg nincs.
Canvas.MoveTo(x1,y1) odateszi (x1,y1)-ba a kezdőpontot.
Canvas.LineTo(x2,y2) innen húz egy vonalat (x2,y2)-be előzetesen beállított stílussal (szín, vonalvastagság, stb.), ezután a kezdőpont már itt lesz, a következő LineTo már innen fog indulni ha el nem viszed innen. Szerintem érdemes saját Line(x1,y1,x2,y2) eljárást írni a fenti két eljárás felhasználásával, esetleg a színt és vonalvastagságot is érdemes betenni a paraméterekbe majd felhasználni, úgy "szebb", általánosabb eljárást kapsz.
Egyébként egy MxN-es canvas koordinátái (0,0) és (M-1,N-1) között vannak, és a LineTo-nak tapasztalataim szerint (Delphi 5.0-ig) van egy olyan tulajdonsága hogy a VÉGpont utolsó pixelét nem szereti kitenni, lespórolja.
A "canvas" tulajdonságait és eljárásait kell nézegetni a help-ben, van téglalap és ellipszis (kör) rajzolási lehetőség is, stb.
Szerk.: Úgy látom hogy beelőztek, de mindegy.
#1742 Gyuri16 senior tag labuwx #1741

Új Válasz 2009-06-30 08:40:19 #1742
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Gyuri16

senior tag

válasz labuwx #1741 üzenetére

moveto viszont kellene hogy legyen (odateszi a kurzort, de nem huz csikot), ezzel a kettovel mar barmilyen csikot tudsz huzni
#1740 Gyuri16 senior tag labuwx #1739

Új Válasz 2009-06-29 16:08:38 #1740
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Gyuri16

senior tag

válasz labuwx #1739 üzenetére

szerintem legegyszerubb ugy, ha mindent egy TImage-be rajzolsz. Megcsinalod a negyzethalot, es aztan onMouseDown event-et figyeled (koordinatakbol konnyen ki lehet szamolni melyik mezore kattintottal).
ezek jol johetnek: image.canvas.line, image.canvas.draw, image.canvas.ellipse...
#1736 Gyuri16 senior tag labuwx #1732

Új Válasz 2009-06-10 13:27:05 #1736
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Gyuri16

senior tag

válasz labuwx #1732 üzenetére

ehhez kell keszitened egy sajat osztalyt, ami kezelni tudja a nagy szamokat. ilyet tobbnyire ugy szokas, hogy egy (nagy) tomb integert hasznalsz a szamod elraktarozasara. ahhoz hogy igy mukodjon termeszetesen meg kell irnod az aritmetikat is az osztalyodhoz. egy kis szerencsevel talalsz a neten, es akkor nem kell sajatot irni
ezt a dolgot az okosok ugy hivjak, hogy arbitrary length arithmetic
#1735 Keem1 veterán labuwx #1734

Új Válasz 2009-06-09 22:12:15 #1735
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Keem1

veterán

válasz labuwx #1734 üzenetére

Akkor sajnos ebben nem tudok Neked segíteni .
De remélem, lesz aki igen...
#1733 Keem1 veterán labuwx #1732

Új Válasz 2009-06-09 21:46:48 #1733
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Keem1

veterán

válasz labuwx #1732 üzenetére

Valószínű, csak szövegesen tudod. Csak kérdés, milyen módon akarod kezelni
Legjobb tudomásom szerint a legnagyobb változóba pakolható szám nagyjából ez:
Int64 -9,223,372,036,854,775,808 to 9,223,372,036,854,775,807
#1731 Gyuri16 senior tag labuwx #1729

Új Válasz 2009-06-09 10:19:22 #1731
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Gyuri16

senior tag

válasz labuwx #1729 üzenetére

Math unit -> Power fuggveny
#1707 Fire/SOUL/CD félisten labuwx #1706

Új Válasz 2009-05-29 01:11:20 #1707
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz labuwx #1706 üzenetére

Hali!
procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add(Edit1.Text) end;
Fire.
UI: Mondjuk ennek semmi köze a Lazarus-hoz...
#1704 Fire/SOUL/CD félisten labuwx #1703

Új Válasz 2009-05-21 16:37:04 #1704
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz labuwx #1703 üzenetére

Hali!
Nem írtad hogy full-os dvd van, van csak "simán leszedett" változat. A fulldvd-n minden progi rajt van ami kell a telepítéshez. Olvasd el a HELP-et ott le vagyon írva, hogy miknek kell lenni előtelepítve.
Leggyakrabban két dolog "hiánya" miatt nem indul el a telepítő
MDAC 2.8
.Net 2.0
Xp estében egyik sincs telepítve, Vista-nal(Ultimate) a NET 2.0 igen
Szóval első körben ezt a kettőt telepítsd fel
MDAC: [link]
NET 2.0 : [link]
Fire.