четверг, 10 января 2008
01:49

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2711-01-10
#original-date: 28.12.2007 Fri
#original-time: 1:10 AM
#original-day:  2711
#original-host: WinXP Prof SP2 (Build 2600)

Но самое обидное - на на МТС до сих пор не настроили GPRS! Тоесть ни каких вечерних Инетов, привет Дальсвязи, Инет снова превращается в сидение прикованной к компьютеру >_< Гадство...

#music: Кyichi Sakamoto\Appleseed 2004\Coro

URL
01:49

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2711-23-19
#original-date: 28.12.2007 Fri
#original-time: 11:19 PM
#original-day:  2711
#original-host: WinXP Prof SP2 (Build 2600)

Запустила в кои-то веки Файрфикс... Господи, какой же он тормоз... И это при том, что у меня 512 метров на борту, а не 64!

#music: MOVE\Initial D Second Stage\Blazin' Beat

URL
01:49

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2711-22-18
#original-date: 28.12.2007 Fri
#original-time: 10:18 PM
#original-day:  2711
#original-host: WinXP Prof SP2 (Build 2600)

Мда... Смотрю обойки на настольном компьютере, и вижу, что качество не то, все минусы, которые компенсировались плохим дисплюем на буке, вылезают наружу... И что делать?

URL
01:48

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2711-00-17
#original-date: 28.12.2007 Fri
#original-time: 12:17 AM
#original-day:  2711
#original-host: WinXP Prof SP2 (Build 2600)

Кстати, у меня всёже есть Initial D First Stage с нормальным качеством ^_^v

Зато мыль забарахлила. А я всё слонялась по магазинам и подумывала купить новую... И чего не купила? Дура!

#music: Taiho Shichauzo\Fukui Mariko\Love Somebody

URL
01:48

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2711-00-50
#original-date: 28.12.2007 Fri
#original-time: 12:50 AM
#original-day:  2711
#original-host: WinXP Prof SP2 (Build 2600)

Так старательно всё под себя приспосабливаю, что нет ощущения что вернулась домой... Зато для Даны добавила центровку окна, чтобы не заморачиваться с разными разрешениями, когда перекидываю конфиг...

А вот основа ^_^

' BOOL GetWindowRect(HWND hWnd, LPRECT lpRect)&#59;
Declare Proc GetWindowRect Lib "User32" (hWnd As Integer, lpRect As Integer) As Integer&#59;

' BOOL MoveWindow(HWND hWnd, int X, int Y, int nWidth, int nHeight, BOOL bRepaint)&#59;
Declare Proc MoveWindow Lib "User32" (hWnd As Integer, X As Integer, Y As Integer, nWidth As Integer, nHeight As Integer, bRepaint As Integer) As Integer&#59;

' HWND GetDesktopWindow(VOID)&#59;
Declare Proc GetDesktopWindow Lib "User32" () As Integer&#59;

' BOOL SystemParametersInfo(UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni)&#59;
Declare Proc SystemParametersInfoA Lib "User32" (uiAction As Integer, uiParam As Integer, pvParam As Integer, fWinIni As Integer) As Integer&#59;

Const SPI_GETWORKAREA = 48&#59;

'====================================================================
' [Note] Current: 27, 23, 773, 576
'====================================================================
Main ()
  Dim RC As Integer&#59;
  Dim Rect(4) As Integer&#59;
  Dim WinRect(4) As Integer&#59;
  Dim hWndDesk As Integer&#59;
  Dim Top As Integer&#59;
  Dim Left As Integer&#59;
  Dim Width As Integer&#59;
  Dim Height As Integer&#59;
  Dim Padding As Integer&#59;
  
  ' Get desktop dimensions...
  hWndDesk = GetDesktopWindow()&#59;
  RC = SystemParametersInfoA(SPI_GETWORKAREA, 0, Rect, 0)&#59;
  
  ' Get Window Dimensions...
  RC = GetWindowRect(.hMainWnd, WinRect)&#59;
  
  ' Debug...
  'MsgBox("Rect is [" + Str(Rect(1)) + ", " + Str(Rect(2)) + "][" + Str(Rect(3)) + ", " + Str(Rect(4)) + "]")&#59;
  'Rect(1) = 50&#59;
  'Rect(2) = 0&#59;
  'Rect(3) = 1024&#59; ' 800&#59;
  'Rect(4) = 668&#59;  ' 500&#59;
  'MsgBox("Rect is [" + Str(Rect(1)) + ", " + Str(Rect(2)) + "][" + Str(Rect(3)) + ", " + Str(Rect(4)) + "]")&#59;
  'MsgBox("Rect is [" + Str(WinRect(1)) + ", " + Str(WinRect(2)) + "][" + Str(WinRect(3)) + ", " + Str(WinRect(4)) + "]")&#59;
  
  '' Calculate size of window in work area rect...
  'Padding = 25&#59;
  'Left = Rect(1) + Padding&#59;
  'Top = Rect(2) + Padding&#59;
  'Width = (Rect(3) - Rect(1)) - Padding * 2&#59;
  'Height = (Rect(4) - Rect(2)) - Padding * 2&#59;
  
  ' Center form in screen
  Width = WinRect(3) - WinRect(1)&#59;  ' 750&#59;
  Height = WinRect(4) - WinRect(2)&#59; ' 550&#59;
  Left = Rect(1) + ((Rect(3) - Rect(1)) - Width) \ 2&#59;
  Top = Rect(2) + ((Rect(4) - Rect(2)) - Height) \ 2&#59;
  
  ' Resize window...
  RC = MoveWindow(.hMainWnd, Left, Top, Width, Height, 1)&#59;
