Вверх ↑
Этот топик читают: Гость
Ответов: 355
Рейтинг: 2
#1: 2011-07-20 23:15:41 ЛС | профиль | цитата
Как можно сделать, чтобы позиция формы была снизу справа, в углу экрана ?
карма: 1

0
Ответов: 1821
Рейтинг: 168
#2: 2011-07-20 23:19:01 ЛС | профиль | цитата
nickware, компонент MainForm, с-ва Left и Top, и справка тебе в помощь.
карма: 5

0
Ответов: 355
Рейтинг: 2
#3: 2011-07-20 23:26:25 ЛС | профиль | цитата
sаmakacd, эти с-ва содержат эти параметры, а не дают задать их.
карма: 1

0
Ответов: 1821
Рейтинг: 168
#4: 2011-07-20 23:28:47 ЛС | профиль | цитата
nickware, кто сказал нажми на квадратик слева, около свойства Left или Right.
Sreenshot
карма: 5

0
файлы: 1scrsvcv.jpg [546.4KB] [159]
Ответов: 355
Рейтинг: 2
#5: 2011-07-20 23:37:10 ЛС | профиль | цитата
Спасибо, я не там смотрел.
Так а как сделать чтобы форма была в углу, в зависимости от разрешения экрана?
карма: 1

0
Ответов: 1821
Рейтинг: 168
#6: 2011-07-20 23:51:41 ЛС | профиль | цитата
nickware, Xформы = Wэкрана - Wформы и Yформы = Hэкрана - Hформы
карма: 5

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2011-07-20 23:52:17 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-11 06:31:46
карма: 0

0
Ответов: 1058
Рейтинг: 76
#8: 2011-07-21 00:27:33 ЛС | профиль | цитата
Для раздумывания + вики + справка + немного фантазии

code_24685.txt
карма: 0

0
файлы: 1code_24685.txt [750B] [107]
Ответов: 355
Рейтинг: 2
#9: 2011-07-21 00:40:44 ЛС | профиль | цитата
tom-it, спасибо.
карма: 1

0
Ответов: 3889
Рейтинг: 362
#10: 2011-07-21 08:28:45 ЛС | профиль | цитата
nickware, tom-it, Рабочую область экрана за вычетом панелей следует узнавать у системы, а не константами пользоваться, панели могут быть в разном количестве и размере с любой стороны:

Add(MainForm,546476,203,259)
{
link(onCreate,4949685:doFor,[(265,279)(265,265)])
}
Add(Screen,13531042,378,182)
{
Point(TopWorkarea)
Point(LeftWorkarea)
Point(BottomWorkarea)
Point(RightWorkarea)
}
Add(GetIndexData,15693123,378,259)
{
Count=7
link(onIndex,10518217:doGetString,[(453,265)(453,286)])
link(Data1,13531042:Width,[])
link(Data2,13531042:Height,[])
link(Data3,13531042:CurFrequency,[])
link(Data4,13531042:TopWorkarea,[])
link(Data5,13531042:LeftWorkarea,[])
link(Data6,13531042:BottomWorkarea,[])
link(Data7,13531042:RightWorkarea,[])
}
Add(For,4949685,294,259)
{
End=6
link(onEvent,15693123:doIndex,[])
}
Add(ListBox,4292384,448,336)
{
Left=465
Top=475
Align=5
}
Add(StrList,10518217,476,238)
{
Strings=#6:Ширина|6:Высота|7:Частота|15:Верхняя граница|13:Левая граница|14:Нижняя граница|14:Правая граница|
Point(doGetString)
Point(onGetString)
link(onGetString,13157166:doStrCatDlm,[(520,251)(520,297)(366,297)(366,342)])
}
Add(StrCatDelim,13157166,378,336)
{
Delimiter=": "
link(onStrCatDlm,4292384:doAdd,[])
link(Str2,15693123:Var,[(391,314)(384,314)])
}
Исправил Вашу схему:

Add(MainForm,901007,511,231)
{
Point(doLeft)
Point(Width)
Point(Height)
Point(onResize)
Point(doTop)
link(onCreate,14830639:doWork2,[])
link(onResize,14830639:doWork3,[(555,258)])
}
Add(Screen,6172066,350,259)
{
Point(BottomWorkarea)
Point(RightWorkarea)
}
Add(Math,10619224,427,336)
{
OpType=1
ResultType=0
link(onResult,901007:doLeft,[(485,342)(485,265)])
link(Op1,6172066:RightWorkarea,[(433,327)(384,327)])
link(Op2,901007:Width,[(440,326)(517,326)])
}
Add(Math,10737364,434,406)
{
OpType=1
ResultType=0
link(onResult,901007:doTop,[(498,412)(498,272)])
link(Op1,6172066:BottomWorkarea,[(440,395)(377,395)])
link(Op2,901007:Height,[(447,396)(524,396)])
}
Add(Hub,8148952,329,336)
{
link(onEvent1,10619224:doOperation,[])
link(onEvent2,10737364:doOperation,[(358,349)(358,412)])
}
Add(HubEx,14830639,551,245)
{
Angle=3
link(onEvent,8148952:doEvent1,[(555,221)(303,221)(303,342)])
}

карма: 1

0
Ответов: 1058
Рейтинг: 76
#11: 2011-07-21 11:19:26 ЛС | профиль | цитата
[offtop]
1nd1g0 писал(а):
Исправил Вашу схему:

Спасибо.
Рисовал ночью и не зацикливался на корректности работы, ведь ето же пример.
В котором заложено скрытое послание, типа: читать справку, учится и самостоятельно разбираться со схемостроением.

P.S. Если вы заметили то в последнее время вопросов практически не задаю, или вопросы без конкретного смысла, как сказать "вокруг да около..." Не знаю как другие, а мне не нравится когда все решают за меня. Хочется самому докопаться до истины. А если все сделают за вас, то мозги расслабляются и теряется интерес к дальнейшей разработке. [/offtop]
карма: 0

0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)