Отправлено: 17.06.15 10:51. Заголовок: Вопросы новичка [MiniGUI]

MAIN окно не получило фокус ввода при запуске , почему ?
Пример самодостаточный.

 
 #include "minigui.ch" 
 REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866, HB_LANG_RUWIN 
 REQUEST HB_LANG_RUWIN 
 REQUEST HB_LANG_RU866 
  
  
 Func Main()    
  
  
  
 DEFINE WINDOW Form_0 AT 321 , 491 WIDTH 558 HEIGHT 175 TITLE "Почему окно не в фокусе при запуске ?"  ; 
           MAIN NOSIZE NOSYSMENU TOPMOST ON INIT {|| MdiMain()} 
  
  
      DEFINE BUTTONex Button_1 
             ROW    32 
             COL    424 
             WIDTH  110 
             HEIGHT 28 
             CAPTION "Вход"  
             ACTION { || ret:=.t.,  DoMethod("Form_0","Hide") , DoMethod("Form_1","show") }  
             FONTBOLD .t. 
      END BUTTONex   
  
      DEFINE BUTTONex Button_2 
             ROW    71 
             COL    424 
             CAPTION "Отмена" 
             ACTION { || DoMethod("Form_0","Release") } 
             WIDTH  110 
             HEIGHT 28 
             FONTBOLD .t. 
     END BUTTONex   
      
       
 END WINDOW 
 Form_0.Activate 
 Form_0.Setfocus 
 return nil 
 ***************************** 
 Func Mdimain() 
  
  
 DEFINE WINDOW Form_1 at 0,0 ; 
               WIDTH 200 HEIGHT 300 TITLE "MDI windows" ; 
               MDI  ; 
               NOSHOW  
  
  
 END WINDOW 
  
 Form_1.Center 
 Form_1.Activate 
 Form_0.Release 
 return 
  
 

 Отправлено: 19.03.21 11:57. Заголовок: rvu пишет Я-то писал..

rvu пишет

цитата:

Я-то писал про стандартное окно винды

Тогда для кнопки X моете сделать
This.Closable := .T.

 Отправлено: 19.03.21 12:36. Заголовок: Скорее всего сабж хо..

Скорее всего сабж хотят сделать like ToolWindow

#define WS_EX_TOOLWINDOW 0x00000080
ChangeStyle( Win1.Handle, WS_EX_TOOLWINDOW, , .T. )

но не факт..

 Отправлено: 19.03.21 21:34. Заголовок: rvu пишет: Сейчас п..

rvu пишет:

цитата:

Сейчас пустую иконку поставил

Ниже еще один вариант окна без иконки (исходники примера занимают 2,5 кБ)



rvu пишет:

цитата:

вы, видимо, про нестандартное средство.

Да, это нарисованный заголовок окна со своими кнопками

 Отправлено: 23.03.21 08:52. Заголовок: В итоге мои коллеги ..

В итоге мои коллеги согласились на стандартное окно, только иконку для него изменил.
Но всем спасибо за идеи! Вообще приятно и хорошо, когда пути решения есть и их даже несколько.
Самое печальное, когда на вопрос ни у кого нет ответа.

 Отправлено: 27.05.23 07:15. Заголовок: Space()

Доброго дня всем ...

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 сдулся ...?

Будут вопросы ... а на хера такая переменная, надо ...

 Отправлено: 27.05.23 12:20. Заголовок: Alex_Cher пишет: In..

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).

 Отправлено: 27.05.23 13:18. Заголовок: Alex_Cher пишет Буду..

Alex_Cher пишет

цитата:

Будут вопросы ... а на хера такая переменная, надо ...

И все таки задам такой вопрос, из любопытства. Что собираетесь делать с пустой строкой ?
Если хотите писать ее в файл, то лучше сделать это сразу в файл по открытому handle и можно даже по одному символу.

 Отправлено: 28.05.23 07:52. Заголовок: SergKis пишет: Если..

SergKis пишет:

цитата:

Если хотите писать ее в файл, то лучше сделать это сразу в файл по открытому handle и можно даже по одному символу.

а можно по подробней ... есть ли примеры. Цель такая - затереть файл (в том числе видео) перед удалением.У начальника в конторе появилось
хобби, по выходным шарит по компам подчиненных и поднимает удаленные файлы ...

 Отправлено: 28.05.23 08:48. Заголовок: Alex_Cher IF File(c..

Alex_Cher

 
 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

тоже можете проделать с ф-ями hb_vf... ( http://www.kresin.ru/hrbfaq_3.html#Doc12 )