Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизСистемный курсор Link Select Найти похожие ветки
← →
-=GaLaN=- (2003-05-28 18:44) [0]Как задействовать сабж в Delphi? В любом компоненте есть все, кроме этого.
← →
-=GaLaN=- (2003-05-28 19:36) [1]Помогите, пожалуйста!
← →
Hint (2003-05-28 19:45) [2]crHandPoint вам нужен что-ли?
← →
-=GaLaN=- (2003-05-28 20:19) [3]Нет, это уже готовый курсор. Я имею в виду те курсоры, что пользователь может настроить в Control Panel->Mouse. А именно один из этих курсоров, Link Select.
← →
Goblinus (2003-05-28 23:25) [4]function GetLinkSelectCursor(Inst: THandle; ResID: PChar): TCursor;
var
C: hCursor;
begin
C := LoadCursor(Instance, ResID);
if C = 0 then C := LoadAniCursor(Instance, ResID);
if C = 0 then ResourceNotFound(ResID);
for Result := 100 to High(TCursor) do
if (Screen.Cursors[Result] = Screen.Cursors[crDefault]) then begin
Screen.Cursors[Result] := C;
Exit;
end;
DestroyCursor(C);
raise EOutOfResources.Create(ResStr(SOutOfResources));
end;
← →
-=GaLaN=- (2003-05-29 11:22) [5]Что-то я не понял, а как это использовать?
← →
-=GaLaN=- (2003-05-29 12:21) [6]Помогите, пожалуйста!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c