pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* When a child is added to a view, make the view the first responder of the child

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2683 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-02-14 20:10:42 +00:00
parent 1f96355bb2
commit e30731258b
1 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
components/iosdesigner/ios_views.pas
View File

@ -41,6 +41,7 @@ uses
type
TXIBProperties = (
bvNextResponder,
bvOpaque,
bvHighlighted,
bvAlpha,
@ -80,6 +81,7 @@ type
const
XIBPropertiesStrings : array[TXIBProperties] of TXIBProperty = (
(APropertyName: 'NSNextResponder'; ADefaultValue: ''),
(APropertyName: 'IBUIOpaque' ; ADefaultValue: 'YES'),
(APropertyName: 'IBUIHighlighted'; ADefaultValue: 'NO'),
(APropertyName: 'IBUIAlpha' ; ADefaultValue: '1'),
@ -275,23 +277,23 @@ type
UIView = class(tiOSFakeComponent)
private
FNSNextResponder: UIView;
function GetFlags(AIndex: Integer): boolean;
function GetNSSuperview: UIView;
function GetXIBObject(AIndex: TXIBProperties): UIView;
function ObtainSuperview: UIView;
procedure SetFlags(AIndex: Integer; AValue: boolean);
procedure SetNSSuperView(AValue: UIView);
procedure SetXIBObject(AIndex: TXIBProperties; AValue: UIView);
protected
function GetPaintText: string; virtual;
procedure SetName(const NewName: TComponentName); override;
property Caption: string index bvText read GetXIBString write SetXIBString;
procedure AddChild(const AValue: tiOSFakeComponent); override;
public
constructor Create(AOwner: TComponent); override;
procedure InitializeDefaults; override;
procedure paint(ACanvas: TCanvas); override;
class function GetIBClassName: string; override;
property NSSuperview: UIView read GetNSSuperview write SetNSSuperView;
property NSNextResponder: UIView read FNSNextResponder write FNSNextResponder;
property NSSuperview: UIView index bvSuperview read GetXIBObject write SetXIBObject;
property NSNextResponder: UIView index bvNextResponder read GetXIBObject write SetXIBObject;
property Flags: Int64 index bvFlags read GetXIBInt64 write SetXIBInt64;
published
property Opaque: boolean index bvOpaque read GetXIBBoolean write SetXIBBoolean;
@ -1659,7 +1661,6 @@ end;
constructor UIWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
NSNextResponder:=self;
FLeft := 10;
FTop := 10;
BackgroundColor:=clWhite;
@ -3441,7 +3442,7 @@ end;
{ UIView }
function UIView.GetNSSuperView: UIView;
function UIView.GetXIBObject(AIndex: TXIBProperties): UIView;
function FindComponentByRef(AComp: tiOSFakeComponent;const ARef: Int64): tiOSFakeComponent;
var
@ -3467,7 +3468,7 @@ var
s: string;
ANode: TDOMElement;
begin
ANode := FindKeyNode(XIBObjectElement, 'reference', 'NSSuperview');
ANode := FindKeyNode(XIBObjectElement, 'reference', XIBPropertiesStrings[AIndex].APropertyName);
if assigned(ANode) then
begin
s := ANode.AttribStrings['ref'];
@ -3498,7 +3499,7 @@ begin
Flags := flags and (not (1 shl AIndex));
end;
procedure UIView.SetNSSuperView(AValue: UIView);
procedure UIView.SetXIBObject(AIndex: TXIBProperties; AValue: UIView);
var
ANode: TDOMElement;
begin
@ -3506,12 +3507,12 @@ begin
raise exception.create('NoObjectElement');
if assigned(AValue) then
begin
ANode := GetKeyNode(XIBObjectElement, 'reference', 'NSSuperview');
ANode := GetKeyNode(XIBObjectElement, 'reference', XIBPropertiesStrings[AIndex].APropertyName);
ANode.AttribStrings['ref'] := IntToStr(AValue.Ref);
end
else
begin
ANode := FindKeyNode(XIBObjectElement, 'reference', 'NSSuperview');
ANode := FindKeyNode(XIBObjectElement, 'reference', XIBPropertiesStrings[AIndex].APropertyName);
if assigned(ANode) then
ANode.ParentNode.RemoveChild(ANode);
end;
@ -3562,6 +3563,17 @@ begin
if Name=Caption then Caption:=NewName;
inherited SetName(NewName);
end;
procedure UIView.AddChild(const AValue: tiOSFakeComponent);
begin
inherited AddChild(AValue);
if (AValue is UIView) and not (csLoading in ComponentState) then
begin
UIView(AValue).NSNextResponder:=self;
end;
end;
{
procedure UIView.WriteToDomElement(AnObjectDomElement: TDOMElement);
var