paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 07:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: cabon: clean up

Browse Source 
git-svn-id: trunk@46857 -
This commit is contained in:
mattias 2014-11-15 12:37:25 +00:00
parent 925368d194
commit 799184edb2
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/carbon/carbongdiobjects.pp
View File

@ -524,7 +524,6 @@ procedure TScanObject.ScanConvex;
var
PData, P: PByte;
X, Xe, Y, SX,EX: Integer;
LC, C: Byte;
{$ifdef DumpRegion}
Line: string;
{$endif}

6
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -3927,12 +3927,12 @@ end;
function TCarbonWidgetSet.ShowScrollBar(Handle: HWND; wBar: Integer;
bShow: Boolean): Boolean;
var
CarbonControl: TCarbonControl;
//var
// CarbonControl: TCarbonControl;
begin
Result:=false;
CarbonControl := TCarbonControl(Handle);
//CarbonControl := TCarbonControl(Handle);
// ToDo: