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

473

Äänestä

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kelekkakisat

      Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
      Nivala
      11
      5994

    2. Kuinka pitkä välimatka

      on teidän kotien välillä?
      Ikävä
      88
      3003

    3. Eikö me voitais

      Vaan harrastaa seksiä kun muusta ei tule mitään
      Ikävä
      46
      2862

    4. Onko kaivattusi

      …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
      Ikävä
      53
      2481

    5. Aivan kauheaa

      Veikö koskiuoma taas ihmishengen? Se pitää kieltää!
      Imatra
      14
      2423

    6. Epäilen ettet edes

      Kehtaisi liikkua kanssani.
      Ikävä
      46
      2314

    7. Oletko huomannut

      Yhden muutoksen?
      Ikävä
      25
      2281

    8. Pitäis vaan lopettaa

      Sinun kanssa yhteydenpito. Alkaa vaan haluamaan enemmän ja tuskin lopulta mikään kohtaisi. Ja ikävä vaan kasvaa ja lähei
      Ikävä
      13
      2180

    9. Ikävä uutinen uudesta Unelmia Italiassa -kaudesta

      Unelmia Italiassa -sarja on ollut supersuosittu ja uutta kautta on odotettu. Nyt on tullut se aika, että TV-katsojat pää
      Tv-sarjat
      7
      1933

    10. Salatut elämät: Lola Odusoga -paljastus - Tämä suosii tiettyjä Salkkarit-faneja!

      Salatut elämät vetää katsojia tv-ruudun äärelle jaksosta, kaudesta ja vuodesta toiseen. Tähän mennessä sarjaa on nähty j
      Salatut elämät
      8
      1871
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt