paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 06:39:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

added documentation

Browse Source 
git-svn-id: trunk@8519 -
This commit is contained in:
mattias 2006-01-14 19:46:48 +00:00
parent 09887366cf
commit cd7c5e4e9b
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/opengl/openglcontext.pas
View File

@ -16,7 +16,7 @@
TOpenGLControl is a LCL control with an opengl context. TOpenGLControl is a LCL control with an opengl context.
It works under the following platforms: It works under the following platforms:
- gtk with glx : full - gtk with glx : full
- gtk2 with glx : todo - gtk2 with glx : started, not yet working
- carbon with agl : full - carbon with agl : full
- windows with wgl: full - windows with wgl: full
} }

6
lcl/interfaces/carbon/carbonwsbuttons.pp
View File

@ -67,7 +67,7 @@ type
implementation implementation
{ TCarbonWSButton } { TCarbonWSButton }
function TCarbonWSButton.CreateHandle(const AWinControl: TWinControl; function TCarbonWSButton.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; const AParams: TCreateParams): TLCLIntfHandle;
@ -81,6 +81,7 @@ begin
Result := 0; Result := 0;
//Button := AWinControl as TCustomButton; //Button := AWinControl as TCustomButton;
// create the button at bounds with title
R:=GetCarbonRect(AParams.X,AParams.Y, R:=GetCarbonRect(AParams.X,AParams.Y,
AParams.X + AParams.Width,AParams.Y + AParams.Height); AParams.X + AParams.Width,AParams.Y + AParams.Height);
@ -93,7 +94,10 @@ begin
CFRelease(Pointer(CFString)); CFRelease(Pointer(CFString));
if Result = 0 then Exit; if Result = 0 then Exit;
// add the info (our data, like which TWinControl belong to this carbon widget)
Info := CreateWidgetInfo(Control, AWinControl); Info := CreateWidgetInfo(Control, AWinControl);
// register events (e.g. mouse, focus, keyboard, size, ...)
TCarbonPrivateHandleClass(WSPrivate).RegisterEvents(Info); TCarbonPrivateHandleClass(WSPrivate).RegisterEvents(Info);
end; end;