Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
25 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 25 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
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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