SergKis: rvu пишет Я-то писал про стандартное окно винды Тогда для кнопки X моете сделать This.Closable := .T.
Петр: Скорее всего сабж хотят сделать like ToolWindow #define WS_EX_TOOLWINDOW 0x00000080 ChangeStyle( Win1.Handle, WS_EX_TOOLWINDOW, , .T. ) но не факт..
gfilatov2002: rvu пишет: Сейчас пустую иконку поставил Ниже еще один вариант окна без иконки (исходники примера занимают 2,5 кБ) rvu пишет: вы, видимо, про нестандартное средство. Да, это нарисованный заголовок окна со своими кнопками
rvu: В итоге мои коллеги согласились на стандартное окно, только иконку для него изменил. Но всем спасибо за идеи! Вообще приятно и хорошо, когда пути решения есть и их даже несколько. Самое печальное, когда на вопрос ни у кого нет ответа.
Alex_Cher: Доброго дня всем ... Space() возвращает символьную строку, которая состоит только из символов пробела (Chr(32)). Максимальная длина такой строки в Xbase++ не ограничена - так сказано в описании... По факту при создании переменной долее 850 Mb вылетает ошибка - Application Internal Error - C:\MiniGUI\SAMPLES\MY_BASIC\EraseFail_2\EraseFail.exe Terminated at: 2023-05-24 10:38:30 Info: Harbour MiniGUI Extended Edition 23.02.2 (32-bit) ANSI Неисправимая ошибка 9006: hb_xgrab не может распределить память Called from SPACE(0) in EraseFail.prg Called from DELET_FI(174) in EraseFail.prg Called from ERASE_OB(255) in EraseFail.prg Called from (b)MAIN(58) in EraseFail.prg Called from EVENTS(0) in h_events.prg Called from DOMESSAGELOOP(0) in h_windows.prg Called from _ACTIVATEWINDOW(0) in h_windows.prg Called from MAIN(65) in EraseFail.prg ------------------------------------------------------------------------ Это можно как-нибудь обойти .... или Harbour сдулся ...? Будут вопросы ... а на хера такая переменная, надо ...
gfilatov2002: Alex_Cher пишет: Info: Harbour MiniGUI Extended Edition 23.02.2 (32-bit) ANSI Неисправимая ошибка 9006: hb_xgrab не может распределить память Возможно, поможет решить проблему переход на 64-битный Си компилятор. Варианты: - Borland/Embarcadero C++ 7.40 (64-bit); - Microsoft Visual C++ 2022 (64-bit); - MinGW GNU C 13.1 (64-bit).
SergKis: Alex_Cher пишет Будут вопросы ... а на хера такая переменная, надо ... И все таки задам такой вопрос, из любопытства. Что собираетесь делать с пустой строкой ? Если хотите писать ее в файл, то лучше сделать это сразу в файл по открытому handle и можно даже по одному символу.
Alex_Cher: SergKis пишет: Если хотите писать ее в файл, то лучше сделать это сразу в файл по открытому handle и можно даже по одному символу. а можно по подробней ... есть ли примеры. Цель такая - затереть файл (в том числе видео) перед удалением.У начальника в конторе появилось хобби, по выходным шарит по компам подчиненных и поднимает удаленные файлы ...
SergKis: Alex_Cher [pre2] IF File(cFile) IF ( hFil := FOpen ( cFile, 2 ) ) > 0 nLen := FSeek( hFil, 0, 2 ) FSeek( hFil, 0, 0 ) FOR nI := 1 TO nLen FWrite( hFil, chr(32) /*chr(0)*/ ) NEXT FClose( hFil ) ENDIF ENDIF[/pre2] тоже можете проделать с ф-ями hb_vf... ( http://www.kresin.ru/hrbfaq_3.html#Doc12 )