• Registered: 2015-04-10
  • Posts: 74

Topic: компонент Форма

Добрый вечер, Дмитрий!
Не подскажите, как  узнать размер рабочего стола?

procedure Form2_OnShow (Sender: string; Action: string);
begin
   Form2.BorderIcons:= 0;
   Form2.Left := 100; // не срабатывает если первую форму не передвигать или не свернуть (мне не мешает)
   Form2.Top:= 100; // новое окно при помощи Button1 на первой форме
   Form1.Hide;
end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: компонент Форма

Приветствую,


Скачайте пожалуйста последнюю бета версию, добавил такую возможность
http://myvisualdatabase.com/forum/viewtopic.php?id=1935


Разрешение экрана можно узнать так

Screen.Width;
Screen.Height;

так можно узнать положение клиенской части рабочего стола (т.е. без учета панели задач)

Screen.WorkAreaLeft;
Screen.WorkAreaTop;
Screen.WorkAreaWidth;
Screen.WorkAreaHeight;


Чтобы ваш код заработал корректно, для Form2 установите значение Position = poDefault

Dmitry.

3 Reply by fleshkyru (edited by fleshkyru 2015-12-10 07:16:12)

  • Registered: 2015-04-10
  • Posts: 74

Re: компонент Форма

Еще один вопросов.
Когда, ставишь программу на Windows английской версии, то у созданной программы идентифицируется меню (по умолчанию) первой(основной) формы на английском языке. Как определить язык операционной системы? (к примеру программа будет определять язык ОС  брать из *.ini файла и передавать в глобальную переменную/массив. Если не определила или нет, то язык по умолчанию.)

О, совсем забыл....
Давно уже мучаюсь, не получается разложить  файл на новую строку. Если будет свободное время не подправите?

Post's attachments

Attachment icon get.rar 3.84 kb, 448 downloads since 2015-12-10 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: компонент Форма

fleshkyru

К сожалению пока нет возможности определить язык системы с помощью скрипта.


для того чтобы заработал перевод строки в Memo, попробуйте так

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
 nFile,nStr: string;
 sl: TStringList;
    arrStr: array of string;
    i,c : integer;
begin
   nFile:= Form1.Edit1.Text;
   nStr:=HTTPGet(nFile);
   nStr := ReplaceStr(nStr, #10, #13#10);
   Form1.Memo1.Text := nStr;
end;

дело в том, что в данном HTML коде для перевода строки используется символ с кодом 10, но для Windows перевод строки это последовательность символов с кодомами 13 и 10

Dmitry.
  • Registered: 2015-04-10
  • Posts: 74

Re: компонент Форма

Спасибо!