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

420

    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. Suomen markka otettiin käyttöön vuonna 1860

      Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli
      Maailman menoa
      34
      9188
    2. "Mä elän vieläkin"

      Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn
      Tampere
      27
      3666
    3. Yksityinen sektori aiheuttanut Suomen taantuman

      Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi
      Maailman menoa
      43
      2214
    4. Pate Mustajärvi on kuollut

      Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html
      Maailman menoa
      104
      2031
    5. Kylläpä asiat onkin nyt hyvin verrattuna Sannan aikaan

      Sannan aikana aähkön alv oli 10%, nyt 25,5%. Ajatelkaa nytkin pörssisähkö on ilmaista, keskellä talvea! Bensan hinta on
      Maailman menoa
      17
      1870
    6. Miten ikinä kelpaisin sulle

      Sinä saat niiltä muilta naisilta paljon enemmän, mitä minulta... Tai mihin minä olisin valmis. Enkä edes olisi niin tait
      Ikävä
      12
      1465
    7. Edes vitamiinit eivät taanneet loputonta elämää

      Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.
      Maailman menoa
      24
      1298
    8. Kuinka kauan vielä

      jaksetaan vastustaa toisiamme?
      Ikävä
      71
      1187
    9. Esko ja Martina viettävät joulua

      Entisen avioparin joulunvietto on ylittänyt IS uutiskynnyksen
      Kotimaiset julkkisjuorut
      168
      866
    10. Missä palaa?

      K-Market sauhuaa missä päin Poria?
      Pori
      67
      815
    Aihe