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

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

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

ICQ [D6, WinXP]

Страницы: 1 2 3 >
webpauk © (2005-08-03 12:16:00)
Подскажите как ICQ сдвигает все окна влево

Digitman (2005-08-03 15:33:00) [1]

> webpauk (03.08.05 15:29) [54]

ну так получи сатисфакцию)

а касаемо сабжа -

> как ICQ сдвигает все окна влево

еще раз :

никакое "ICQ" никакие "окна" никуда не "сдвигает" - ни вправо, ни влево , ни раком, ни боком.

Slym (2005-08-03 15:29:00) [2]
Плохой программист - должен разобраться в грамотном техзадании.
Хороший программист - должен разобраться в любом тех задании.
Злой программист - разбираться вообще не будет и пошлет всех нах... (типа у меня и так работы...) и сядет смотрель порнуху успокаивая последний нерв

webpauk (2005-08-03 15:29:00) [3]

> Digitman © (03.08.05 15:26) [53]

ничего!
для души хотелось!

Digitman (2005-08-03 15:26:00) [4]

> webpauk (03.08.05 15:11) [50]

да, работал.
и что ?

Slym (2005-08-03 15:25:00) [5]
Удалено модератором

Slym (2005-08-03 15:23:00) [6]
SystemParametersInfo ()
SPI_GETWORKAREA/SPI_SETWORKAREA

webpauk (2005-08-03 15:11:00) [7]

> Digitman © (03.08.05 14:36) [48]

признайся ты работал в КГБ? сстолько придирок к моему невинному сабжу и вопросам!!!

ANB (2005-08-03 14:42:00) [8]
Удалено модератором

Digitman (2005-08-03 14:36:00) [9]

> webpauk (03.08.05 14:35) [47]

это заметно.

webpauk (2005-08-03 14:35:00) [10]

> Digitman © (03.08.05 14:21) [46]
>
> > webpauk (03.08.05 14:15) [43]
>
>
> итак, попрыгав с бубном, можно сделать предположение, что
> речь твоя таки идет об интересных тебе особенностях реализации
> граф.интерфейса ICQ-клиента от Мирабилис под Win ? т.е.
> Win-приложения разработки компании Мирабилис, являющего
> собой клиента ICQ-сети и реализующего граф.интерфейс пользователя
> как полноценного клиента этой сети ?

неа!!!
меня интересует только как плесень заводится по углам!

Digitman (2005-08-03 14:21:00) [11]

> webpauk (03.08.05 14:15) [43]

итак, попрыгав с бубном, можно сделать предположение, что речь твоя таки идет об интересных тебе особенностях реализации граф.интерфейса ICQ-клиента от Мирабилис под Win ? т.е. Win-приложения разработки компании Мирабилис, являющего собой клиента ICQ-сети и реализующего граф.интерфейс пользователя как полноценного клиента этой сети ?

ANB (2005-08-03 14:17:00) [12]
Удалено модератором

webpauk (2005-08-03 14:16:00) [13]

> Digitman © (03.08.05 14:04) [41]

старался как мог. И объяснял! А вы мне всё сеть да сеть!

webpauk (2005-08-03 14:15:00) [14]

> Digitman © (03.08.05 14:02) [39]

извините, что неправильно сформулировал вопрос.

> ты бестолков на редкость)

ANB (2005-08-03 14:11:00) [15]
Удалено модератором
Примечание: Предупреждение

Digitman (2005-08-03 14:04:00) [16]

> webpauk (03.08.05 14:01) [38]
>
> > Digitman © (03.08.05 13:58) [36]
>
> еще раз повторяю, я акцентировал вопрос на слове "окна"

врешь.

тема вопроса - "ICQ".
ICQ - это сеть.

А Мирабилис-клиент сети ICQ для Win имеет к ICQ-сети такое же отношение как яичница к божьему дару.

DVM (2005-08-03 14:03:00) [17]

> webpauk

Можно и без аппбаров

function EnumWindowsProc (hWnd: HWND; Data: Pointer) : BOOL; stdcall;
var
rcWorkArea, rcWindow: TRect;
dx, dy: integer;
begin
rcWorkArea := TRect(Data^);
if IsMoveableWindow(hWnd) then
begin

// Если окно максимизировано, подстраиваем его размеры по рабочей области
GetWindowRect(hwnd, rcWindow);
if IsZoomed(hWnd) then
MoveWindow(hwnd, rcWorkArea.Left, rcWorkArea.Top, rcWorkArea.Right - rcWorkArea.Left, rcWorkArea.Bottom - rcWorkArea.Top, true)
else
begin
// Если высота окна больше высоты рабочей области
GetWindowRect(hwnd, rcWindow);
if GetWindowHeight(hWnd) > (rcWorkArea.Bottom - rcWorkArea.Top) then
begin
dy:=GetWindowHeight(hWnd)-(rcWorkArea.Bottom - rcWorkArea.Top);
if IsSizeableWindow(hWnd) then
MoveWindow(hwnd, rcWindow.Left, rcWorkArea.Top, GetWindowWidth(hWnd), GetWindowHeight(hWnd) - dy, true);
end;

