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

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

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

#458 zenit tag Drótszamár #456

Új Válasz 2005-01-06 10:34:25 #458
Ú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

zenit

tag

válasz Drótszamár #456 üzenetére

Bocs, kicsit félreérthető voltam:
úgy értettem, hogy ilyenkor egy nil-t kell átadni neki paraméternek.
#455 zenit tag Drótszamár #454

Új Válasz 2005-01-05 20:19:35 #455
Ú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

zenit

tag

válasz Drótszamár #454 üzenetére

A Parent property-t is be kell állítani a szülőre (a Create csak a tulajdonost állítja).
Elképzelhető, hogy a korábban létrehozott kép takarja az újat (de nem biztos!), ekkor használd a BringToFront eljárást.

Szerk: A Create-nek csak akkor adj meg paramétert, ha azt akarod, hogy a tulajdonosa szabadítsa fel, amikor majd ő is felszabadul. Én jobb szeretem az általam létrehozott objektumokat magam felszabadítani, így ekkor elég egy nil-t megadni.

[Szerkesztve]
#135 zenit tag steveetm #134

Új Válasz 2004-11-04 17:01:35 #135
Ú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

zenit

tag

válasz steveetm #134 üzenetére

AssignPrn példaprogram a Help fájlból, próbáld ki:

var
. MyFile: TextFile;
begin
. AssignPrn(MyFile);
. Rewrite(MyFile);
. Writeln(MyFile, 'Print this text');
. System.CloseFile(MyFile);
end;
#130 zenit tag Divi #129

Új Válasz 2004-11-01 22:51:31 #130
Ú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

zenit

tag

válasz Divi #129 üzenetére

A Canvas.ClipRect megadja neked a rajzterület koordinátáit (bal-felső, jobb-alsó), logikai egységekben mérve. Nézd meg, hogy valóban ezen a területen belül vagy-e. (Tulajdonképpen nincs is szükséged a dpi-re. )
#127 zenit tag Divi #126

Új Válasz 2004-11-01 19:49:00 #127
Ú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

zenit

tag

válasz Divi #126 üzenetére

Én ezt használtam (Win32 API):

Dpi.X := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
Dpi.Y := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
#123 zenit tag lao ce #122

Új Válasz 2004-10-25 19:09:45 #123
Ú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

zenit

tag

válasz lao ce #122 üzenetére

Ja, értem már. Akkor viszont tényleg más kell.
A TCustomForm-nak van egy GetFormImage eljárása. Nem mondom, hogy egy-az-egyben ezt kellene használnod, de talán lophatsz ötleteket a forrásából.
Szerk.: De az is lehet, hogy pent ez kell neked...

[Szerkesztve]
#121 zenit tag lao ce #120

Új Válasz 2004-10-25 17:49:56 #121
Ú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

zenit

tag

válasz lao ce #120 üzenetére

A Form az nem egy statikus kép, hogy egyszer kirajzolódik a Show hatására, és aztán úgy marad.
A tényleges rajzolás általában a Windows WM_PAINT esemény hatására történik, ami mindannyiszor meghívódik, ha pl. megváltozik az ablak tartalma (Invalidate) - vagy egyszerűen csak egy másik ablakot elhúzol felette! stb...

Delphi oldalon ezt a mechanizmust az OnPaint eseményben tudod elcsípni, ami mindannyiszor meghívódik, ha a formot újra kell rajzolni. Itt rajzolhatsz pl. hátteret a Formodnak. Használd a TForm.Canvas-t.
#115 zenit tag #57764352 #111

Új Válasz 2004-10-20 19:11:18 #115
Ú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

zenit

tag

válasz #57764352 #111 üzenetére

LNKO és relatív prím algoritmus:
pl. Bővebben: link
vagy: Bővebben: link

[Szerkesztve]
#107 zenit tag Hani #106

Új Válasz 2004-10-18 12:30:32 #107
Ú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

zenit

tag

válasz Hani #106 üzenetére

Használd a ReadOnly property-t.

Az OnKeyPress stb. események Key paramétere ''var'' típusú, és ha azt akarod, hogy a Delphi ne kezelje le, visszatérés előtt ki kell nulláznod (#0).
(De ezzel nem zártad ki az egér Paste műveletét!)
#16 zenit tag KovacsUr #13

Új Válasz 2004-09-13 16:10:13 #16
Ú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

zenit

tag

válasz KovacsUr #13 üzenetére

De arra már te is rávilágítottál az előbb, hogy a szövegfájl, mint adatszerkezet, nem lesz jó.
#15 zenit tag Divi #12

Új Válasz 2004-09-13 16:06:49 #15
Ú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

zenit

tag

válasz Divi #12 üzenetére

A TFileStream a fájl egyszerű bájt-szintű elérésére való, annak minden előnyével és hátrányával. Egyrészt közvetlenül a Windows API-re épül, szóval hatékony - bár ez ma már inkább csak elvi dolog, bár annak nem utolsó .
Másrészt meg a VCL mindenhol a TStream osztályt használja, ami néhány alapműveletet definiál, a leszármazottai pedig (így a TFileStream is) ezeket implementálják.

Szóval érdemesebb neked is inkább ebbe az irányba haladni, mert később sokat fogod használni őket, ill. ezért nem érdemes már a pascal-os ''file'' típusba jobban belemélyedni. (Talán még a ''Text'' fájltípusnak van egyedül létjogosultsága, mert erre nem létezik elfogadható alternatíva, bár az más kérdés, hogy valóban szükség van-e rá.)
#11 zenit tag Divi #10

Új Válasz 2004-09-11 21:45:10 #11
Ú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

zenit

tag

válasz Divi #10 üzenetére

Használhatod ezt:
type TItem = array[0..1023] of Char;
Ezzel 1023 karakter hosszú szöveget tudsz tárolni (plusz egy lezáró #0 karakter). Így már mehet a file of TItem, ahol a rekord mérete 1024 bájt lesz.

String (S) -> TItem (Item) konverzió a fájl írásához:
StrLCopy(Item, PChar(S), SizeOf(Item) - 1);

Olvasás után pedig csak egyszerű értékadás kell: S := Item;

Halkan megjegyezném, hogy a file of ... használata Delphi-ben elavult dolognak számít, helyette használj inkább TFileStream-et.