Hirdetés
- Real Racing 3 - Freemium csoda
- Bestx: Budget DIY eGPU USB4/Thunderbolt csatlakozással – egy mining VGA új élete.
- gban: Ingyen kellene, de tegnapra
- Maxell Retro DJ teszt
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Lenry: Melléképületblog - 4. rész - Kocsibeálló
- Magga: PLEX: multimédia az egész lakásban
- Random25: Windows 11 telepítés Pendriveról
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
#747
Imike_80
aktív tag
killerjohn
#737
Imike_80
aktív tag
válasz
killerjohn
#737
üzenetére
Na ez lesz a jó megoldás..
Tehát: 2 koordináta-változó ugye, egérlenyomásra rajzol, stb.
Ez a sor mi is? : Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
Köszi mindenesetre! -
#738
killerjohn
addikt
killerjohn
#737
killerjohn
addikt
válasz
killerjohn
#737
üzenetére
de hasonló a megoldás. most nincs időm írni, de ebből már nem nehéz kitatlálni az alapjait............
-
#728
yksz
aktív tag
killerjohn
#727
yksz
aktív tag
válasz
killerjohn
#727
üzenetére
a Delphi MINDENT tud
Ez igaz, csak tudni kell, hogy kell osszehozni az egészet. Ez a nehezebbik része, mert vannak olyan dolgok, amit tuti tud a delphi és minden más programozó program kezdve a pascaltól a JAVA-n keresztul a C++-ig, de mi emberek még nem tudjuk megcsinálni
Pl.: A tokéletes mesterséges intelligencia, a teljesen élethu kép (valósághoz hasonlítva nincs kulonbség) megjelenítése és még lehetne sorolni egy két dolgot -
#726
ollie
MODERÁTOR
killerjohn
#725
válasz
killerjohn
#725
üzenetére
Heh, tud jpeg-et is? Még pár év és a végén még a fenekemet is kitörli...
-
#716
yksz
aktív tag
killerjohn
#711
yksz
aktív tag
válasz
killerjohn
#711
üzenetére
Ok felteszem, de még csak osszeadni tud Kicsit extrém megoldással
-
#708
yksz
aktív tag
killerjohn
#705
yksz
aktív tag
válasz
killerjohn
#705
üzenetére
Ja az, csak nincs korlátozás (Integer, real stb...) akármilyen nagy számot beírhatsz.
-
#693
yksz
aktív tag
killerjohn
#692
yksz
aktív tag
válasz
killerjohn
#692
üzenetére
THX, erre voltam kíváncsi
-
#689
yksz
aktív tag
killerjohn
#686
yksz
aktív tag
válasz
killerjohn
#686
üzenetére
THX az elozo válaszokat, ezt pedig úgy gondoltam, hogy egy karakterláncot visszafelé, karakterenként beolvasni egy változóba.
-
#687
Robiba
tag
killerjohn
#686
Robiba
tag
válasz
killerjohn
#686
üzenetére
2. Vissza:=ReverseString(Eredeti);
1. A fentit használhatod az Edit OnChange eseményében. -
#680
Szalma
őstag
killerjohn
#676
Szalma
őstag
válasz
killerjohn
#676
üzenetére
(Gyilkos, ipari megoldás...
![;]](//cdn.rios.hu/dl/s/v1.gif)
)
Szeretettel:
Szalma -
#679
Diskcopy
tag
killerjohn
#678
Diskcopy
tag
válasz
killerjohn
#678
üzenetére
Jó, hát akkor marad a remény, hogy ha újabb problem lesz, ittleszel a közelben, vagy más Mester
. Mindenkinek köszönöm, aki eddig segített. Minden gond megoldódott. Ph! Rulez. Sorry a sok Offért.
[Szerkesztve] -
#677
Diskcopy
tag
killerjohn
#676
Diskcopy
tag
válasz
killerjohn
#676
üzenetére
Kemence bejött
MESTER
felvehetlek-e MSNre, vagy ICQ, nem akarom szétfloodolni a topicot hülyeségekkel, lehet még lesz kérdésem. Ha nem, persze megértem. Eddig is nagy THX neked. -
#674
Diskcopy
tag
killerjohn
#672
Diskcopy
tag
válasz
killerjohn
#672
üzenetére
nem akarok külön mellékelni hozzá képeket. Ha runtime töltöm be LoadFromFile, akkor mellékelnem kéne, nem? Transparentre akkor megoldás mi? mert már a falat kaparom
Adj nekem is, most szívtam el az utcsót
[Szerkesztve] -
#671
Diskcopy
tag
killerjohn
#670
Diskcopy
tag
válasz
killerjohn
#670
üzenetére
igen. annál mind a kettő clNone...
-
#668
Diskcopy
tag
killerjohn
#665
Diskcopy
tag
válasz
killerjohn
#665
üzenetére
Nyomtam neki de még mindíg, frissít mostmár, eddig a képek sem jelentek meg, de most megjelenik egyből, csak még mindíg alatta van a régi.. Imagelistben sincs Transparent, meg magában az imageben sincs a tulajdonságok között. Nem értem
-
#663
Diskcopy
tag
killerjohn
#661
Diskcopy
tag
válasz
killerjohn
#661
üzenetére
Imagelistből rádobok a sima imagere egy másik képet.
Imagelist2.GetBitmap(c, Timage(Form1.FindComponent('Image'+IntToStr(c))).Picture.Bitmap);
Ha nagyon béna megoldás, akkor azért ne harapd le a fejem
-
#660
Diskcopy
tag
killerjohn
#659
Diskcopy
tag
válasz
killerjohn
#659
üzenetére
Újabb lámer kérdés coming. Menetközben átvésem a Timage Bitmapját. viszont csak akkor frissít, ha ráklikkelek és akkor is úgymond ''Maszkosan'' tehát az előző is látszik alatta. Hogyan frissítsem rögtön, vagy mit állítsak be a TImage tulajdonságainál. Egyszerűbb nektek megmondani, minthogy megint órákat töltsek el vele, mint a FindComponenttel
Amúgy a FindComponenttel nagyon lerövidült az egész, és jól áttekinthető. Még1x köszi -
#657
g4dg3t
senior tag
killerjohn
#654
g4dg3t
senior tag
válasz
killerjohn
#654
üzenetére
nem szeretek belehegeszteni a kodba komponensnevekre hivatkozasokat...szamomra attekinthetobb es foleg szebb ha egy sajat ciklus vegzi a keresest mondjuk Tag alapjan. (...mindenki mashogy csinalja...)
-
#656
BlackWoOd
aktív tag
killerjohn
#650
BlackWoOd
aktív tag
válasz
killerjohn
#650
üzenetére
A polírozásba ne menjünk bele, hogy ki mit és mennyit fejleszt és hogy kinek mekkora.
Ennek ellenére _szerintem_ nem túl jó a neve alapján ilyen módon használni egy komponenst.
Egy életszerű példa: Megváltoztatod a komponens nevét, majd x helyen a forrásba is átvezeted a változást.
Viszont nem veszed észre, hogy van egy x+1edik előfordulás, ráadásul valami elágazás mélyén, ahol ez ''véletlenszerűen'' hibát fog okozni. Az ilyen dolgokat élvezet debuggolni.
Jobb, ha az ilyesmit a fordító kiszúrja, szerintem. -
#647
BlackWoOd
aktív tag
killerjohn
#640
BlackWoOd
aktív tag
válasz
killerjohn
#640
üzenetére
Te fejlesztés közben nem szoktad elnevezni a komponenseidet, hogy mikor keresed, megtaláld?
Pl. Image1 helyett Kep_Bal_Felso, vagy ilyesmi?
Vannak ám előnyei, ha valaminek a neve utal a tartalmára/funkciójára...
(Talán te is rájössz, hogy miért nehézkes ez a ''komponens a neve'' alapján procedúra egy nagyobb app esetében. De tényleg hagyjuk.) -
#646
Diskcopy
tag
killerjohn
#645
Diskcopy
tag
válasz
killerjohn
#645
üzenetére
7es delphi.
-
#644
Diskcopy
tag
killerjohn
#641
Diskcopy
tag
válasz
killerjohn
#641
üzenetére
Statement expected, but expression of type 'TImage' found
Form1.FindComponent('image'+IntToStr(i)) as TImage).Picture.Bitmap := TBitmap.Create;
így van a kód, és a as Timage). a pontnál nyavajog, míg a másik verzióval amit írtam megy. Te biztos tudod, hogy miért. -
#642
Diskcopy
tag
killerjohn
#640
Diskcopy
tag
válasz
killerjohn
#640
üzenetére
Nézd, lehet ő sem, tudta, nem tehet róla. Ez csak téged minősít, hogy vágod a dolgokat
Ne bántsd ezért, csak jót akart. Az sem rossz végtére is, csak lassabb az tény. -
#639
Diskcopy
tag
killerjohn
#636
Diskcopy
tag
válasz
killerjohn
#636
üzenetére
hm, átírtam ilyenné: Timage(Form1.FindComponent('Image'+IntToStr(i))).akármi:=akármi. a te verzióddal nyavajgott.
-
#638
Diskcopy
tag
killerjohn
#636
Diskcopy
tag
válasz
killerjohn
#636
üzenetére
Emlékeztem hogy van valami megoldás, csak nem tudtam már mi volt, viszont drótozni sem akartam. hogy image1.stb image2.stb mert ez tényleg lámer
-
#637
BlackWoOd
aktív tag
killerjohn
#636
BlackWoOd
aktív tag
válasz
killerjohn
#636
üzenetére
Min is?
-
#634
Diskcopy
tag
killerjohn
#633
Diskcopy
tag
válasz
killerjohn
#633
üzenetére
köszi!
mondottam volt, lehet lámer a kérdés.
[Szerkesztve]
Pl.: A tokéletes mesterséges intelligencia, a teljesen élethu kép (valósághoz hasonlítva nincs kulonbség) megjelenítése és még lehetne sorolni egy két dolgot
![;]](http://cdn.rios.hu/dl/s/v1.gif)
)
. Mindenkinek köszönöm, aki eddig segített. Minden gond megoldódott. Ph! Rulez. Sorry a sok Offért.
MESTER 
Ne bántsd ezért, csak jót akart. Az sem rossz végtére is, csak lassabb az tény.
köszi!Új hozzászólás Aktív témák
- Asus Rog Zephyrus Gamer laptop gyönyörű állapotban.
- GOPRO Hero 11 BLACK Creator Edition akciókamera csomag +tartozékok
- Intel Core i9 14900KF processzor eladó instabil állapotban OLVASD EL!!!
- SK Hynix 16GB / 32GB 5600MHz Laptop RAM!
- AMD Ryzen 7 5700X / RTX 3060 Ti / 32GB DDR4 RAM / 1TB SSD Mini-ITX konfig eladó jó áron
- AKCIÓ! HP USB C G5 Essential (5TW10AA) dokkoló hibátlan működéssel garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Konzol felvásárlás!! Playstation 5, Playstation 5 Pro
- BESZÁMÍTÁS! Gigabyte B760M i5 14600KF 64GB DDR4 1TB SSD RTX 3080 10GB CM CMP 510 Seasonic 750W
- AKCIÓ! MSI B365M i5 8600 16GB DDR4 512GB SSD RX 5700XT 8GB CM MASTERBOX Q300L Zalman 600W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest