Jump to content

Transparan Açılışı Kapatmak


kapucu1971
 Share

Recommended Posts

projenin açılışında tarnsparan açılış var

on preload

handle = Application.GetWndHandle()
WinApi.SetWindowTrans(handle, 0)

on show

handle = Application.GetWndHandle()
for i=1,255 do
WinApi.SetWindowTrans(handle, i)
Application.Sleep(5)
end

yanlız ben istiyorumki bu kod sadece ilk açılışta çalışsın diğer sayfalardan ana sayfaya geçince çalışmasın iptal olsun ayrıca proje çıkışında diyalog3 ile son buluyor diyalog3 kapanırken transparan olarak kapanbilirmi yani açılıştaki transparan açılışın tersi olacak şekilde Edited by kapucu1971
Link to comment
Share on other sites

O halde Action > On Startup kısmına yaz kodları.

[codebox]
handle = Application.GetWndHandle()
WinApi.SetWindowTrans(handle, 0)
for i=1,255 do
WinApi.SetWindowTrans(handle, i)
Application.Sleep(5)
end
[/codebox]

Edited by Baba_
Link to comment
Share on other sites

Olmaz çünkü On Startup evresinde pencere daha oluşturulmuyor. En güzeli Koşul kullanmak.

Global Functions:

[quote]nKontrol1 = 0;
nKontrol2 = 0;[/quote]

Page On Preload:

[quote]if nKontrol1 == 0 then
handle = Application.GetWndHandle()
WinApi.SetWindowTrans(handle, 0)
nKontrol1 = 1;
end[/quote]

Page On Show

[quote]if nKontrol2 == 0 then
handle = Application.GetWndHandle()
for i=1,255 do
WinApi.SetWindowTrans(handle, i)
Application.Sleep(5)
end
nKontrol2 = 1
end[/quote]

[i]Kodları denemeden yazdım, çalışması lazım, sorun olursa yazarsınız.[/i]

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...