- Apple Watch Sport - ez is csak egy okosóra
- Motorola Edge 40 neo - színre és formára
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Mobil flották
- Minden a BlackBerry telefonokról és rendszerről
- Új Beats fej- és fülhallgatók jelentek meg
- Tasker
- Milyen okostelefont vegyek?
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
it Egyre nagyobb probléma az AI hallucinálása – most az osztrák adatvédelmi hatóság veheti elő a ChatGPT miatt az OpenAI-t, alapvetően a GDPR megsértése miatt.
Új hozzászólás Aktív témák
-
BlackWoOd
aktív tag
válasz Diskcopy #626 üzenetére
A sorszám névből kitúrása helyett javasolnám a ''Tag'' nevű integer típusú property használatát.
A 10 image tag-jének adsz rendre 1,2,3...10 értéket és kész. (a tulajdonság default értéke 0)
A fenti példa alapján:
if (Components[_i_] is TImage) then
with (Components[_i_] as TImage) do
if (Tag > 0) then begin
// Itt meg megírod a kezelő rutint.
// pl. Case Tag of használatával, vagy ahogy szükséges.
end;
[Szerkesztve]< ..kevés az ember, sok az emberszerű lény... >
-
Diskcopy
tag
válasz Diskcopy #630 üzenetére
Azon gondolkodom, hogy a Components-en belül a képeknek fix értéke van, mármint hogy hanyadikok. Ha újabb komponenst rakok le, akkor növekszik a Components értéke, de a képeké marad ugyanaz (nem?) akkor elméletileg csak meg kéne néznem, hogy a képek hanyadik Components elemtől kezdődnek és akkor megúszom a végigmenős ciklust (legalábbis azt, hogy az összes komponensen végigmenjen). Javíts ki ha tévednék légyszíves.
-
BlackWoOd
aktív tag
válasz Diskcopy #631 üzenetére
Ilyen hajmeresztő mutatványba szerintem ne kezdj bele.
Jobb a békesség.
Csinálj egy tömböt Timage típussal és a form létrehozásakor 1x töltsd fel inkább a components alapján.
Ezt a fixen pl. 5-15. komponenses hivatkozást még most gyomláld ki az agyadból, sok kellemetlen meglepetést tud okozni.
(pl. módosítasz valamit és elfelejted átírni az indexeket, vagy akármi.)< ..kevés az ember, sok az emberszerű lény... >
-
-
-
Szalma
őstag
válasz Diskcopy #669 üzenetére
(Jónak tűnik. Valami transparent kapargatás kellene neki, de nem tudok többet fejből, szerencsére nincs delfi a gépemen már ~2 éve... )
Szeretettel:
Szalma
ui.: Jaja... Bitmap mag kapargatás megvan... Lehet lejjebb is menni, de nem éri meg...
szerk.: Szerintem tök jó, ha belefordulnak a képek. Külső resource kicsit ciki. Utána egy UPX-el rámenni, és kicsi lesz.
[Szerkesztve] -
killerjohn
addikt
válasz Diskcopy #669 üzenetére
Procedure ClearBitmap(Btm: TBitmap);
Begin
With Btm.Canvas Do
Begin
Pen.Color := clWhite;
Brush.Color := clWhite;
Rectangle(0,0,Btm.Width,Btm.Height);
End;
End;
itt jön a Tiéd :
Var Img : TImage;
For c := 1 to 5 Do
Begin
dobott[c]:=random(5)+1;
Img := Timage(Form1.FindComponent('Image'+IntToStr(c)));
ClearBitmap(Img.Picture.Bitmap);
Imagelist2.GetBitmap( dobott[c]-1, Img.Picture.Bitmap);
Img.Invalidate;
End;
próba, kemence. -
killerjohn
addikt
válasz Diskcopy #677 üzenetére
A ''mester'' azért erős....
Itt se ICQ-t, se MSN-t nem használok... Otthon nincs net, jövőhéten hozzák be... Marad a PH!. De ez nem flood. Ez a topic erre van, nem ?
Szerk: A rendszergazda nem szereti az ilyen jellegű ''chat'' cuccokat. Próbáltam elmagyarázni, de fogja fel.... mind1.
[Szerkesztve] -
corm
senior tag
-
Tele von Zsinór
őstag
válasz Diskcopy #935 üzenetére
i := 0;
while ListBox1.Items.Count > 0 do
begin
StringGrid1.Cells[1,i+1] := ListBox1.Items[0];
ListBox1.Items.Delete(0);
StringGrid1.RowCount := i+2;
StringGrid1.Cells[0,i+1] := IntToStr(i+1);
inc(i);
end;
A ListBox1-be egy adatbázisból kiszedett adatok kerülnek, nincs köztük olyan, aminek a trim-je üres lenne. De ha lenne is, akkor legfeljebb üres maradna egy cella, nem
Tényleg annyi lenne, hogy egy ListBox elemeit egy ciklus berakja egy StringGrid 1-es indexű oszlopába. És egyszercsak write-os access violation
Bővebben:� link -
Tele von Zsinór
őstag
válasz Diskcopy #937 üzenetére
StringGrid1.Enabled = True.
Tudomásom szerint a for is ciklus, nem?Először én is for-al csináltam egy gyakorlatikag ugyanilyen kóddal, aztán amíg még nem tudtam a pontos sort, ami a hibát okozza, akkor írtam át while-ra, hogy hátha. Aztán így maradt, tökéletes ez is. Optimalizációval meg még nem foglalkoztam -
Tele von Zsinór
őstag
válasz Diskcopy #939 üzenetére
Igen, próbáltam a step-by-step debugot. A kompononseken annyi változás történt, hogy a ListBox1 méretét megnöveltem és láthatóvá tettem. Arra jöttem rá, hogy a ciklus kb. a 44-45. iterációjában okozza a kivételt, a ListBox1 44. és 45. eleme: ''Rmc Kft'' és ''Szatmári Kft''. A ciklus pontosan annál a sornál akad ki, amelyiket először beírtam ide, azaz amikor a StingGrid egyik cellájához rendelek értéket.
Asszem felrakom újra a delhit, hátha -
Diskcopy
tag
válasz Diskcopy #966 üzenetére
amúgy meg találtam googleon. nézd át.
Function LoadResStr(ident : word) : string;
var H : THandle;
PS : PChar;
begin
H := LoadLibrary('YYYY.DLL');
New(PS, 255);
LoadString(H, ident, PS, 255); // az ident hatarozza meg a stringet
LoadResStr := StrPas(PS);
FreeMem(PS);
end;
[Szerkesztve]
Új hozzászólás Aktív témák
- AKCIÓ Új Dobozos Macbook Pro dokkoló új ára 70.000 forint
- ThinkPad Hybrid USB -C USB -A Dock 40AF Új ára 80.000 Forint Ingyen szállítás
- Xiaomi Redmi Note 9s 128/6 GB 34.9E !!!
- Új Hp Pavilion 15-eh Fémházas Szuper Laptop 15,6" -30% AMD Ryzen 7 5700U 8Mag 16/1TB FHD MATT
- ATI RADEON RX 480 -8 gb DDR5 256 bit videokártya