General information
Title:
BUG1: PageFrame add 4 to Height
Hi
Run this Code:
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
AutoCenter = .T.
Height = 600
Width = 600
Caption = "Bug1 Pageframe"
Name = "Form1"
ADD OBJECT cnt1 AS cnt WITH ;
Top = 168, ;
Left = 49, ;
Width = 240, ;
Height = 179, ;
Name = "Cnt1", ;
Pageframe1.Height = 144,;
Pageframe1.Page1.Name = "Page1", ;
Pageframe1.Page2.Name = "Page2", ;
Pageframe1.Name = "Pageframe1"
PROCEDURE cnt1.Pageframe1.Init
MESSAGEBOX(THIS.Name+" HEIGHT ="+TRANSFORM(this.Height);
+" WIDTH ="+TRANSFORM(this.width))
ENDPROC
ENDDEFINE
DEFINE CLASS cnt AS container
Name = "cnt"
ADD OBJECT pageframe1 AS pageframe WITH ;
TabOrientation = 0,;
PageCount = 2, ;
Top = 14, ;
Left = 18, ;
Width = 123, ;
Height = 123, ;
Name = "Pageframe1", ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
ENDDEFINE
You see pageframe Height isn't 144, but 148.
Fabio
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only