Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Scrollbar

Diamond Cat © (2003-03-21 16:50:00)
почему 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);

Diamond Cat (2003-03-21 23:36:00) [1]
Блин, я тупой , всем спасибо, теперь со спокойной совестью отосплюсь

MBo (2003-03-21 23:22:00) [2]
if (GetWindowLong(scrollhor, GWL_STYLE) and sbs_vert)=sbs_vert
then
вертикальный
else
гориз.

Diamond Cat (2003-03-21 23:16:00) [3]
MBo © , да хоть -100, каким манером определить какой флаг SBS_HORZ или SBS_vert , у скрола

Игорь Шевченко (2003-03-21 17:19:00) [4]
MBo © (21.03.03 17:12)

!!!!!!

MBo (2003-03-21 17:12:00) [5]
;)
{ Scroll Bar Styles }
{$EXTERNALSYM SBS_HORZ}
SBS_HORZ = 0;

Diamond Cat (2003-03-21 16:56:00) [6]
Song © с чегобы вдруг or

Игорь Шевченко (2003-03-21 16:54:00) [7]
Song © (21.03.03 16:52)

Где ? :-)

Song (2003-03-21 16:52:00) [8]
or

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »