Tem fontes da minigui que fico confuso
Enviado: 04 Set 2025 19:24
Fico confuso com esse fonte
Pequeno e confuso.
A princípio não teria como fazer isso com classe.
Mas .....
Pega o handle da janela Main.
Procura na lista se tem elemento com o handle, digamos que encontra o elemento 5.
E aí, usa o conteúdo do elemento 5.
Se não encontrar, daria erro.
O que deixa confuso ?
Tem o handle, procura o handle, e usa o handle.
Procurou pra que ? se já tem ?
Digamos que o array é _hmg_sysdata := { 10, 20, 30, 40, 50 }
procura o 50, é o elemento 5
usa _hmg_sysdata[ 5 ], que contém 50
Então... porque procurar 50, se vai usar 50, faz sentido ?
Até pensei na hipótese do zero, mas daria erro.
Se não encontrar é ZERO, e _HMG_SYSDATA[ ZERO ] daria erro.
Ainda não mexi nesse fonte, está todo original ainda.
Se eu tivesse mexido, acharia que fiz coisa errada.
Código: Selecionar todos
*--------------------------------------------------------*
Static Procedure MsgBalloon( cMessage, cTitle )
*--------------------------------------------------------*
Local i := Ascan( _HMG_SYSDATA, GetFormHandle("Main") )
Default cMessage := "Prompt", cTitle := PROGRAM
ShowNotifyInfo( _HMG_SYSDATA[i], .F. , NIL, NIL, NIL, NIL )
ShowNotifyInfo( _HMG_SYSDATA[i], .T. , LoadTrayIcon( GetInstance(), ;
"Speak1.ico" ), "", cMessage, cTitle )
Return
A princípio não teria como fazer isso com classe.
Mas .....
Pega o handle da janela Main.
Procura na lista se tem elemento com o handle, digamos que encontra o elemento 5.
E aí, usa o conteúdo do elemento 5.
Se não encontrar, daria erro.
O que deixa confuso ?
Tem o handle, procura o handle, e usa o handle.
Procurou pra que ? se já tem ?
Digamos que o array é _hmg_sysdata := { 10, 20, 30, 40, 50 }
procura o 50, é o elemento 5
usa _hmg_sysdata[ 5 ], que contém 50
Então... porque procurar 50, se vai usar 50, faz sentido ?
Até pensei na hipótese do zero, mas daria erro.
Se não encontrar é ZERO, e _HMG_SYSDATA[ ZERO ] daria erro.
Ainda não mexi nesse fonte, está todo original ainda.
Se eu tivesse mexido, acharia que fiz coisa errada.