Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 31 de janeiro de 2013

DELPHI - Forçar execução de teclas - TControl

Reações: 

Para forçar a execução de uma tecla (PageUp, PageDown, Home, End) em objetos herdados de TControl, utilize:


ControlObject.Perform(WM_KEYDOWN, VK_F4, 0);
ControlObject.Perform(WM_KEYUP, VK_F4, 0);

onde VK_F4 é a tecla de atalho utilizada pelo objeto.

Ex:

Caso o item acima for utilizado em um objeto do tipo TComboBox, o mesmo irá exibir o conteudo, como se tivesse clicado na seta de seu lado direito.

DELPHI - TDateTimePicker - DroppedDown - Exibir o Calendário

Reações: 


procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
  DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0); // herdado do combo box
  DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;

//OU

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
  DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;

segunda-feira, 28 de janeiro de 2013

DELPHI - StrToDate Forçando Formatos

Reações: 


//Declarar Global:
  _AFormatSettings : TFormatSettings;

//no create do form principal:

  GetLocaleFormatSettings(GetUserDefaultLCID, _AFormatSettings);
  _AFormatSettings.DateSeparator := '/'; // (padrao brasileiro)
  _AFormatSettings.TimeSeparator := ':';
  _AFormatSettings.ShortDateFormat := 'dd/MM/yyyy'; // (padrao brasileiro)
  _AFormatSettings.ShortTimeFormat := 'HH:nn:ss';// (padrao brasileiro) HH = 22Hs, nn = Sempre Minuto (para não confundir com mounth - mês)

//utilizando:

DataSet.FieldByName('MinhaData').AsDateTime := StrToDate(VarMinhaData, AFormatSettings);

//Passei essa dificuldade com desenvolvimento em windows em português e servidor do cliente em ingles.
//Serve também a base para decimal separator , vide TFormatSettings em Ctrl+Click;

Fica a Dica!!

sábado, 26 de janeiro de 2013

LINUX - Programas Legais para Instalação no Linux (varias versões)

Reações: 

digite o comando no terminal do linux:

sudo apt-cache search crack
e veja o que aparece na lista, vários programas legais e de muita utilidade.


Abçs!!!

quarta-feira, 16 de janeiro de 2013

DELPHI - Funcionamento Delphi XE3 + Firebird

Reações: 

Ambiente testado:

Windows 2008 R2 x64
Delphi XE3 (+ Interbase x32 e x64)
Firebird 2.5 x64


Para tudo funcionar:

 - Renomeie o arquivo C:\Windows\SysWOW64\GDS32.dll para qualquer outro nome;

 - Copie a DLL FBClient.dll do diretorio: C:\Windows\SysWOW64 para dentro do mesmo diretório (ou faça um backup);
 - Renomeie a cópia criada para GDS32.dll


E Seja Feliz!

DELPHI - DecimalSeparator no Delphi XE3

Reações: 


// Forma antiga:
begin
  DecimalSeparator
end;
// Forma nova : Delphi XE3
var
  AFormatSettings : TFormatSettings;
begin
  AFormatSettings.DecimalSeparator;
end;

{o mesmo deve ser feito para os outros formatos abaixo:
    CurrencyString: string;
    CurrencyFormat: Byte;
    CurrencyDecimals: Byte;
    DateSeparator: Char;
    TimeSeparator: Char;
    ListSeparator: Char;
    ShortDateFormat: string;
    LongDateFormat: string;
    TimeAMString: string;
    TimePMString: string;
    ShortTimeFormat: string;
    LongTimeFormat: string;
    ShortMonthNames: array[1..12] of string;
    LongMonthNames: array[1..12] of string;
    ShortDayNames: array[1..7] of string;
    LongDayNames: array[1..7] of string;
    ThousandSeparator: Char;
    DecimalSeparator: Char;
    TwoDigitYearCenturyWindow: Word;
    NegCurrFormat: Byte;
} 

DELPHI - Unit JPEG Delphi XE3 / RAD XE3

Reações: 

USES
    JPEG
// DELPHI XE3
USES
    Vcl.Imaging.jpeg

//Ou pressione CTRL + Shift + A sobre a classe para exibir as units 

terça-feira, 15 de janeiro de 2013

DELPHI - Versões de Compilação - Compiler Versions

Reações: 

Segue lista as versões de compilação do Delphi (atualizada até o Delphi XE3)


http://docwiki.embarcadero.com/RADStudio/XE3/en/Compiler_Versions



Delphi conditional VER<nnn> Product Product Version Package Version
VER240 Delphi XE3 / C++Builder XE3 (Win32/Win64) 17 170
VER230 Delphi XE2 / C++Builder XE2 (Win32/Win64) 16 160
161 is the version for the five FireMonkey packages (at XE2 Update 2): fmi161.bpl, fmx161.bpl, fmxase161.bpl, fmxdae161.bpl, and fmxobj161.bpl.
VER220 Delphi XE / C++Builder XE (Win32) 15 150
VER210 Delphi 2010 / C++Builder 2010 (Win32) 14 140
VER200 Delphi 2009 / C++Builder 2009 (Win32) 12 120
VER190 Delphi 2007 for .Net * 11 110
VER180 or VER185 Delphi 2007 / C++Builder 2007 for Win32 *

11 110
VER180 Delphi 2006 / C++Builder 2006 (Win32/.Net) and Delphi/C++Builder 2007 for Win32 10 100
VER170 Delphi 2005 (Win32/.Net) 9 90
VER160 Delphi 8 for .Net 8 80
VER150 Delphi 7 (and 7.1) 7 70
VER140 Delphi 6 / C++Builder 6 6 60
VER130 Delphi 5 / C++Builder 5 5 NA
VER125 C++Builder 4 4 NA
VER120 Delphi 4 4 NA
VER110 C++Builder 3 3 NA
VER100 Delphi 3 3 NA
VER93 C++Builder 1 NA NA
VER90 Delphi 2 2 NA
VER80 Delphi 1 1 NA
VER70 Borland Pascal 7.0 NA NA
VER15 Turbo Pascal for Windows 1.5 NA NA
VER10 Turbo Pascal for Windows 1.0 NA NA
VER60 Turbo Pascal 6.0 NA NA
VER55 Turbo Pascal 5.5 NA NA
VER50 Turbo Pascal 5.0 NA NA
VER40 Turbo Pascal 4.0 NA NA

Max Gehringer