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

* Set default background colors

Browse Source 
* Set default flags-value
 * Paint the title on a button
 * Added the StatusBar property

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2653 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-02-04 21:12:51 +00:00
parent e75fecfde6
commit 422e749b57
1 changed files with 76 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
components/iosdesigner/ios_views.pas
View File

@ -251,6 +251,7 @@ type
procedure SetFlags(AIndex: Integer; AValue: boolean);
procedure SetNSSuperView(AValue: UIView);
protected
function GetPaintText: string; virtual;
procedure SetName(const NewName: TComponentName); override;
property Caption: string index bvText read GetXIBString write SetXIBString;
public
@ -311,8 +312,12 @@ type
{ UIWindow }
TiOSFakeStatusBarStyle = (sbsGrey=0, sbsBlackTranslucent=1, sbsBlack = 2, sbsNone=3);
UIWindow = class(UIView)
private
function GetStatusBar: TiOSFakeStatusBarStyle;
procedure SetStatusBar(AValue: TiOSFakeStatusBarStyle);
protected
function StoreSizeAsFrameSize: boolean; override;
procedure SetBounds(NewLeft, NewTop, NewWidth, NewHeight: integer); override;
@ -322,6 +327,7 @@ type
procedure paint(ACanvas: TCanvas); override;
class function GetIBClassName: string; override;
published
property StatusBar: TiOSFakeStatusBarStyle read GetStatusBar write SetStatusBar;
end;
{ UIViewController }
@ -386,6 +392,8 @@ type
FNSNextKeyView: UIView;
function GetButtonType: TiOSFakeButtonType;
procedure SetButtonType(AValue: TiOSFakeButtonType);
protected
function GetPaintText: string; override;
public
procedure InitializeDefaults; override;
constructor Create(AOwner: TComponent); override;
@ -394,7 +402,7 @@ type
property NSNextKeyView: UIView read FNSNextKeyView write FNSNextKeyView;
published
property NormalTitle: string index bvNormalTitle read GetXIBString write SetXIBString;
property NotmalTitleColor: TColor index bvNormalTitleColor read GetXIBColor write SetXIBColor;
property NormalTitleColor: TColor index bvNormalTitleColor read GetXIBColor write SetXIBColor;
property ButtonType: TiOSFakeButtonType read GetButtonType write SetButtonType;
property onTouchDown: TCocoaEvent index 1 read GetXIBEvent write SetXIBEvent;
end;
@ -1531,6 +1539,57 @@ end;
{ UIWindow }
function UIWindow.GetStatusBar: TiOSFakeStatusBarStyle;
var
ANode: TDOMNode;
begin
if Assigned(XIBObjectElement) then
begin
ANode := FindKeyNode(XIBObjectElement, 'object', 'IBUISimulatedStatusBarMetrics');
if assigned(ANode) then
begin
ANode := FindKeyNode(ANode, 'int', 'IBUIStatusBarStyle');
if assigned(ANode) then
begin
result := TiOSFakeStatusBarStyle(StrToInt(ANode.TextContent));
end
else
result := sbsGrey;
end
else
result := sbsNone;
end
else
result := sbsNone;
end;
procedure UIWindow.SetStatusBar(AValue: TiOSFakeStatusBarStyle);
var
ANode: TDOMNode;
begin
if AValue = sbsNone then
begin
ANode := FindKeyNode(XIBObjectElement, 'object', 'IBUISimulatedStatusBarMetrics');
if assigned(ANode) then
ANode.ParentNode.RemoveChild(ANode);
end
else
begin
ANode := GetKeyNode(XIBObjectElement, 'object', 'IBUISimulatedStatusBarMetrics', 'IBUISimulatedStatusBarMetrics');
if AValue<>sbsGrey then
begin
ANode := GetKeyNode(ANode, 'int', 'IBUIStatusBarStyle');
anode.TextContent:=IntToStr(ord(AValue));
end
else
begin
ANode := FindKeyNode(ANode, 'int', 'IBUIStatusBarStyle');
if assigned(ANode) then
ANode.ParentNode.RemoveChild(ANode);
end;
end;
end;
function UIWindow.StoreSizeAsFrameSize: boolean;
begin
Result:=true;
@ -1553,6 +1612,8 @@ procedure UIWindow.InitializeDefaults;
begin
inherited InitializeDefaults;
Inherited SetBounds(left, top, 320, 480);
BackgroundColor:=clWhite;
StatusBar:=sbsGrey;
end;
constructor UIWindow.Create(AOwner: TComponent);
@ -3137,6 +3198,11 @@ begin
Invalidate;
end;
function UIView.GetPaintText: string;
begin
result := Caption;
end;
procedure tiOSFakeComponent.SetXIBString(index: TXIBProperties; ANodeName, AValue: string);
var
ANode: TDOMNode;
@ -3253,8 +3319,9 @@ procedure UIView.InitializeDefaults;
begin
inherited InitializeDefaults;
SetBounds(10,10,72,37);
BackgroundColor:=clWhite;
Alpha:=1;
Opaque:=False;
Flags := 292;
end;
procedure UIView.paint(ACanvas: TCanvas);
@ -3272,7 +3339,7 @@ begin
Font.Size:=12;
Font.Italic:=false;
Font.Bold:=false;
TextOut(5,2,Caption);
TextOut(5,2,GetPaintText);
end;
end;
@ -3301,9 +3368,15 @@ begin
SetXIBInteger(bvButtonType, Ord(AValue));
end;
function UIButton.GetPaintText: string;
begin
result := NormalTitle;
end;
procedure UIButton.InitializeDefaults;
begin
inherited InitializeDefaults;
NormalTitleColor:=$00854F32;
ButtonType:=RoundedRect;
end;