Vem aí mais um Delphi Tour, confira as cidades participantes

Fala pessoal apaixonada por Delphi, mais uma novidade para todos, o lançamento do Rad Studio 10.2 Tokyo, entre as novidade estão:

  • Novo Compilador Delphi Linux 64 bit: A mais nova plataforma do Delphi, com suporte para aplicações server side como DataSnap, WebBroker, RAD Server, integração com Apache, FireDAC e muito mais.
  • Novo Suporte Multi-Tenancy no RAD Server: O Backend perfeito para apps Delphi ou C ++ Builder. A partir de agora, uma única instância do RAD Server pode suportar vários tenants isolados.

  • Criação e Distribuição de Apps para Windows Store: Suporte incomparável para a plataforma Windows, empacotamento de apps Win32/Win64 no formato Universal Windows Platform, suporte para distribuição através da Windows 10 Store.

  • C++Builder mais turbinado do que nunca: Alto desempenho para compilação em C++, depuração e suporte à memória estendida para o Linker.

  • e muito mais…

O evento é imperdível se você é um apaixonado por delphi, já fiz minha inscrição, e você está esperando o que, confira a cidades e inscreva-se:

http://www.embarcaderobr.com.br/tour/

Anúncios

CodeRage Brasil III

{678ddb66-b691-40e1-aa57-d606aede4200}_CodeRage_Brasil_3_banner_registrationPage

A Embarcadero apresenta: CodeRage Brasil III – uma conferência online, totalmente técnica e gratuita voltada para o desenvolvimento de aplicações altamente conectadas para Windows, Mac, iOS, Android, gadgets e tecnologias vestíveis.

Durante um dia inteiro, os palestrantes falarão TUDO sobre desenvolvimento sem rodeios. Somente estratégias e dicas práticas sobre como você pode modernizar aplicações existentes Windows e criar aplicações altamente conectadas para dispositivos móveis, gadgets e tecnologias vestíveis. IMPERDÍVEL!

Confira os temas que serão abordados neste mega evento:

  • Modernização de aplicações Delphi
  • Novos Recursos em Object Pascal e RTTI
  • Programação Paralela: Como criar Aplicações Responsivas com Tasks, Futures e Parallel Loops
  • Desenho de aplicações Multi-Device com FireUI e TMultiView
  • Usando Efetivamente List Controls em aplicações móveis
  • Interbase XE7 e o novo motor de controle de mudanças
  • App Tethering para VCL/FMX usando WiFi e Bluetooth
  • A biblioteca REST Client
  • DataSnap com FireDAC e Apache

Oferta especial: Inscreva-se no CODERAGE BRASIL III e ganhe benefícios especiais na compra do RAD Studio, Delphi ou C++ Builder XE7 até 15 de Março de 2015.Clique aqui para mais informações

DICA: Como organizar um código (DELPHI)

Visando melhorar o nosso código, vou mostrar como você pode usar uma diretiva para que isso se torne possível, para iniciar um bloco devemos usar {$REGION  ‘NOME’} e para encerrar o bloco devemos utilizar {$ENDREGION}, segue abaixo um exemplo:

{$REGION ‘COLOQUE AQUI UM NOME’}

for j := 0 to

StatusBar1.Panels.Count – 1 do

begin

x := x + StatusBar1.Panels[j].Width;

{$REGION ‘COLOQUE AQUI UM NOME’}

if mpt.X < x then

begin

panel := j;

Break;

end;

{$ENDREGION}

end;

{$ENDREGION}

com essa pequena dica seu código ficara mais organizado.

Hack’nFortes 2015

Data do evento: 07/02/2015

Nossa maratona de programação desafia desenvolvedores a solucionarem um problema, trabalhando em equipe e construindo novas ideias. Aqui, o uso da tecnologia aproxima e inspira a construir um mundo mais digital! Na terceira edição do #Hack’nFortes, vamos programar usando #Delphi. Afinal, o Delphi está melhor que nunca!

DATA, HORA E LOCAL DO EVENTO

07/02/2015 a partir das 08h30, na sede da Fortes Informática (Rua Antônio Fortes, 330 – Luciano Cavalcante – Fortaleza/CE)

EQUIPES

Dividiremos os participantes em duas equipes que durante esse dia disputarão para construir o projeto campeão.

PLATAFORMA DE DESENVOLVIMENTO

Será usado Delphi XE6. Já temos todo o ambiente instalado e preparado para você.

O CLIENTE

Nosso cliente, Zé da Graxa, precisa de sua ideia para automatizar e gerenciar melhor o trabalho de sua oficina mecânica. É importante agradá-lo pois ele vai decidir quem leva o prêmio.

JUNK FOOD E DIVERSÃO

A maratona será regada a RedBull, Pizza, Salgadinho e Café, tudo por nossa conta.

R$ 500,00

A equipe que se destacar mais entregando valor e atendendo as necessidades do cliente vai levar o prêmio de quinhentos reais.

Função Inputbox com data

function InputBoxData(ACaption, APrompt: string): string;

var
form: TForm;
Prompt: TLabel;
Edit: TMaskEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
Value: string;
I: Integer;
Buffer: array [0 .. 51] of Char;
begin
Result := ”;
form := TForm.Create(Application);
with form do
try
Canvas.Font := Font;
for I := 0 to 25 do
Buffer[I] := Chr(I + Ord(‘A’));
for I := 0 to 25 do
Buffer[I + 26] := Chr(I + Ord(‘A’));
GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(DialogUnits));
DialogUnits.X := DialogUnits.X div 52;
BorderStyle := bsDialog;
Caption := ACaption;
ClientWidth := MulDiv(180, DialogUnits.X, 4);
ClientHeight := MulDiv(63, DialogUnits.Y, 8);
Position := poScreenCenter;
Prompt := TLabel.Create(form);
with Prompt do
begin
parent := form;
AutoSize := True;
Left := MulDiv(8, DialogUnits.X, 4);
Top := MulDiv(8, DialogUnits.Y, 8);
Caption := APrompt;
end;
Edit := TMaskEdit.Create(form);
with Edit do
begin
parent := form;
Left := Prompt.Left;
Top := MulDiv(19, DialogUnits.Y, 8);
Width := MulDiv(164, DialogUnits.X, 4);
MaxLength := 255;
EditMask := ‘!99/99/0099;1;’;
SelectAll;
end;
ButtonTop := MulDiv(41, DialogUnits.Y, 8);
ButtonWidth := MulDiv(50, DialogUnits.X, 4);
ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
with TButton.Create(form) do
begin
parent := form;
Caption := ‘OK’;
ModalResult := mrOk;
Default := True;
SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
end;
with TButton.Create(form) do
begin
parent := form;
Caption := ‘Cancel’;
ModalResult := mrCancel;
Cancel := True;
SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
end;
if ShowModal = mrOk then
begin
Value := Edit.Text;
Result := Value;
end;
finally
form.Free;
form := nil;
end;
end;