为什么创建的coolbar怎么也显示每个band左边的小竖杠？(100分)

smithcouple · 2006-02-07

也就是每一个条带(band)最左边那个Gripper 我先创建了一个Coolbar，然后创建了一个Toolbar，创建Band，将Toolbar设置到Band中，可怎么就是不能显示那个竖杠，还有Band左侧设置好的文本，但将其它组建放入Band（比如Edit Button）均可以正常显示小竖杠以及Band上面的文本。 代码如下：注意咯不是用VCL，我几乎尝试了所有风格style都没效果，先在这里谢谢大家~~  CLBTop: HWND; //Coolbar  TLBMain: HWND;//Toolbar  tbBTNs: array[1..2] of TTBBUTTON;//toolbar按钮  tbIML: HIMAGELIST;//toolbar ImageList  tbBMP: HBITMAP; // toolbar 按钮图片  rbi: TREBARINFO;    rbBand: TREBARBANDINFO;  icex: TINITCOMMONCONTROLSEX;  dwBtnSize: WORD;  CLBTop := CreateWindowEx(WS_EX_TOOLWINDOW, REBARCLASSNAME, '', WS_CHILD or    WS_VISIBLE or WS_CLIPSIBLINGS or WS_CLIPCHILDREN or    RBS_VARHEIGHT or RBS_DBLCLKTOGGLE or RBS_BANDBORDERS or CCS_NODIVIDER or    CCS_NOPARENTALIGN or RBS_AUTOSIZE,    0, 0, 462, 30, hWindow, 0, Inst, nil);  TLBMain := CreateWindowEx(0, TOOLBARCLASSNAME, '', WS_CHILD or    TBSTYLE_TRANSPARENT or TBSTYLE_TOOLTIPS or TBSTYLE_BUTTON    or TBSTYLE_FLAT,    0, 0, 0, 0, hWindow, 0, Inst, nil);  tbIML := ImageList_Create(16,16,ILC_COLOR24 or ILC_MASK,2,1);  tbBMP := LoadImage(Inst,    MAKEINTRESOURCE(501), IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR or    LR_LOADTRANSPARENT or LR_LOADMAP3DCOLORS);  ImageList_AddMasked(tbIML,tbBMP, RGB(0,0,0));  DeleteObject (tbBMP);  tbBTNs[1].iBitmap := MAKELONG(0,0);  tbBTNs[1].idCommand := IDM_MMHelpAbout;  tbBTNs[1].fsState := TBSTATE_ENABLED;  tbBTNs[1].fsStyle := TBSTYLE_BUTTON;  tbBTNs[1].dwData := 0;  tbBTNs[1].iString  := IDM_MMHelpAbout;  tbBTNs[2].iBitmap := MAKELONG(1,0);  tbBTNs[2].idCommand := IDM_MMHelpAbout;  tbBTNs[2].fsState := TBSTATE_ENABLED;  tbBTNs[2].fsStyle := TBSTYLE_BUTTON;  tbBTNs[2].dwData := 0;  tbBTNs[2].iString  := IDM_MMHelpAbout;  SendMessage(TLBMain, TB_BUTTONSTRUCTSIZE, SizeOf(TTBBUTTON), 0);  SendMessage(TLBMain, TB_SETIMAGELIST, 0, LongInt(tbIML));  SendMessage(TLBMain, TB_ADDBUTTONS, Round(SizeOf(tbBTNs) / SizeOf(TTBBUTTON)),    LongInt(@tbBTNs));  rbi.cbSize := SizeOf(TREBARINFO);  rbi.fMask := 0;  rbi.himl := 0;  SendMessage(CLBTop, RB_SETBARINFO, 0, LongInt(@rbi));  dwBtnSize := SendMessage(TLBMain, TB_GETBUTTONSIZE, 0,0);  rbBand.cbSize := SizeOf(TREBARBANDINFO);  rbBand.fMask := RBBIM_COLORS or RBBIM_TEXT or RBBIM_BACKGROUND or                  RBBIM_STYLE or RBBIM_CHILD or RBBIM_CHILDSIZE or                  RBBIM_SIZE;  rbBand.fStyle := RBBS_CHILDEDGE or RBBS_GRIPPERALWAYS or RBBS_BREAK;  rbBand.lpText := 'ToolBar';  rbBand.hwndChild := TLBMain;  //如果换成Edit Button 则都正常  rbBand.cx := 250;  rbBand.cxMinChild := 0;  rbBand.cyMinChild := LOWORD(dwBtnSize);  SendMessage(CLBTop, RB_INSERTBAND, -1, LongInt(@rbBand));

