Hirdetés
- sziku69: Szólánc.
- Meggyi001: A kérdés...
- oriic: A TOP 10 legtöbb hozzászólással rendelkező PH! felhasználó
- Luck Dragon: Asszociációs játék. :)
- Trewerr: Analóg-digitális jelátalakítás (zenefájlok leegyszerűsítésével magyarázva)
- Lalikiraly: Astra kalandok @ Negyedik rész
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Lalikiraly: Kaáli Autó-Motor Múzeum
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
tusi74
őstag
Mint már régebben írtam, a szakdolimba pár internetről szedett kódot illesztettem.
Ma lejutottam addig, hogy mindről tudom, hogy mit csinál, csak leírni nem tudom.
Szinte mindig a Canvassal gyűlik meg a bajom.
Valaki megfogalmazná nekem, hogyan lehet szakdolgozatba illő ékes magyar egész mondatokat írni a canvasos utasításokról? Mi az a canvas?
Pl. Találtam egy eljárást, ami átmeretezi dinamikusan a szöveghez a cellákat.
A commenteket én írtam, szerintem jó.
with StringGrid1 do
begin
Canvas.Font := Font; {A megjelenített font:=StringGrid1 fontja}
for j := 0 to ColCount-1 do {Ciklus az összes oszlopra}
begin
max := 0; {Az oszlopban megkeresem a maximális hosszú szót (maximum kiválasztás tétele), és annak hosszához igazítom a teljes oszlop szélességét}
for i := 0 to RowCount - 1 do
begin
seged := Canvas.TextWidth(Cells[j, i]) + 8; {seged változóban tárolom a vizsgált j.edik oszlop
i-edik sorának szövegszélességet, meg adok még hozzá 8 pontot, hogy ne súrolja a szöveg a
rácsot}
if seged > max then max := seged;
end; { For }
if max > 0 then ColWidths[j] := max; {Ha a megtalált maximum 0-nál nagyobb, akkor ez legyen a j-edik oszlop mérete}
end; { For }
end; { With }
Azt értem, hogy a Font legyen a StringGrid fontja, de hogy jön ide a canvas?
Meg azt is értem, hogy a seged változó értéke legyen a StringGrid1 j.-edik oszlopának i-edik sorában a szöveg szélessége+8. A 8-at egyébként
miben mérjük? Pontban?
[Szerkesztve]
Új hozzászólás Aktív témák
- Bemutatkozott a Poco X7 és X7 Pro
- Arc Raiders
- Újra nekifeszül az asztali konzolok piacának a Valve
- Szívós, szép és kitartó az új OnePlus óra
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Battlefield 6
- Milyen TV-t vegyek?
- Ne várj sokat a vásárlással: drágulás a láthatáron
- One otthoni szolgáltatások (TV, internet, telefon)
- Kuponkunyeráló
- További aktív témák...
- Lenovo ThinkPad P1 Gen 4 i7 32GB RAM 512GB SSD NVIDIA T1200 16 2560 1600 Garancia
- Dell Precision 7550 i7 32GB RAM 512GB SSD NVIDIA Quadro T1000 FHD
- Dell Precision 5560 i7 32GB RAM 512GB SSD NVIDIA RTX A2000 FHD+
- BOMBA áron eladó új Microsoft Surface Laptop 4 garanciával! AMD Ryzen 5 /16GB /256 SSD/TOUCH/13.5"/
- Dell Latitude 7420 i7 / 32GB /1TB SSD / FHD IPS
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest

