Kal_el
-
Total de itens
6 -
Registro em
-
Última visita
Posts postados por Kal_el
-
-
Alguém poderia me disser como configurar o UCMailUsercontrol para provedor gmail, como chamar o UCHistórico, log de acesso e implementar o botão cancelar para fechar a tela de login do User Control?
Carlos
-
Alguém pode me disser se existe algum tutorial além do site Planeta Delphi sobre o UserControl como por exemplo:
como acessar o log do sistema; UCmail para provedor Google; UCHistórico.
Obrigado,
Carlos
-
Recentemente postei neste forum se alguém poderia me informar como criar um aplicativo de acordo com a resolução de video. Nem todo mundo tem monitor com resolução acima de 1024 x 768 px. Meus projetos são feitos em resolução 1280 x1024px e quando coloco na resolução anterior ou em 800 x 600px, Form, Botões, Labels, Edits ficam em tamanhos desproporcionais. O Statusbar fica invisível ou espremido. Encontrei este código:
procedure PTela( Sender: Tobject );
procedure PAlterar( Width, Height : Integer);
var sDispMode: DevMode;
begin
EnumDisplaySettings(Nil,0,sDispMode);
sDispMode.dmPelsWidth := Width;
sDispMode.dmPelsHeight := Height;
sDispMode.dmFields := DM_PELSWIDTH+DM_PELSHEIGHT;
try
ChangeDisplaySettings(sDispMode,0);
except
ShowMessage('Não é possivel alterar configurações de vídeo.')
end;
end;
begin
if (Screen.Width <> OldWidth ) and (Oldwidth <> 0) then
Palterar(OldWidth, OldHeight);
// Aqui testo se a resolução é 800 porque quero utilizar pro meu software resolução 800 X 600.
If (Screen.Width <> 800 ) then
if (messageDlg('Para uma boa utilização recomenda-se resolção de video de 1024 X 768. ' +
#13#13 + ' Deseja Alterar suas confirações de vídeo agora ?',
mtConfirmation, [mbYes, mbNo], 0)=mrYes) then
begin
// Vairavel que pega o valor original de inicialização ex: 1024 X 768... etc...
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
// Resolução para qual quero utilizar enquanto o programa estiver aberto…
PAlterar(1024, 768); // 800 X 600
end;
end;
-
Muito obrigado pela ajuda mas qual seria este? Eu tentei instalar o UserControl para delphi 2010 porém, dá erro de instalação que me fez desistir dele. Preciso de um controle de acesso total tipo: acesso ao menu, controle para que o usuário não insira, salve ou exclua dados da tabela entre outras coisas. Pode ser componente pago não importa.
-
Alguém já usou este componente. Quais as propriedades que ele tem? Dá para usá-lo em controle de acesso a usuários no sistema?
Navegar dentro do ListBox
em VBA
Postado
Pessoal estou anexando um projetinho no vba excel de cadastro de horários. Como podem ver ele possui duas listbox. Uma que carrega todos os horários (00:00 às 23:59) e outra com os horários já cadastrados. Quando utilizo os botões de navegação "<" e ">" consigo ver na planilha mas não no listbox de "horários cadastrados" somente os campos: textbox, combobox.
Private Sub btnproxreg_Click() Dim selecao As Integer Dim quantidade As Integer ActiveCell.Offset(1, 0).Select If ActiveCell.Offset.Value = "" Then MsgBox "Fim dos Registros", vbOKOnly End If txtlinha.Value = ActiveCell.Offset(0, 0).Value cbSentido.Value = ActiveCell.Offset(0, 1).Value cbCalendario.Value = ActiveCell.Offset(0, 2).Value txtatendimento.Value = ActiveCell.Offset(0, 4).Value quantidade = Me.ltcarrega.ListCount selecao = Me.ltcarrega.ListIndex If selecao > 0 And selecao <= quantidade - 1 Then Me.ltcarrega.Selected(selecao - 1) = True Else Me.ltcarrega.Selected(0) = False End If End Sub Private Sub btnregatual_Click() Dim selecao As Integer Dim quantidade As Integer ActiveCell.Offset(-1, 0).Select If ActiveCell.Offset.Value = 1 Then MsgBox "Primeiro Registro", vbOKOnly End If txtlinha.Value = ActiveCell.Offset(0, 0).Value cbSentido.Value = ActiveCell.Offset(0, 1).Value cbCalendario.Value = ActiveCell.Offset(0, 2).Value txtatendimento.Value = ActiveCell.Offset(0, 4).Value quantidade = Me.ltcarrega.ListCount selecao = Me.ltcarrega.ListIndex If selecao >= 0 And selecao < quantidade - 1 Then Me.ltcarrega.Selected(selecao + 1) = True Else Me.ltcarrega.Selected(0) = False End If End Sub