Hirdetés
- Honor Magic6 Pro - kör közepén számok
- Mozgás közben is megtalálhatod az Apple új nyomkövetőjét
- Samsung Galaxy A17 5G – megint 16
- iPhone topik
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Apple iPhone 15 Pro Max - Attack on Titan
- Samsung Galaxy A54 - türelemjáték
- Okosóra és okoskiegészítő topik
- Örömkönnyek és üres kezek a TriFold startjánál
- Poco F7 – bajnokesélyes
Ú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
- Samsung Galaxy S23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Önerő nélkül is elvihető! Részletfizetés. 27 % Áfás számlával Dell Alienware QD-OLED gamer monitor
- HIBÁTLAN iPhone XS Max 64GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS2898
- BESZÁMÍTÁS! ASUS H510M i5 11400F 16GB DDR4 512GB SSD RTX 2060 Super 8GB Zalman T4 Plus CM 500W
- ÁRCSÖKKENTÉS Ravpower 6000 mAh-s mégis pici powerbank eladó
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest