Um conhecimento só é válido quando compartilhado.

quinta-feira, 16 de fevereiro de 2017

TAXTaskDialog - BrComponentes

Seja bem vindo, e ótima leitura. 
A partir da versão do Delphi 2007, foi adicionado na VCL o TTaskDialog, o qual só terá o efeito visual se você estiver rodando sua aplicação no Windows Vista ou superior. Nós desenvolvedores, queremos sempre coisas novas para podermos repassar para os clientes e conquistá-los sempre mais com um produto de qualidade, visual atraente e facilidade, por isso desenvolvi o TAXTaskDialog. 
O TAXTaskDialog é um componente que dará a sua aplicação uma melhor aparência, independente da versão do Windows que você estiver rodando sua aplicação usando ele, ele é um componente não visual, e pode ser parametrizado através do Object Inspector na IDE do delphi, tanto quanto via código. Disponibilizei a um tempo atras, no meu canal ORMBr no Instagram, canal esse que tratamos sobre um ORM criado por mim, e que é open source, quem tiver interesse em participar o link é https://t.me/canalormbr e também temos o grupo ORMBr onde discutimos e trocamos conhecimentos o link é https://t.me/ormbr, agora criei um repositório no Git e disponibilizei os fontes juntamente com o pacote de instalação do componente TAXTaskDialog, minha ideia é depois mudar seu nome para TBrTaskDialog, e nesse repositório disponibilizar uma suite de componentes bons juntamente com seus fontes, assim quem tiver interesse poderá baixa-los e usa-los, junto com os fontes do TAXTaskDialog, seguirá um demo, ele mostrará além de vários usos as duas formas de parametrização, via Object Inspector e via código. 
A baixo mostro um exemplo via código e uma imagem do resultado.
var
TskDlg: TAxTaskDialog;
begin
 TskDlg := TAxTaskDialog.Create(nil);
 try
  TskDlg.TitleColor := clLime;
  TskDlg.TitleFont.Color := clBlack;
  TskDlg.Caption := 'Sistemas Axial';
  TskDlg.Title:= 'Tem certeza que deseja entrar em alteração?';
  TskDlg.Text := 'Esta opção entra em ateração do registro selecionado';
  TskDlg.FooterText := 'Selecione uma opção ou cancele a operação';
  TskDlg.CommonButtons := [tcbNone];
  TskDlg.MainIcon := tdiQuestion;
  TskDlg.FooterIcon := tdiWarning;
  TskDlg.Flags := [tfUseCommandLinks];
  TskDlg.MetroStyle.TaskDialogMetro := True;
  TskDlg.MetroStyle.TaskDialogColor := clGray;
  TskDlg.MetroStyle.TaskDialogFontColor := clWindow;

  with TaxTaskDialogButtonItem(TskDlg.Buttons.Add) do
  begin
   Caption := '&Sim';
   CommandLinkHint := 'Esta opção você entrará no modo de edição';
 end;
 with TaxTaskDialogButtonItem(TskDlg.Buttons.Add) do
 begin
  Caption := '&Não';
  CommandLinkHint := 'Esta opção você não entrará no modo edição';
 end;
 TskDlg.Execute;

 if TskDlg.ButtonResult <> 0 then
   Abort;
 finally
  TskDlg.Free;
 end;

Abaixo segue outra imagem do resultado em execução do TAXTaskDialog bem completo, sua parametrização foi feita via IDE do Delphi no Object Inspector, vocês poderão analisa-la no demo.  
 O Link do repositório git é https://bitbucket.org/ProjetosBr/componentesbr

0 comentários :

Postar um comentário

SAC Automação Delphi e Lazarus

SAC Automação Delphi e Lazarus
Assine nosso SAC Automação Delphi e Lazarus para ter suporte técnico especializado em desenvolvimento

Quem sou eu

Minha foto

Proprietário/Administrador de Empresa em TI (Tecsis Informática)
  • Autor dos projetos OpenSource ORMBr, e DBCBr
  • Autor dos componentes ACBrInstall, ACBrSped, ACBrPaf, ACBrInStore, ACBrDownload.

Total de visualizações

Postagem em destaque

ORMBr - Mapeamento objeto-relacional

Mapeamento objeto-relacional ( ou ORM, do inglês: Object-relational mapping ) é uma técnica de desenvolvimento utilizada para reduzir...

Todo os direitos reservados.. Tecnologia do Blogger.

Seguidores

Google+ Seguindores