Minulla on pääikkunan taustakuvana kuva (TImage) joka on soikea ja kuvan ulkopuolella näkyy pääikkunan taustaväri (clBtnFace). Kuinka saan pääikkunan taustasta täysin läpinäkyvän sillein että taustana on pelkkä kuva? jos käytän TransparentColoria niin kuvan reunalle jää silti vähän taustaväriä.
Läpinäkyvä pääikkuna
Uuppi
4
489
Vastaukset
- sdh657hj
procedure TForm1.FormCreate(Sender: TObject) ;
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height) ;
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn
(X, Y, X ClientWidth, Y ClientHeight) ;
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF) ;
X := X Button1.Left;
Y := Y Button1.Top;
ButtonRgn := CreateRectRgn
(X, Y, X Button1.Width, Y Button1.Height) ;
CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR) ;
SetWindowRgn(Handle, FullRgn, True) ;
end;
// löytyi tuolta http://delphi.about.com/cs/adptips1999/a/bltip0899_5.htm - Delphikoodari..
Muistaakseni Transparent väri pitää määritellä erikseen vielä formin ominaisuuksissa.
Toinen vaihtoehto on Layered Window
Kannattaa käyttää myös png-kuvia, joissa voi määritellä läpinäkyvyysarvot.
http://www.swissdelphicenter.ch/torry/showcode.php?id=924- dtoo
että tietääkseni delphi ei anna suoraa tukea .png kuville, mutta kirjastoja löytyy, muuten tuo menee ihan transparent color arvon mukaan, tosin en suosittele kyseistä tapaa ellei tiedä mitä tekee, perustelen sillä että monet pilaavat hyvän, kenties hyödykkäänkin ohjelman turhalla halulla tehdä siitä ns edistyneesti näyttävä, toivottavasti olen väärässä ja toivotan onnea mitä sitten teetkään :)
- Delphikoorari..
dtoo kirjoitti:
että tietääkseni delphi ei anna suoraa tukea .png kuville, mutta kirjastoja löytyy, muuten tuo menee ihan transparent color arvon mukaan, tosin en suosittele kyseistä tapaa ellei tiedä mitä tekee, perustelen sillä että monet pilaavat hyvän, kenties hyödykkäänkin ohjelman turhalla halulla tehdä siitä ns edistyneesti näyttävä, toivottavasti olen väärässä ja toivotan onnea mitä sitten teetkään :)
Itse sovellus kannattaa pitää mielestäni normaalina, ehkä vähän liukuveräjä voi käyttää (nykyään muodikasta), mutta esim. "Splash screen" kuvan voi hyvin topteuttaa tuolla png-layered Windows systeemillä sovelluksen käynnistyksen yhteydessä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
"Miko Bergbom, miksi euron bensa maksaa kaksi euroa?"
Valtakunnan suurin kaupallinen porvarimediakin kyselee nyt miksi perussuomalaisset ovat rikkoneet tärkeimmän vaalilupauk635454Olen Päivi Räsäsen puolella
En oe uskovainen enkä kristillisdemograattikaan mutta onhan tuo naurettavaa laittaa Päivi syylliseksi omasta mielipit6063528SDP: "On hyvä että bensiinin hinta nousee"
Suurin oppositiopuolue SDP on mielissään siitä, että bensan hinta nousee suomalaisille. https://www.iltalehti.fi/polit842929Nuhteettomia edustajia
Korkein oikeus tuomitsi Päivi Räsäsen kiihottamisesta kansanryhmää vastaan Kansanedustaja Päivi Räsästä (kd.) vastaan no2872759"Mieheksi ja naiseksi hän heidät loi."
Räsäsen tuomio on iso harppaus woke-valtioksi. – Tässä maassa on nyt selvästi kiellettyjä sanoja ja ajatusrikoksia. –961820Päivi Räsänen tuomittiin rikoksesta...
...kiihottamisesta kansanryhmää vastaan. Tuskin tajuaa silti vieläkään, että raamattu ei ole lakikirja. https://yle.fi/a6601750Korkein oikeus antaa Räsäselle vastauksen klo 9. Varmaan vapautus
Miten veikkaat että Päiville käypi? Päivi pitää lehdistökonferenssin klo 9.30. Koko media on läsnä. 7 v taistelu on ohii4851424Partamies hoi!
En aio häiritä jos on mukavampi olla hiljaa tai jos siellä kaukana sinun paikkakunnalla on jo joku hoito. Miten olisi re241366Mistä ihmeestä sitä viirasi?
Oliko tuo Timo Kalima hyvä silmälääkäri? Mikähän hänen silmiinsä osui kun piti mennä tuollaista tekemään. Kaikki näytti141331Meneekö Nanna Karalahden jumppafirma konkurssiin?
Loppuiko rahat Jeren pidätyksen myötä? Karita Tykkä hakee saataviaan lähes 60 000 e Että semmosta . . .183927