// Если ширина окна больше ширины рабочей области
GetWindowRect(hwnd, rcWindow);
if GetWindowWidth(hWnd) > (rcWorkArea.Right - rcWorkArea.Left) then
begin
dx:=GetWindowWidth(hWnd)-(rcWorkArea.Right - rcWorkArea.Left);
if IsSizeableWindow(hWnd) then
MoveWindow(hwnd, rcWorkArea.Left, rcWindow.Top, GetWindowWidth(hWnd)-dx, GetWindowHeight(hWnd), true);
end;

// Если окно заезжает за верхний край рабочей области
GetWindowRect(hwnd, rcWindow);
if rcWindow.top < rcWorkArea.top then
begin
dy := rcWorkArea.top - rcWindow.top;
if dy > (rcWorkArea.Bottom - rcWindow.Bottom) then
dy := rcWorkArea.Bottom - rcWindow.Bottom;
MoveWindow(hwnd, rcWindow.Left, rcWindow.Top + dy, GetWindowWidth(hWnd), GetWindowHeight(hWnd), true);
end;

// Если окно заезжает за нижний край рабочей области
GetWindowRect(hwnd, rcWindow);
if rcWindow.Bottom > rcWorkArea.Bottom then
begin
dy := rcWindow.Bottom - rcWorkArea.Bottom;
if dy > (rcWindow.Top - rcWorkArea.Top) then
dy := rcWindow.Top - rcWorkArea.Top;
MoveWindow(hwnd, rcWindow.Left, rcWindow.Top - dy, GetWindowWidth(hWnd), GetWindowHeight(hWnd), true);
end;

// Если окно заезжает за левый край рабочей области
GetWindowRect(hwnd, rcWindow);
if rcWindow.Left < rcWorkArea.Left then
begin
dx := rcWorkArea.Left - rcWindow.Left;
if dx > (rcWorkArea.Right - rcWindow.Right) then
dx := rcWorkArea.Right - rcWindow.Right;
MoveWindow(hwnd, rcWindow.Left+dx, rcWindow.Top, GetWindowWidth(hWnd), GetWindowHeight(hWnd), true);
end;
GetWindowRect(hwnd, rcWindow);

// Если окно заезжает за правый край рабочей области
if rcWindow.Right > rcWorkArea.Right then
begin
dx := rcWindow.Right - rcWorkArea.Right;
if dx > (rcWindow.Left - rcWorkArea.Left) then
dx := rcWindow.Left - rcWorkArea.Left;
MoveWindow(hwnd, rcWindow.Left-dx, rcWindow.Top, GetWindowWidth(hWnd), GetWindowHeight(hWnd), true);
end;
end;
end;
Result := true;
end;

//------------------------------------------------------------------------------

procedure SetWorkAreaWithMoveWindows;
var
rcNewWorkArea: TRect;
rcTaskBar: TRect;

begin
rcNewWorkArea := Rect(0,
0,
GetSystemMetrics(SM_CXSCREEN),
GetSystemMetrics(SM_CYSCREEN));
GetWindowRect(hTaskBarWnd, rcTaskBar);
case GetEdge of
tbeLeft: rcNewWorkArea.Left := rcTaskBar.Right;
tbeTop: rcNewWorkArea.Top := rcTaskBar.Bottom;
tbeRight: rcNewWorkArea.Right := rcTaskBar.Left;
tbeBottom: rcNewWorkArea.Bottom := rcTaskBar.Top;
end;
SystemParametersInfo(SPI_SETWORKAREA, 0, @rcNewWorkArea, SPIF_SENDCHANGE);

EnumWindows(@EnumWindowsProc, LongInt(@rcNewWorkArea));
end;

Digitman (2005-08-03 14:02:00) [18]

> ICQ - наиболее ярко выражает суть моего вопроса

абсолютно никак не выражает.

то что у тебя в голове ассоциируется с чем-то, вовсе не обязано ассоциироваться с тем же самым у других людей.

webpauk (2005-08-03 14:01:00) [19]

> Digitman © (03.08.05 13:58) [36]

еще раз повторяю, я акцентировал вопрос на слове "окна"

webpauk (2005-08-03 13:59:00) [20]

> Digitman © (03.08.05 13:53) [34]

ICQ - наиболее ярко выражает суть моего вопроса. Как называется технология я не знал. Спасибо добрым людям, которые просветили насчет AppBar

Страницы: 1 2 3 >

Наверх

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