Läpinäkyvä pääikkuna

Uuppi

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ä.

4

489

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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..
      • 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

    1. "Miko Bergbom, miksi euron bensa maksaa kaksi euroa?"

      Valtakunnan suurin kaupallinen porvarimediakin kyselee nyt miksi perussuomalaisset ovat rikkoneet tärkeimmän vaalilupauk
      Maailman menoa
      195
      6711
    2. SDP: "On hyvä että bensiinin hinta nousee"

      Suurin oppositiopuolue SDP on mielissään siitä, että bensan hinta nousee suomalaisille. https://www.iltalehti.fi/polit
      Maailman menoa
      194
      3446
    3. Mistä 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äytti
      Jyväskylä
      26
      3209
    4. "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. –
      Maailman menoa
      165
      2150
    5. Partamies hoi!

      En aio häiritä jos on mukavampi olla hiljaa tai jos siellä kaukana sinun paikkakunnalla on jo joku hoito. Miten olisi re
      Ikävä
      40
      1727
    6. SDP haluaa tappaa maaseudun - bensan hinta mahdollisimman korkealle

      Maaseudulla auto on välttämätön asia, ja lähes kaikilla on bensa-autot. Kuinka tyhmä pitää olla jos äänestää demareita?
      Maailman menoa
      85
      1687
    7. Outoa toimintaa Tuhannen taalan yrittäjällä

      Ihmiset ympäri Suomen on kyselleet, että miksi tämä yrittäjä hoitaa ilkivalta-asiaa netissä kun se kuuluisi poliisille.
      Haapavesi
      116
      1414
    8. Martina Aitolehti pistää luun kurkkuun Erikoisjoukot-kouluttajalle - Ei usko tätä!

      Martina Aitolehti on persoona, joka herättää monessa tunteita. Hänen yksityiselämänsä on noussut kohuotsikoihin mm. eläm
      Suomalaiset julkkikset
      14
      1046
    9. Etkö vieläkään ole löytänyt ketään??

      😅😅😅😅😅😅😅
      Ikävä
      114
      918
    10. Riiko Sakkinen läväyttää totuuden - Tästä syystä keskeytti Farmi-kuvaukset

      Riikon toiminta hämmensi... Kuvataiteilija teki yllättävän päätöksen ja halusi lopettaa Farmi Suomi -leikin kesken. Rii
      Tv-sarjat
      16
      905
    Aihe