| T O P I C R E V I E W |
| mhieta |
Posted - Jun 15 2013 : 03:19:45
Hi William,
Using XE3 with latest updates and latest ASGScreenCapture. CaptureObject is not working correctly.
In this case iBitmap is not getting bitmap.
Code sniplet from simple demo:
procedure TForm1.Object1Click ( Sender: TObject );
var
iBitmap: TBitmap;
iFileName: string;
iExtension: string;
begin
iBitmap := ASGScreenCapture1.CaptureObject;
try
Image1.Picture.Assign ( iBitmap );
finally
iBitmap.Free;
end;
with ScrollBox1 do
begin
HorzScrollBar.range := Image1.Picture.Width;
VertScrollBar.range := Image1.Picture.Height;
end;
iFileName := IncludeTrailingPathDelimiter ( DesktopFolder ) + 'Image ' + IntToStr ( ASGScreenCapture1.CaptureCount );
iExtension := '.bmp';
FFilePath := iFileName + iExtension;
Caption := 'Simple Demo - ' + FFilePath;
// The CaptureCount is automatically inc with each sucessive capture
CaptureCount1.Caption := 'Capture Count: ' + IntToStr ( ASGScreenCapture1.CaptureCount );
end;
But if I do Large Icon capture first then CaptureObject works with that Large Icon capture size :) Anyway this bug is not related to simpledemo :)
- Marko |
| 2 L A T E S T R E P L I E S (Newest First) |
| mhieta |
Posted - Jun 15 2013 : 12:09:54
Hi,
That code sniplet is from the SimpleDemo app. From that demo app those other captures works okay in XE3. So that CaptureObject is only one what is not working.
- Marko |
| w2m |
Posted - Jun 15 2013 : 06:13:13
I am sorry... I only have Delphi 2010 which does not show this problem, so I have no way to fix it for XE3. Do the demos work? Is CaptureObject the only capture type that does not work with XE3?
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html |
Search
