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

Вниз

Scrollbar   Найти похожие ветки 

 
Diamond Cat ©   (2003-03-21 16:50) [0]

почему iii=0

function WinProc (hWnd: THandle; nMsg: UINT; wParam, lParam: Cardinal): Cardinal; export; stdcall;
......
case NMSG of
wm_lbuttondown:
begin
iii:=(GetWindowLong(scrollhor, GWL_STYLE) and sbs_horz) ;
iii почемуто =0


procedure scrolbars(hwnd:Thandle);
var
si:tagSCROLLINFO;
begin
scrollhor:=CreateWindow("SCROLLBAR",nil,SBS_HORZ or ws_child or ws_visible or WS_TABSTOP ,64,49,86,8,hwnd,0,hinstance,nil);
si.cbSize:=sizeof(tagSCROLLINFO);
si.fMask:=SIF_pos or sif_page or SIF_RANGE;
si.nPage:=1;
si.nMin:=1;
si.nMax:=400;
si.nPos:=401-((strtoint(paramstr(4)))div 10);
// si.nTrackPos:=50;
SetScrollInfo(scrollhor,SB_CTL,si,true);


 
Song ©   (2003-03-21 16:52) [1]

or


 
Игорь Шевченко ©   (2003-03-21 16:54) [2]

Song © (21.03.03 16:52)

Где ? :-)


 
Diamond Cat ©   (2003-03-21 16:56) [3]

Song © с чегобы вдруг or


 
MBo ©   (2003-03-21 17:12) [4]

;)
{ Scroll Bar Styles }
{$EXTERNALSYM SBS_HORZ}
SBS_HORZ = 0;


 
Игорь Шевченко ©   (2003-03-21 17:19) [5]

MBo © (21.03.03 17:12)

!!!!!!


 
Diamond Cat ©   (2003-03-21 23:16) [6]

MBo © , да хоть -100, каким манером определить какой флаг SBS_HORZ или SBS_vert , у скрола


 
MBo ©   (2003-03-21 23:22) [7]

if (GetWindowLong(scrollhor, GWL_STYLE) and sbs_vert)=sbs_vert
then
вертикальный
else
гориз.



 
Diamond Cat ©   (2003-03-21 23:36) [8]

Блин, я тупой , всем спасибо, теперь со спокойной совестью отосплюсь



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
1-70225
Rocker
2003-05-08 08:46
2003.05.22
Узнать текущее время


1-70390
Marina_S
2003-05-10 23:31
2003.05.22
Как определить, что Media Player закончил проигрывание файла?


14-70447
Rammst
2003-04-29 11:53
2003.05.22
CD-ROM


3-70131
xxxCrazyManxxx
2003-04-30 17:26
2003.05.22
Как в делфи к переменной присвоить значение процедуры


3-70104
gnat
2003-04-29 06:49
2003.05.22
Shadow для IB