知道Delphi自带的Editor中的那种Flat式的PageControl是如实现的吗？(50分)

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #1

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #2

>>Flat式的PageControl
????

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #3

知道

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #4

从 WIN32 中将 PageControl 放一个到窗口上

PageControl 的 HotTrack 属性设置为true

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #5

是我没说清楚，所谓Flat式的PageControl即是如Delphi Editor中
的那个编辑器的页控件，如果你仔细观察会发现它的边缘部分和它的
父控件的接触部分是平的，而不是如一般的Pagecontrol的边缘部分
呈3D状的，而是一种自然的融合状。

Another_eYes请详细说说。期待，不行我加分

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #6

早说清楚不就得了:
pagecontrol1.style:=tsFlatButtons;

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #7

HiHi,cAkk,你的答案不是我要的（俺也没那么弱智呀，怎会连这个也不知道^_^)
我只好再说一遍了，是Flat式的PageControl，设成tsFlatButtons可不对，
就没了Tab页了，成了用botton切换了。

有谁知解答，我愿加分

 

C

Crane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-24

• #8

我看是delphi的嶂眼法,我编程时也常常用到,用几个控件拼出一个
较酷的控件.editor可能参与"拼图"的有:

Tabcontrol
panel
image
speedbutton
notebook
控件互相覆盖互相遮挡即可
当然只是我个人的看法

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-24

• #9

To Crane:
我觉的用障眼法不太可能，这也太.................
应该是自绘的，哪位大侠知道！！！！！！！！！！！！！！！！！！！！！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-24

• #10

1? 奇怪! 我的editor怎么不是flat的???????

你是指的代码编辑器窗口里面的那个pagecontrol吗?

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-24

• #11

我觉得我的delphi的编辑器得pagecontrol不过是
普通的pagecontrol而已，最多加了个 Align := alClient 罢了

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-25

• #12

To cAkk:如果你用的不是D5就看不到了，呵呵。
To Pipi:我可以肯以肯定这不是alClient的关系，你可以仔细对比一下。
甚至连Delphi5的控件调色板也是Flat的。边缘呈平坦状，而不
是PageControl似的3D状。

究竟有没有人知道呀！！！！！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #13

你是在说梦话吧? 我用的就是d5 ,但是pagecontrol和调色版控件都不是flat的!
就是普通的3d样式呀!

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #14

能不能贴个图上来看看？

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #15

To Cakk: 7456!!!!我怎么会大黑天说梦说

这能贴图吗？怎么贴，不行我贴一张上来，验明正身！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #16

你把你的图片抓下来,压缩后寄给我 (在图片上标明你认为的"flat"部分)


cakk2000@163.net

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-26

• #17

我知道，我的确知道. 呵呵
只是不知道你要的是哪种答案.
最简单的答案：
1.align是alNone. 然后在parent resize时调整自己的大小, boundsrect = rect(-2, 0, parent.clientwidth + 2, parent.clientheight)
2.或者继承原来的pagecontrol, override 两个方法: AdjustClientRect和AlignControl. 这是仍能是alClient的.
3. ...
4. ....
太多了

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-27

• #18

To Cakk: 巳经发出，顺便带了几种最新病毒，请注意预防

To Another_eYes: 能不能说说原理，即这种Flat是怎么画出来的呢？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-28

• #19

今天上班受到了occult的图片,给大家说明一下:

图片一: 标明的flat部分是指editor的TabControl,注意是一个TabControl,
不是一个PageControl, 就是那个显示"unit1"的地方,左边缘的3D
效果不明显,只是一个很浅的细线.
我估计这个就是eyes所说的第一个方法,就是把left稍微靠左一点,消隐一部分3D

图片二: 标明的flat部分是指editor的右上角那个左右箭头,可以移动Tabcontrol
的,其实用spy++ 看一下就知道了,那是一个TToolBar,不是TabControl
的一部分.

图片三: 标明的falt部分是指控件面板的左边缘的2条竖线,其实那是因为放在了
一个TControlBar上面的缘故,是自动出来的Holdcontrol,用来拖动
控件面板移动的一个"把手",和PageControl无关,况且,控件面板也是
一个TabControl,不是PageControl.

纠正一点,前面我错误理解了occult的意思:
"Delphi5的控件调色板"是指的"控件面板",而不是"调色版控件".

 

O

occult

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-28

• #20

cAKK是个好同志，呵呵，特憨直。