Analitcs

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

quinta-feira, 26 de setembro de 2013

DELPHI - Report Memory Leaks On Shutdown - Lista de objetos não retirados de memória ao fechar a aplicação

Reações: 

//Localizar no arquivo dpr do projeto:
begin
  ReportMemoryLeaksOnShutdown := True; // Adicionar esta Instrução
  Application.Initialize;

//Após fechar a aplicação, o sistema irá retornar uma mensagem informando quais os objetos não foram finalizados na memória. 

quarta-feira, 18 de setembro de 2013

DELPHI - PrintScreen com 2 monitores (Somente 2º Monitor) - PrintScreen with 2 monitors (Only 2nd Monitor)

Reações: 


procedure TForm1.FormCreate(Sender: TObject);
var
  Captura : TBitMap;
  procedure PrintScreen(Var Image: TBitmap);
  var
    cCanvas: TCanvas;
    I, L :  Integer;
    AreaFinal, AreaOriginal : TRect;
  begin
      try
        For I := 0 to Screen.MonitorCount -1 do
        begin
          if Screen.Monitors[I].Primary then
          begin
            L := Screen.Monitors[i].Width;
          End
          else
          if not Screen.Monitors[I].Primary then
          begin
            cCanvas        := TCanvas.Create;
            cCanvas.Handle := GetWindowDC(GetDesktopWindow);
            try
              AreaOriginal := Rect(Screen.Monitors[i].Left,
                                   Screen.Monitors[i].Top,
                                   Screen.Monitors[i].Left + Screen.Monitors[i].Width,
                                   Screen.Monitors[i].Top + Screen.Monitors[i].Height);
                                 
              AreaFinal    := Rect(0,
                                   0,
                                   Screen.Monitors[i].Width,
                                   Screen.Monitors[i].Height);
              Image.Width  := Screen.Monitors[i].Width;
              Image.Height := Screen.Monitors[i].Height;
              Image.Canvas.CopyRect(AreaFinal, cCanvas, AreaOriginal);
              Break;
            finally
              ReleaseDC(0, cCanvas.Handle);
              cCanvas.Free;
            end;
          end;
        End;
      Finally
      end;
  end;
begin
  try
    Captura := TBitmap.Create;
    PrintScreen(Captura);
    Image1.Picture.Bitmap := Captura;
  finally
    Captura.SaveToFile('c:\teste.bmp');
    FreeAndNil(Captura);
  end;
end;

segunda-feira, 9 de setembro de 2013

DELPHI - Seja um dos primeiros a conhecer o Delphi para Android

Reações: 




Embarcadero
Seja um dos primeiros a conhecer o Delphi para Android
Webinar Técnico Introdutório Exclusivo - Android e iOS

Veja em ação a nova tecnologia do RAD Studio XE5 e do Delphi XE5 para desenvolvimento móvel Android e iOS.

Saiba como migrar do desenvolvimento desktop para mobile criando aplicações verdadeiramente nativas de Android e iOS.
Inscreva-se agora e participe do webinar para:

  • Ver aplicações verdadeiramente nativas de Android e iOS construídas a partir de uma única base de código
  • Ver ferramentas de desenvolvimento verdadeiramente nativo de multidispositivos em ação
  • Conhecer os 5 erros cometidos por desenvolvedores ao migrar para mobile - e como evitá-los
  • Receber dicas de experts sobre como você pode migrar para o mobile

Max Gehringer