Pular para o conteúdo principal

Postagens

Mostrando postagens com o rótulo alterar

Página ASP para manipular dados

  Dando continuidade a nossos artigos sobre como se conectar a um banco de dados , montar um DataTable para mostrar os dados e como inserir, atualizar e remover dados ,montaremos hoje uma página ASP que nos permita utilizar a classe criada nos artigos anteriores. Em resumo teremos dois campos TextBox que receberão os novos dados a serem inseridos, editados ou removidos, três Buttons para executar uma das ações referidas acima e um GridView para apresentar as informações. No codebehind um método para carregar os dados no GridView, um método para cada Button e dois métodos para o GridView, um para mandar os dados selecionados para os TextBox e outro para a paginação. Nossa página final terá o formato apresentado na imagem abaixo, o projeto final pode ser baixado aqui .

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow;   2: Con

Manipular o Registro do Windows

Algumas vezes surge a necessidade de se utilizar os valores do registro do windows, então em primeiro lugar devemos ter em mente exatamente qual a chave devemos procurar, no nosso exemplo vamos buscar o nome do usuário logado no windows, então vamos ao exemplo: var objRegistro : TRegistry; begin vl_objRegistro := TRegistry.Create; TRY vl_objRegistro.RootKey := HKEY_CURRENT_USER; IF vl_objRegistro.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer', True) THEN Edit.Text := UpperCase( vl_objRegistro.ReadString('Logon User Name') ); FINALLY objRegistro.Free; END; end;