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

443

    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. Mikä on sun mielestä suurin kusetus maailmassa?

      Mikä on sun mielestä suurin kusetus maailmassa?
      Ikävä
      223
      14844
    2. Uusnatsien ilkivalta Joensuussa jatkuu.

      Saavat mellastaa persujen suojissa miten haluavat. Särkevät ja tuhoavat toisten omaisuutta, tähän on johtanut persujen m
      Joensuu
      20
      2216
    3. Voima biisejä, mikä antaa hyvää mieltä ja vomaannuttaa

      Mikä antaa voimaa ja hyvää mieltä, jos tuntuu hankalalta ja vaikealta, voima biisi tai biisejä?
      Ikävä
      38
      1873
    4. Kysy jotain kaivatultasi

      Tämä ketju on sitä varten.
      Ikävä
      144
      1268
    5. Huomenna sähkö maksaa jo yli 60 snt/kWh. Milloin ALV putoaa?

      Kysynkin persuilta, että milloin aiotte pudottaa sähkön arvonlisäveron kuten Marinin hallitus teki sähkön hinnan noustes
      Maailman menoa
      95
      1240
    6. Varmaan koet, ettet ole tehnyt mitään väärää

      Mutta olet sinä tehnyt.
      Ikävä
      25
      1128
    7. Huomioon ottaminen

      Oletko osannut ottaa kaivattusi tai hänen (mahdolliset) tunteet huomioon? Oletko sivuuttanut ne tarkoituksella tai vahin
      Ikävä
      30
      902
    8. Mitä ajattelet hänestä

      Millaisena pidät kaivattuasi?
      Ikävä
      81
      831
    9. Sinkkusiskoni pliis kertokaa

      Sinkkunaisena haluaisin joskus normaalia läheisyyttä ja yhdessäoloa, ilman velvoitteita. Olen vapaa ja lapseton, eikä ex
      Sinkut
      80
      723
    10. Nainen, se on sellainen juttu että kun sä vain nautit

      Niin me miehet tehdään ne työt että sä voisit nauttia. Kato siinä ku sä meet mukamas töihin suojatyöpaikkaas lämpimään t
      Ikävä
      80
      708
    Aihe