News
This site was updated with Apprehend version 6.1 on April 9, 2012. Support for Delphi 5 – Delphi XE2 added by way of packages for each. To use the component in any Delphi version use the supplied packages or if a package is not available create a new package and add the Pascal files to the package. Compile and install the package, then add the Apprehend source folder to the library path in the Delphi IDE.
What’s New
Version 6.1 – April 9, 2012
• Bug Fix for Delphi 7, Delphi 2007 –
-ASGCapture.pas- make D7 compatable – unfortunately SetParentComponent is protected in D7
-Changed all references to SetParentComponent ( xxx ); to frmPosition.Parent := xxx;
• Bug fixes TImage Demo
-To provide for a canvas all images loaded into TImage are converted to bitmap. Saving did not convert the bitmap to the native graphic format before saving. All TImage.Picture.Bitmaps are converted and saved as the specified graphic format.
-The image fit code was missing for captures and open image
-Dimensions now displayed with locale default thousand separator
• Bug fixes PageControlTImageDemo – minor bug fixes
• Added Apprehend TImagePainter Demo
Thank you for the new updates and will you support firemonkey platform?
You are welcome. Any problems? Which compiler are you using? We do not plan on adding Firemonkey support at this time.
Hi i compiled in XE4 but doesen´t hide Form is there a work around for that?
Thank´s good work
Try calling this:
procedure TForm1.Desktop1Click(Sender: TObject);
var iBitmap: TBitmap; iFileName: string; iExtension: string;
begin
WindowState := wsMinimized;
iBitmap := ASGScreenCapture1.CaptureDesktop;
try
Image1.Picture.Assign(iBitmap);
finally
iBitmap.Free;
end;
with ScrollBox1 do
begin
HorzScrollBar.range := Image1.Picture.Width;
VertScrollBar.range := Image1.Picture.Height;
end;
WindowState := wsNormal;
end;
I am sorry but if this does not work, I do not have XE4 to test it so I can not fix the problem.
Bill
Like this work´s for me ….only in some formes i have
MyBitmap1:= TBitmap.Create;
WindowState := wsMinimized;
MyBitmap1 := ASGScreenCapture1.CaptureSelection;
dbimage1.CreateImageFromClipboard ; /// error ##
dbimage1.SaveImageToJpeg(ImageFile,100);
WindowState := wsNormal;
##First chance exception at $0040837C. Exception class $C0000005 with message ‘access violation at 0x0040837c: read of address 0xfffffffd’. Process Gestão.exe (5200)
deleting is working fine Thank´s
// Get mainform out of the way
if fMinimized then
Application.MainForm.Hide;
and
// Restore mainform to original state
if fMinimized then
Application.MainForm.Show;
What do you mean “deleting is working fine”? Delete what?
WindowState := wsMinimized;
……………………………. in my second capture exception so i did.
WindowState := wsnormal;
ASGCapture.pas
function TASGScreenCapture.CaptureSelection: TBitmap;
// Capture Selection
// Mouser, 5/15/05 – support for identifying active foreground window
var
ActHandles: HWND;
ActRect: TRect;
ScreenDc: hDC;
begin
if Assigned ( fOnBeforeCapture ) then
fOnBeforeCapture ( Self );
Result := nil;
// Get mainform out of the way ……. deleted
if fMinimized then
Application.MainForm.Hide;
I have no idea what dbImsage1 is. The captured bitmap is in MyBitmap1.
Try dbImage1.Bitmap.Assign(mybitmap1);
Thank´s again
i will try later for me TImageEditor has more methods and becau-se i use .jpg in my work.
http://www.greatis.com
TImageEditor – visual component that dispays, zooms and scrolls image.
It receives all user input and translate it into drawers’
methods calls.