Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
5 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 5 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

Estatísticas
Temos 6991 usuários registrados
O último usuário registrado atende pelo nome de cpmacedo

Os nossos membros postaram um total de 9 mensagens em 3 assuntos

Form semi-transparente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Form semi-transparente

Mensagem por Marcos Guedes em 3/11/2009, 16:42

Para quem tiver interesse:
Código:
oForm = CREATEOBJECT("Tform")
oForm.Visible=.T.
READ EVENTS
 
DEFINE CLASS tform As Form
#DEFINE LWA_COLORKEY 1
#DEFINE LWA_ALPHA 2
#DEFINE GWL_EXSTYLE -20
#DEFINE WS_EX_LAYERED 0x80000
    Autocenter=.T.
    Caption="Transparent Form"
    ShowWindow=2  && critical
    TransparentModeSet=.F.
 
    ADD OBJECT cmdSet As CommandButton WITH Left=10, Top=10,;
        Height=27, Width=80, Caption="Set"
 
    ADD OBJECT cmdClear As CommandButton WITH Left=100, Top=10,;
        Height=27, Width=80, Caption="Clear"
 
    ADD OBJECT chRgb As CheckBox WITH;
        Left=10, Top=50, Autosize=.T., BackStyle=0,;
        Caption="ColorRef", Value=.F.
 
    ADD OBJECT lblRgb As Label WITH;
        Left=100, Top=50, Autosize=.T., Caption="Rgb:"
 
    ADD OBJECT txtRgb As TextBox WITH Left=140, Top=48,;
        Width=80, Height=24, Value=RGB(192,192,192)
 
    ADD OBJECT cmdRgb As CommandButton WITH Left=220, Top=48,;
        Width=24, Height=24, Caption="..."
 
    ADD OBJECT chAlpha As CheckBox WITH;
        Left=10, Top=80, Autosize=.T., BackStyle=0,;
        Caption="Alpha", Value=.T.
 
    ADD OBJECT lblAlpha As Label WITH;
    Left=100, Top=80, Autosize=.T., Caption="Value:"
 
    ADD OBJECT txtAlpha As Spinner WITH Left=140, Top=78,;
        Width=80, Height=24, Value=128,;
        SpinnerLowValue=0, SpinnerHighValue=255,;
        KeyboardLowValue=0, KeyboardHighValue=255
 
PROCEDURE Init
    THIS.declare
    THIS.txtRgb.Value=THIS.BackColor
 
PROCEDURE Destroy
    THIS.ClearTransparentMode
    CLEAR EVENTS
 
PROCEDURE SetTransparentMode
    LOCAL nExStyle, nRgb, nAlpha, nFlags
    WITH THIS
        nExStyle = GetWindowLong(.HWnd, GWL_EXSTYLE)
        nExStyle = BITOR(nExStyle, WS_EX_LAYERED)
        = SetWindowLong(.HWnd, GWL_EXSTYLE, nExStyle)
 
        IF NOT .chRgb.Value AND NOT .chAlpha.Value
            .chAlpha.Value=.T.
        ENDIF
 
        nRgb = IIF(.chRgb.Value, .txtRgb.Value, 0)
 
        nAlpha = IIF(.chAlpha.Value, .txtAlpha.Value, 0)
 
        nFlags = IIF(.chRgb.Value, LWA_COLORKEY, 0) +;
            IIF(.chAlpha.Value, LWA_ALPHA, 0)
 
        = SetLayeredWindowAttributes(.HWnd, m.nRgb,;
            m.nAlpha, m.nFlags)
    ENDWITH
 
PROCEDURE ClearTransparentMode
    LOCAL nExStyle
    nExStyle = GetWindowLong(THIS.HWnd, GWL_EXSTYLE)
    nExStyle = BITXOR(nExStyle, WS_EX_LAYERED)
    = SetWindowLong(THIS.HWnd, GWL_EXSTYLE, nExStyle)
 
PROCEDURE cmdSet.Click
    ThisForm.SetTransparentMode
    ThisForm.TransparentModeSet=.T.
 
PROCEDURE cmdClear.Click
    ThisForm.ClearTransparentMode
    ThisForm.TransparentModeSet=.F.
 
PROCEDURE chRgb.Click
    IF ThisForm.TransparentModeSet
        ThisForm.SetTransparentMode
    ENDIF
 
PROCEDURE txtRgb.When
RETURN .F.
 
PROCEDURE cmdRgb.Click
    LOCAL nRgb
    nRgb = GETCOLOR()
    IF nRgb <> -1
        ThisForm.txtRgb.Value = nRgb
        IF ThisForm.TransparentModeSet AND ThisForm.chRgb.Value
            ThisForm.SetTransparentMode
        ENDIF
    ENDIF
 
PROCEDURE chAlpha.Click
    IF ThisForm.TransparentModeSet
        ThisForm.SetTransparentMode
    ENDIF
 
PROCEDURE txtAlpha.InteractiveChange
    IF ThisForm.TransparentModeSet;
        AND ThisForm.chAlpha.Value
        ThisForm.SetTransparentMode
    ENDIF
 
PROCEDURE declare
    DECLARE INTEGER GetWindowLong IN user32;
        INTEGER hWindow, INTEGER nIndex
 
    DECLARE INTEGER SetWindowLong IN user32;
        INTEGER hWindow, INTEGER nIndex, INTEGER dwNewLong
 
    DECLARE INTEGER SetLayeredWindowAttributes IN user32;
        INTEGER hWindow, INTEGER crKey,;
        SHORT bAlpha, INTEGER dwFlags
 
ENDDEFINE

Fonte: (Copie e cole em seu navegador)
news2news.com/vfp/?example=453

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum