Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

как програмно перемещать TOOLBAR?   Найти похожие ветки 

 
юзверь   (2004-07-28 00:27) [0]

подскажите плиз, ненаю шо и делать, хочу запоминать настройки тулбара, и восстанавливать их при загрузке, пишу всЁ на API, несколько тулбаров (ToolBarWindow32) на ребаре (ReBarWindow32),
взять координаты могу так


SendMessage(barHWND, RB_GETRECT, SendMessage(barHWND, RB_IDTOINDEX, BAND_ID, 0), lParam(@rect));


а вот как их выставить ? при создании ненашел, там такая структура:


typedef struct tagREBARBANDINFO{
UINT cbSize;
UINT fMask;
UINT fStyle;
COLORREF clrFore;
COLORREF clrBack;
LPTSTR lpText;
UINT cch;
int iImage;
HWND hwndChild;
UINT cxMinChild;
UINT cyMinChild;
UINT cx;
HBITMAP hbmBack;
UINT wID;
UINT cyChild;
UINT cyMaxChild;
UINT cyIntegral;
UINT cxIdeal;
LPARAM lParam;}
REBARBANDINFO, FAR *LPREBARBANDINFO;


я делаю так:


 //add band
bar.cbSize := sizeof(tagREBARBANDINFO);
bar.fMask := RBBIM_CHILD or RBBIM_CHILDSIZE or RBBIM_ID or RBBIM_STYLE;

 //zaberem razmer4iki
SendMessage(toolbarHWND, TB_GETMAXSIZE, 0, lParam(@sz));

 //zadadim razmer4iki
bar.cxMinChild := sz.cx;
bar.cyMinChild := sz.cy;
bar.hwndChild := toolbarHWND;
 bar.wID := BAND_ID;
 bar.fStyle := RBBS_BREAK;

 //dobavim band
SendMessage(barHWND, RB_INSERTBAND, wParam(-1), lParam(@bar));


пробовал играться с  ентим, но шото неполучилось:


SendMessage(barHWND, RB_BEGINDRAG, wParam(band_idx), lParam(xy));
...
SendMessage(barHWND, RB_DRAGMOVE, wParam(band_idx), lParam(xy));
SendMessage(barHWND, RB_ENDDRAG, wParam(band_idx), lParam(0));


вотъ


 
юзверь   (2004-07-28 00:32) [1]

там в RB_DRAGMOVE и в RB_ENDDRAG wParam = 0


 
GanibalLector ©   (2004-07-28 02:23) [2]

>пробовал играться
Хорошие у тя игры ))



Страницы: 1 вся ветка

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
1-1093509134
vov@n
2004-08-26 12:32
2004.09.12
Как запустить DOS приложение...


14-1093413717
Desperado
2004-08-25 10:01
2004.09.12
Где скачать Service Pack 1 для Delphi 5


3-1092745901
Len
2004-08-17 16:31
2004.09.12
База для хранения "разных" файлов


14-1093074378
ArMellon
2004-08-21 11:46
2004.09.12
Запарился...,почему вопит "dd"-определение отсутствует?


4-1091128756
parovoZZ
2004-07-29 23:19
2004.09.12
LoadImage