paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 12:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

clean up

Browse Source 
git-svn-id: trunk@20250 -
This commit is contained in:
mattias 2009-05-26 19:31:04 +00:00
parent 1407c4bda8
commit e541407654
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/carbon/carbonlclintf.inc
View File

@ -534,7 +534,6 @@ var
Desc: TRawImageDescription absolute ARawImage.Description;
displayID: CGDirectDisplayID;
ScreenImage: CGImageRef;
dataProvider: CGDataProviderRef;
begin
Result := False;
@ -551,7 +550,7 @@ begin
{ Get's a screenshot }
displayID := CGMainDisplayID();
ScreenImage := grabViaOpenGL(displayID, CGDisplayBounds(displayID));
dataProvider := CGImageGetDataProvider(ScreenImage);
//dataProvider := CGImageGetDataProvider(ScreenImage);
{ Fills the image description }
ARawImage.Init;

1
lcl/interfaces/carbon/carbonobject.inc
View File

@ -106,7 +106,6 @@ var
QuitHandler: EventHandlerRef;
TmpSpec: EventTypeSpec;
Loop: TApplicationMainLoop = nil;
Dummy: LongWord;
begin
// Get our TApplicationMainLoop
Result := noErr;