Hirdetés
Ú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
- Milyen széket vegyek?
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Gaming notebook topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Pánikban a világ a Radeon RX 5000 és 6000 sorozat támogatása miatt
- Autós topik
- Olyan lesz a Google Térkép, mint a segítőkész haver az anyósülésen
- OLED TV topic
- GTA VI
- Call of Duty: Black Ops 7 - Középpontban a PC-s kiadás
- További aktív témák...
- iPhone 15 Pro Max 256GB Blue 2db eladó!
- MSI Radeon RX 6950 XT GAMING X 16GB DDR6 Videokártya! BeszámítOK
- -ÚJ,2 ÉV GAR- GAMER PC: RYZEN 7 8700F/9700X/9800X3D +RX 9060XT/9070/9070XT +16-64GB DDR5! SZÁMLA!
- Supermicro MBD-X11SPM-F Alaplap + Intel Xeon3204 6-Core 1.9GHz LGA14B Kit Processzor + 16GB RAM
- Acer Extensa 215-52 (2021) Megkímélt állapot, 1 TB HDD, dobozával!
- Samsung Galaxy S24 Ultra 256GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi 13T Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- BESZÁMÍTÁS! ASUS B85M-G B85 chipset alaplap garanciával hibátlan működéssel
- Samsung Galaxy S21 Ultra / 12/256GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő


