Brush.Style:=bsClear; sorunu (transparanlık) (Halloldu!)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Brush.Style:=bsClear; sorunu (transparanlık) (Halloldu!)

Mesaj gönderen CemErgun »

arkadaşlar şimdi bu Brush.Style:=bsClear; yapıyorum fakat formun üstünde bi program gezdirince o programın kalıntıları formun üstünde kalıyor ne yapsam düzeltemedim yardımlarınızı bekliyorum

resim :

Resim
En son CemErgun tarafından 02 Haz 2009 04:09 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
Kullanıcı avatarı
CiTiZEN
Üye
Mesajlar: 1163
Kayıt: 06 Oca 2008 04:15

Re: Brush.Style:=bsClear; sorunu (transparanlık)

Mesaj gönderen CiTiZEN »

formda panel üzerinde mi gerçekleştiriyosun işlemleri yoksa direkt formda mı panel ise tam emin değilim ama fullrepaint işini görebilir
UWESIS CORPORATION
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Re: Brush.Style:=bsClear; sorunu (transparanlık)

Mesaj gönderen CemErgun »

onedir? ben brush.style ı form create olayının altında yaptırıyorum, burda mesela o pencereyi form üstünde gezdirince öyle kalıyor..
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
Kullanıcı avatarı
CiTiZEN
Üye
Mesajlar: 1163
Kayıt: 06 Oca 2008 04:15

Re: Brush.Style:=bsClear; sorunu (transparanlık)

Mesaj gönderen CiTiZEN »

birde form üzerinde bir panel koy align i alclient yap formu kaplar daha sonra altında gözükmesini istediğin görseller varsa (yoksada yapabilirsin denemekte fayda var) şu 3 ayarı etkinleştir

-CTL3D
-Parent DTL3D
-Parent BackGround

daha sonra yine panelin özelliği olan fullrepaint i de etkinleştir birde öyle dene panel ile ilgili sorun olursa kenarlıklar felan olmasın dersen aynı ayarlar ile scrollbox ı dene birde scrollbox ın border style ını bsnone yaptığın zaman kenarlıkları ortadan kalkar çerçevesiz bir form veya image gibi davranır

kolay gelsin
UWESIS CORPORATION
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Re: Brush.Style:=bsClear; sorunu (transparanlık)

Mesaj gönderen CemErgun »

panel transparan değil?
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
Kullanıcı avatarı
CiTiZEN
Üye
Mesajlar: 1163
Kayıt: 06 Oca 2008 04:15

Re: Brush.Style:=bsClear; sorunu (transparanlık)

Mesaj gönderen CiTiZEN »

yukardaki ayarları yaptın mı???
UWESIS CORPORATION
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Re: Brush.Style:=bsClear; sorunu (transparanlık)

Mesaj gönderen CemErgun »

yaptım..

resim:

Resim
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen CemErgun »

lütfen yardım..
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
Kullanıcı avatarı
CiTiZEN
Üye
Mesajlar: 1163
Kayıt: 06 Oca 2008 04:15

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen CiTiZEN »

delphi versiyonunu ve ayarları yaptıktan sonraki ekran görüntüsünü yollayabilirmisin küçük bir resim olsa yeter ben o ayarları yaptıktan sonraki ekran görüntüm:
example.jpg
example.jpg (28.19 KiB) 4994 kere görüntülendi
UWESIS CORPORATION
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen CemErgun »

delphi versyonu 7

bütün ayarları yaptım

hala böyle transparan değil masa üstü falan görünmüyor form arkasından

Resim
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
Kullanıcı avatarı
CiTiZEN
Üye
Mesajlar: 1163
Kayıt: 06 Oca 2008 04:15

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen CiTiZEN »

yanlış anlaşılma olmuş masaüstün görüntüleyeceğini söylememişsin bende arkaplanda bir fotograf görüntüleyeceğini düşünerek o şekilde yazmıştım formun tamamen şeffaf olması için;

kullandığın sistem win xp ve delphi 7 ise form transparan rengi olarak (transparant color) fushia, form transparanlığını aktif ve formun renginide fushia ayarlayıp dene.Brush style özelliği ile oynarsan iz kalma olasılığı oldukca yüksek (şu anda deneyemiyorum)
eger vista kullanıyorsan delphi 2007 ile windows aero temasında formun GalssFrame özelliğini enable et sheetofglass efektinide aktifleştirip dene (bu olayı denedim sorun yok gibi)

birde bunları dene

kolay gelsin.
UWESIS CORPORATION
qamyoncu
Üye
Mesajlar: 266
Kayıt: 12 Tem 2008 04:30

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen qamyoncu »

Yapmak istediğiniz formunuzun arkasında varolanı görüntülemek ise; formun alphablend özelliğini true yapıp, alphablendvalue değerini 100 civarına çekerseniz transparan bir form oluşturmuş olursunuz.
Batuhan TAŞDÖVEN
'Yükseldikçe küçülen bir uçurtma..'
Kullanıcı avatarı
CiTiZEN
Üye
Mesajlar: 1163
Kayıt: 06 Oca 2008 04:15

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen CiTiZEN »

o zaman border, sistem butonları da şeffaf olmakta, sanırım arkadaş sadece formun iç kısmını yapmak istiyor ama bende tam olarak anlamadım
UWESIS CORPORATION
Kullanıcı avatarı
CemErgun
Üye
Mesajlar: 91
Kayıt: 05 May 2009 11:31
Konum: antalya

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen CemErgun »

şimdi transparan bi resmim var (png) bunu formuma koyuyorum, formun görünmesini istemiyorum sadece resmimin görünmesini istiyorum açıklayıcı oldumu :(
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
ibrahimcoban
Üye
Mesajlar: 163
Kayıt: 11 Eki 2005 10:44
İletişim:

Re: Brush.Style:=bsClear; sorunu (transparanlık) (Hallolmadı:( )

Mesaj gönderen ibrahimcoban »

Sanırım bu işini görür.
http://torry.net/authorsmore.php?id=7189

Daha doğrusu Windows UpdateLayeredWindow ile sadece resim çizmeyi destekliyor,
WM_PAINT gibi olayları desteklemiyor. Desteklemesi için tüm bileşenlerin tekrar
kendin yazman gerekiyor. Bununla ilgili yakında open source bir bileşen seti yayınlayacağım. Tabi
işlerimden fırsat olunca :)
http://ibrahimcoban.com/
Lazarus, Kol-Ce,Delphi ve C#
Cevapla