kaoleoloi · 2006-02-08

帮顶！ ╭=========================================╮   80G海量源代码,控件，书籍全免费狂下不停！   http://www.source520.com   ╰=========================================╯

sdmb · 2006-02-25

使用win32提供的两个函数 queryperformancefrequency 和 queryperformancecounter 具体实现我帮你google一下 //取毫秒级时间精度(方法一)： 　　var 　　t1,t2:int64; 　　r1:int64; 　　begin 　　t1:=GetTickCount;//获取开始计数 WINDOWS API 　　sleep(1000);{do...}//执行要计时的代码 　　t2:=GetTickCount;//获取结束计数值 　　r1:=t2-t1;//取得计时时间，单位毫秒(ms) 　　showmessage(inttostr(r1)); 　　end; 　　//取毫秒级时间精度(方法二)： 　　//use DateUtils;//引用DateUtils单位 　　var 　　t1,t2:tdatetime; 　　r1:int64; 　　begin 　　t1:=now();//获取开始计时时间 　　sleep(1000);{do...}//执行要计时的代码 　　t2:=now();//获取结束计时时间 　　r1:=SecondsBetween(t2,t1);//取得计时时间，单位秒(s) 　　r1:=MilliSecondsBetween(t2,t1);//取得计时时间，单位毫秒(ms) 　　showmessage(inttostr(r1)); 　　end; 　　//注：以上两种方式经本人测试好像只能产生0.01秒的计时精度 　　//取系统级时间精度： 　　var 　　c1:int64; 　　t1,t2:int64; 　　r1:double; 　　begin 　　QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数) 　　QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值 　　sleep(1000);{do...}//执行要计时的代码 　　QueryPerformanceCounter(t2);//获取结束计数值 　　r1:=(t2-t1)/c1;//取得计时时间，单位秒(s) 　　r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms) 　　r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒 　　showmessage(floattostr(r1)); 　　end;

wanghongyong · 2006-02-25

没有做过这样的，但可考虑用另一个线程来统计信息！

icelovey · 2006-02-25

var  Form1: TForm1;  i:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var  j,k:integer; begin  Timer1.Enabled:=True;  j:=0;  //---要计算时间的Procedure  for k:=0 to 10000  do    j:=j+1;  //-------  Timer1.Enabled:=False;  edit1.Text:=IntToStr(j);  edit2.Text:=IntToStr(i);  //---edit2显示的为计算所耗费的毫秒数！ end; //Timer1的Interval的属性设为1; procedure TForm1.Timer1Timer(Sender: TObject); begin  i:=i+1; end;

smithcouple · 2006-02-26

谢谢sdmb，尤其是第三个 to icelovey: 因为我不用VCL，所以这个用不上了，还是很谢谢你

为什么创建的coolbar怎么也显示每个band左边的小竖杠？(100分)

smithcouple

Unregistered / Unconfirmed

kaoleoloi

Unregistered / Unconfirmed

sdmb

Unregistered / Unconfirmed

wanghongyong

Unregistered / Unconfirmed

icelovey

Unregistered / Unconfirmed

smithcouple

Unregistered / Unconfirmed

Similar threads