- Melyik tápegységet vegyem?
- Hisense LCD és LED TV-k
- OLED TV topic
- Fejhallgató erősítő és DAC topik
- Elkészült Oroszország első litográfiai berendezése
- Amlogic S905, S912 processzoros készülékek
- Milyen egeret válasszak?
- Sony MILC fényképezőgépcsalád
- TCL LCD és LED TV-k
- Soundbar, soundplate, hangprojektor
Hirdetés
-
Felfordul a windowsos piac: az Arm megszerezné a PC-s piac 50 százalékát
it Az Arm arra készül, hogy a windowsos piac átalakulása közben 5 éven belül megszerzi a PC-s piac 50 százalékát.
-
Kétféle Realme GT 6 érkezik egy néven
ma Ilyen az, amikor át is címkéznek és a névvel is zavart okoznak.
-
Computex 2024: TUF notebookok Ryzen AI-val
ph A TUF Gaming A16, és kisebb testvére, a TUF Gaming A14 a Ryzen AI 300 családot GeForce RTX grafikával kombinálja.
Új hozzászólás Aktív témák
-
Tomi_78
tag
Sziasztok!
Készülő programomban van egy ScrollBox, azon pedig egy TImage kép (terepVaszon néven). Erre a TImage-re szeretnék még rajzolni rácsvonalakat, de úgy, hogy ne legyenek a TImage részei, mert később a rácsvonalak nélkül szeretném elmenteni és a rácsvonalak mutatása ki/bekapcsolható legyen.
Mindennek megvalósítására létrehozok még egy TImage-et (tvracskep néven), amelynek a ScrollBox a szülője, hogy azon helyezkedjen el, és a TImage vásznához hozzárendelek egy BitMap képet, amelyen a rácsok rajzolása megtörtént.
Ki is rajzolódik a rács, de mindig egy fekete háttéren, amit sehogy nem bírok eltüntetni, és így nem látszik az alatta levő kép.
Lehetséges egyáltalán egy képen rajzolni valamit úgy, hogy a rajzkép áttetsző legyen a nem használt részein? Ha igen, hogyan?
Itt a teljes kód, amit írtam:procedure TForm1.racsmutatoGombMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var bm: TBitmap;
vszvonalhely,fugvonalhely: word;
begin
if tvracsmutat=true then
begin
tvracsmutat:=false;
if vantvracs=true then
begin
FreeAndNil(tvracskep);
vantvracs:=false;
end;
end
else
begin
tvracsmutat:=true;
if vantvracs=false then
begin
tvracskep:=TImage.Create(tvScrBox);
tvracskep.Parent:=tvScrBox;
tvracskep.Left:=0;
tvracskep.Top:=0;
tvracskep.width:=terepVaszon.width;
tvracskep.height:=terepVaszon.Height;
tvracskep.Transparent:=true;
bm:=TBitmap.Create;
bm.width:=terepVaszon.width;
bm.height:=terepVaszon.Height;
bm.PixelFormat:=pf32Bit;
bm.Transparent:=true;
bm.Mask(clBlack);
fugvonalhely:=csempeszel;
vszvonalhely:=csempemag;
bm.canvas.pen.color:=clBlue;
while fugvonalhely<terepVaszon.width do
begin
bm.canvas.line(fugvonalhely,0,fugvonalhely,terepVaszon.height);
inc(fugvonalhely,csempeszel);
end;
while vszvonalhely<terepVaszon.height do
begin
bm.canvas.line(0,vszvonalhely,terepVaszon.width,vszvonalhely);
inc(vszvonalhely,csempemag);
end;
tvracskep.picture.graphic:=bm;
tvracskep.picture.graphic.transparent:=true;
FreeAndNil(bm);
end;
vantvracs:=true;
end;
end;
Új hozzászólás Aktív témák
- Nem kap több frissítést a Wolcen: Lords of Mayhem
- Fotók, videók mobillal
- Robot fűnyírók
- Melyik tápegységet vegyem?
- Újabb csapat dolgozik a Prince of Persia: The Sands of Time Remake-en
- Építő/felújító topik
- Elektromos (hálózati és akkus) kéziszerszámok, tapasztalatok/vásárlás
- Formula-1
- Hisense LCD és LED TV-k
- DIGI kábel TV
- További aktív témák...
- Apple iMac 27" 5K 2015 i5"-6500 , 5120x2880, 16GB / 256GB SSD, Radeon R9 M390 garanciával ,üzletből
- Eladó! GA-Z170X-Gaming 3 (rev. 1.0) alaplap+i5 6400+2 8gb 3200mhz ddr4 (Foxpost az árban!)
- PowerColor Red Devil RX 6600 XT - garancia 2024 november - eladó!
- Lenovo Thinkpad T420, 14" HD+ Kijelző, I5-2520M, 12GB DDR3, 256GB SSD, WIN 10, Számla, garancia
- Lenovo Thinkpad L440, 14" HD+ Kijelző, I5-4200M, 8-16GB DDR3, 500GB HDD, WIN 10, Számla, garancia
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen