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

* Paint for TableView

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2670 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-02-10 21:53:29 +00:00
parent 7b46e65d41
commit 46759dcae0
1 changed files with 42 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
components/iosdesigner/ios_views.pas
View File

@@ -496,6 +496,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure InitializeDefaults; override; procedure InitializeDefaults; override;
procedure paint(ACanvas: TCanvas); override;
class function GetIBClassName: string; override; class function GetIBClassName: string; override;
published published
property RowHeight: double index bvRowHeight read GetXIBFloat write SetXIBFloat; property RowHeight: double index bvRowHeight read GetXIBFloat write SetXIBFloat;
@@ -3155,6 +3156,47 @@ begin
BounceVertically:=true; BounceVertically:=true;
end; end;
procedure UITableView.paint(ACanvas: TCanvas);
var
TS: TTextStyle;
i: integer;
Count: integer;
begin
Inherited;
with ACanvas do
begin
pen.Style:=psSolid;
TS.Alignment:=taLeftJustify;
TS.Layout:=tlCenter;
font.Bold:=true;
font.Size:=16;
font.color:=clWhite;
GradientFill(rect(0,round(self.Height-SectionFooterHeight),self.Width,self.Height-1),clLtGray, clGray, gdVertical);
TextRect(rect(8,round(self.Height-SectionFooterHeight),self.Width-8,Self.Height),8,round(self.Height-SectionFooterHeight),'Section Footer',TS);
GradientFill(rect(0,0,self.Width,round(SectionHeaderHeight-1)),clLtGray, clGray, gdVertical);
TextRect(rect(8,0,self.Width-8,round(SectionHeaderHeight-1)),8,0,'Netherlands',TS);
pen.Color:=SeparatorColor;
font.Color:=clBlack;
font.Size:=18;
count := trunc((self.Height-SectionFooterHeight-SectionHeaderHeight) / RowHeight);
for i := 0 to count-1 do
begin
TextRect(rect(8,round(SectionHeaderHeight+(i*RowHeight)),self.Width-8,round(SectionHeaderHeight+((i+1)*RowHeight))),8,round(SectionHeaderHeight+(i*RowHeight)),'Item',TS);
if SeparatorStyle=ssNone then
pen.Style:=psClear
else if SeparatorStyle=ssSingleLine then
pen.Style:=psSolid
else if SeparatorStyle=ssSingleLineEtched then
pen.Style:=psDash;
Line(0,round(SectionHeaderHeight+((i+1)*RowHeight)),self.Width-1,round(SectionHeaderHeight+((i+1)*RowHeight)));
end;
end;
end;
class function UITableView.GetIBClassName: string; class function UITableView.GetIBClassName: string;
begin begin
Result:='IBUITableView'; Result:='IBUITableView';