End



То что Debug - это просто для отладки строки. Дальше закоментировано первоначальное решение. Оно должно было просто оставлять с каждой стороны окна по 25 пикселей. В общем, тоже вариант, но я не люблю когда небольшие программы выводят гигантские окна. Word - во весь экран, Дана - на его часть.

Интересно, что в AJPappsSupport.DLL у меня есть asCenterFormEx(), которая делает примерно тоже самое. Но кода там намного больше... Лягу спать - не хочу разбираться и не буду, потому как подозреваю в чём там дело...

/* А ещё надо будет доработать Trei no meido, чтобы она открывала файл дневника примерно как Win16 утилита... Или доработаю и ещё прикручу утилиту к горячей клавише... */

#music: BARNABYS\Suki Mami Mai Tai\Mitsu (Instrumental)

URL
01:48

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-22-49
#original-date: 27.12.2007 Thu
#original-time: 10:49 PM
#original-day:  2710
#original-host: WinXP Prof SP2 (Build 2600)

Так... Я дома... Это можно понять из хедера поста ^^ Кстати, у меня началась весёлая репликация наработок с буки на настольный. Зато в кои-то веки сижу перед гигантским экраном, у меня 1024x768, и мне это нравится ^_^ Wai! Wai! Wai desu! ^_^

#music: You're Under Arrest! OST2\Ai to seni no Strike Medoly

URL
среда, 26 декабря 2007
23:28

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-08-26
#original-date: 27.12.2007 Thu
#original-time: 8:26 AM
#original-day:  2710
#original-host: Win98SE

Кстати, новый дизайн ввели. Теперь открывается всё еле-еле... Mail.ru, блин, а не дайрики...

URL
23:27

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-08-24
#original-date: 27.12.2007 Thu
#original-time: 8:24 AM
#original-day:  2710
#original-host: Win98SE

Полнчаса до звонков. Пора готовиться... УУУУУ! Не хочу на работу! Не хочу Дальсвязь! Убейте меня!

URL
23:27

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-07-31
#original-date: 27.12.2007 Thu
#original-time: 7:31 AM
#original-day:  2710
#original-host: Win98SE

Уже несколько часов в Спирите разворачивается ожесточённая дискуссия. Я было поучаствовала, но вовремя почувствовала что бесполезно спорить с фанатиками, которые что не скажи талдычат своё (точнее то, что было ранее в Спирите написанно про современные технологии). /* Ну, это типа HTML тэги - современные технологии. */ И вот мне в ящик уже несколько часов сыплются уведомления. При чём они пишут так быстро что возникает вопрос: им болеше заняться чтоли нечем кроме как сидеть перед компутером и непрерывно жать на F5?

URL
23:27

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-05-31
#original-date: 27.12.2007 Thu
#original-time: 5:31 AM
#original-day:  2710
#original-host: Win98SE

А папочка в Бэки "Письма читателей" звучит слишком гордо, особенно если учесть, что там письма от одного читателя, который хочет быть соавтором...

URL
23:27

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-05-18
#original-date: 27.12.2007 Thu
#original-time: 5:18 AM
#original-day:  2710
#original-host: Win98SE

Только что заметила внизу надпись "ООО "Дайри.ру""... Это что-то новенькое.

URL
23:27

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-05-07
#original-date: 27.12.2007 Thu
#original-time: 5:07 AM
#original-day:  2710
#original-host: Win98SE

И почему меня не зовут Гузель Кальметьева?...

URL
23:26

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-05-01
#original-date: 27.12.2007 Thu
#original-time: 5:01 AM
#original-day:  2710
#original-host: Win98SE

Скоро уже утро, а я не спала... Чёртов насморк! Зато посплю в вертолёте.

В общем, если я не долечу, считайте меня комунисткой. А если я долечу - не считайте меня комунсткой ^^

URL
23:26

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2710-04-13
#original-date: 27.12.2007 Thu
#original-time: 4:13 AM
#original-day:  2710
#original-host: Win98SE

Значится так. Если хотите Линде что-то подарить, но не знаете что, пожалуйста, не суйте скомканые купюры как взятку, всё равно 500 рублей - это маловато. Просто подарите мягкую игрушку за 150 рублей, и Линда будет счастлива.

