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

Small fix for screenshot taking on carbon and removes carbon clistbox.

Browse Source 
git-svn-id: trunk@14230 -
This commit is contained in:
sekelsenmat 2008-02-22 09:46:02 +00:00
parent 238ef21fad
commit d8d0de7c0e
5 changed files with 3 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2944,7 +2944,6 @@ lcl/interfaces/carbon/carbonwsarrow.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwsbuttons.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwscalendar.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwschecklst.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwsclistbox.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwscomctrls.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwscontrols.pp svneol=native#text/pascal
lcl/interfaces/carbon/carbonwsdbctrls.pp svneol=native#text/pascal

2
ide/compileroptions.pp
View File

@ -2088,7 +2088,7 @@ Processor specific options:
switches := switches + ' ' + ConvertOptionsToCmdLine(' ','-k', InhLinkerOpts);
end;
// add Linker options for wigdet set
// add Linker options for widgetset
if not (ccloNoLinkerOpts in Flags) then
begin
LinkerAddition := LCLWidgetLinkerAddition[DirNameToLCLPlatform(GetEffectiveLCLWidgetType)];

3
lcl/interfaces/carbon/carbonint.pas
View File

@ -143,7 +143,6 @@ uses
CarbonWSButtons,
// CarbonWSCalendar,
CarbonWSCheckLst,
// CarbonWSCListBox,
CarbonWSComCtrls,
CarbonWSControls,
// CarbonWSDbCtrls,
@ -170,7 +169,7 @@ uses
CarbonThemes, CarbonCanvas, CarbonStrings, CarbonClipboard, CarbonCaret,
CarbonProc, CarbonDbgConsts, CarbonUtils,
Buttons, StdCtrls, PairSplitter, ComCtrls, CListBox, Calendar, Arrow,
Buttons, StdCtrls, PairSplitter, ComCtrls, Calendar, Arrow,
Spin, ExtCtrls, FileCtrl, LResources;
// the implementation of the utility methods

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

@ -729,7 +729,7 @@ begin
8, // bits per component
bitmapBytesPerRow,
colorSpace,
kCGImageAlphaFirst);
kCGImageAlphaNoneSkipFirst); // The function fails with kCGImageAlphaFirst
if (context = nil) then
begin
System.FreeMem(bitmapData);

63
lcl/interfaces/carbon/carbonwsclistbox.pp
View File

@ -1,63 +0,0 @@
{ $Id$}
{
*****************************************************************************
* CarbonWSCListBox.pp *
* --------------- *
* *
* *
*****************************************************************************
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
unit CarbonWSCListBox;
{$mode objfpc}{$H+}
interface
uses
////////////////////////////////////////////////////
// I M P O R T A N T
////////////////////////////////////////////////////
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
// CListBox,
////////////////////////////////////////////////////
WSCListBox, WSLCLClasses;
type
{ TCarbonWSCListBox }
TCarbonWSCListBox = class(TWSCListBox)
private
protected
public
end;
implementation
initialization
////////////////////////////////////////////////////
// I M P O R T A N T
////////////////////////////////////////////////////
// To improve speed, register only classes
// which actually implement something
////////////////////////////////////////////////////
// RegisterWSComponent(TCListBox, TCarbonWSCListBox);
////////////////////////////////////////////////////
end.