Нашёл у себя в старых завалах нерабочие часики, теперь вроде довёл до ума.
Любуйтесь =)
У кого Win98 - проверьте плз, должно работать и там.
Модератор: BV
BV писал(а):Где видел?... Либо на vb.kiev.ua, либо на planet-source-code.com... Да ты хоть на окно свойств даты/времени взгляни - чистой воды копия
CALL BeginPath(HDC)
CALL TextOut (BYVAL HDC, CX, CY, BYVAL STRPTR(sDUMP), LEN(sDUMP)) '<- Print text
CALL EndPath (HDC)
hRgn1 = PathToRegion(hDC)
CALL GetRgnBox (BYVAL hRgn1, RCT)
hRgn2 = CreateRectRgnIndirect(RCT)
CALL CombineRgn (hRgn2, hRgn2, hRgn1, %RGN_AND)
CALL SetWindowRgn(BYVAL hWndMain, BYVAL hRgn2, BYVAL %TRUE)
BV писал(а):Где-то я уже это видел...
Да и вообще - поставь ты себе на C: Win98, на D: WinXP, и оставь E: для Longhorn
tyomitch писал(а):X-BOND, нормальный код... Почему же при вращении подкладка другого цвета на миг проявляется?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15