URL
10:06

Обновление на сайте

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2709-18-53
#original-date: 26.12.2007 Wed
#original-time: 6:53 PM
#original-day:  2709
#original-host: Win98SE



  • HOSTS.
    • Добавила несколько рекламных хостов.



  • Guest wallpapers.
    • Добавила обойку.



  • Programs.

    • Добавила "AJPapps - Windows time meter for Win16 1.00.0000".

    • Добавила "AJPapps - Добавление в автозагрузку 1.00.0000".





URL
10:06

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2709-18-35
#original-date: 26.12.2007 Wed
#original-time: 6:35 PM
#original-day:  2709
#original-host: Win98SE

Windows 3.11 явно глючит в DOSBox. Сколько ковырялась, а по внутреннему счётчику она проработала всего 25 секунд...

URL
10:06

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2709-18-28
#original-date: 26.12.2007 Wed
#original-time: 6:28 PM
#original-day:  2709
#original-host: Win98SE

Кстати...

Option Explicit

Declare Function GetCurrentTime Lib "User" () As Long
Declare Function GetTickCount Lib "User" () As Long

'=========================================================
Function GetDays (ByVal Days As Integer) As String
  If Days = 0 Then Exit Function
  
  Select Case Days
    Case 1, 21, 31, 41, 51, 61
      GetDays = Days & " день, "
    Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 62, 63, 64
      GetDays = Days & " дня, "
    Case Else
      GetDays = Days & " дней, "
  End Select
End Function

'=========================================================
Sub Main ()
  Dim TC As Long
  Dim Days As Integer
  Dim Hours As Integer
  Dim Minutes As Integer
  Dim Seconds As Integer
  Dim MSeconds As Integer
  Dim TXT As String
  
  Const MS_PER_SECOND& = 1000&
  Const MS_PER_MINUTE& = MS_PER_SECOND * 60&
  Const MS_PER_HOUR& = MS_PER_MINUTE * 60&
  Const MS_PER_DAY& = MS_PER_HOUR * 24&
  
  '=======================================================
  TC = GetTickCount()
  '[DEBUG]TC = TC + 16 * MS_PER_DAY
  
  '=======================================================
  Days = TC \ MS_PER_DAY
  TC = TC - (Days * MS_PER_DAY)
  
  Hours = TC \ MS_PER_HOUR
  TC = TC - (Hours * MS_PER_HOUR)
  
  Minutes = TC \ MS_PER_MINUTE
  TC = TC - (Minutes * MS_PER_MINUTE)
  
  Seconds = TC \ MS_PER_SECOND
  TC = TC - (Seconds * MS_PER_SECOND)
  
  MSeconds = TC
  
  '=======================================================
  TXT = Hours & ":" & Format(Minutes, "00") & ":"
  TXT = TXT & Format(Seconds, "00") & "." & MSeconds
  TXT = GetDays(Days) & TXT
  TXT = "Windows в работе: " & TXT
  
  MsgBox TXT, MB_ICONINFORMATION
End Sub



Open source, блин ^^'

URL
10:06

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2709-18-20
#original-date: 26.12.2007 Wed
#original-time: 6:20 PM
#original-day:  2709
#original-host: Win98SE

Что общего между Madlax и MezzoForte? Совершенно разные вещи, но одно их роднит. Дело в том, что они как бы продолжения других не менее известных вещей - Noir и KITE, но в отличие от предшественников они намного более оптимистичные и даже с хорошим концом. В MezzoForte вообще присутствует некая комедийность и лёгкость (вспоминаем сцену с банками, например). В Madlax всё более трагично, но всёже нет той беспросветной тьмы из Нуара.

/* Но я всёже отдаю предпочтение Madlax - уж больно картинка замечательная и стиль мне нравится... */

URL
10:06

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2709-17-43
#original-date: 26.12.2007 Wed
#original-time: 5:43 PM
#original-day:  2709
#original-host: Win98SE

Кстати, у меня оформилось интересное правило. Программы для Win32 у пакую в RAR (я говорю про загрузки с сайта), программы для Win16 я пакую в ZIP, а для DOS - в ARJ. Последнее, кстати, получилось по историческим причинам. Просто когда я начала делать свою волшебную дискету, мне попался только ARJ для DOS.

URL
10:06

Тотальная неудачница и убийца жёстких дисков.
#post-id: 2709-11-53
#original-date: 26.12.2007 Wed
#original-time: 11:53 AM
#original-day:  2709
#original-host: Win98SE

Не улетела, но чувствую себя крайне отвратительно...

Кстати, ещё один человек кроме меня заметил сходство Scraapped Princess и Brave Soul ^_^ Что-то мне подсказывает, что BS вышла раньше, и авторы SP в неё резались очень много ^^

Надо будет как вернусь выложить скриншоты для сравнения.

URL