Всем привет

скачал свежую DRKB (спасибо создателм), попробовал сделать пример, столкнулся с ошибкой

[Error] Unit1.pas(43): Undeclared identifier: 'Pts'

действительно непонятно что это за фрукт, плюс на эту команду "CreatePolygonRgn" не могу вызвать справку в Delphie.  Можете объяснить как это должно работать?





Озадачен такой проблемкой - хочу сделать форму нестандартного вида, как бы намертво склеенную из 2-х прямоугольных форм (например, одинаковых), но одна чуть выше и правее другой (наложены одна на другую). Не проблема написать обработчик перемещения формы и, соответсвенно, привязать координаты другой к этим перемещениям, но есть проблема - форма которая левее не должна становиться активной и перекрывать собой форму правее.  Т.е. правая форма всегда должна оставаться активной, даже если курсор мыши перемещает левую форму...

Помогите разобраться, можно ли и как это обойти?

Это сообщение отредактировал(а) Alexeis - 26.9.2007, 19:20

Перехватывай OnActive... А почему нельзя сделать просто форму нестандартной формы, обрезанную по какому-то региону?

Так у тебя хотя бы где нибудь описывается var Pts, а так конечно будет выдавать ету ошибку, прочти внимательней пример   

  Ее нужно смотреть в справке по API (p.s. в Delphi 2005 и выше все справки объединены. Оч. удобно)

Лучше воспользуйся регионами и вырежи нужную фигуру.

Дык и я о том же, товарисч!

Думаю в  справке правильнее помещать рабочие примеры, чтобы на их работе разбираться дальше.

Спасибо товарищу Rodman у, сработало, хоть и несколько не так как ожидалось...

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

Например это может быть нужно, если хочется чтобы одна форма была не прозрачной, а у другой полупрозрачной.
Делай примерно так:

В общем то, я так и хотел сделать (но не знаю как), думал с двумя формами будет проще. 
Подскажите пожалуйста, как пользоваться регионами и вырезать формы?

Это сообщение отредактировал(а) Scotch - 25.9.2007, 19:03

Вот код, вырежет дырку.

Спасибо, Alix, это то что было нужно!

  

Посмотри в DRKB или в DelphiWorld...

Вот, вот, вот, вот и вот.

Выбирай   

Спасибо, спасибо, спасибо, спасибо и спасибо   

буду ваять и разбираться 

В нашем FAQe не хуже написано 


Как создавать не квадратные формы и контролы?
Как создать круглую форму?
Как сделать дырку в окне?
Как создать форму в форме эллипса?
Как сделать Memo с закруглёнными краями?

И правда, на нашем FAQ все лучше расписано!

Расписано может быть и хорошо, но по моей проблемке ничего не нашел
Мне нужно вырезать в форме 2 прямоугольника, если делать это через SetWindowRgn то захожу в тупик - вырезается только 1, как ни крути

  Все это делается последовательными вызовами CombineRgn. Эта функция служит для объединения и ее можно вызывать много раз для изменения региона.

Модератор: темы объединил.

Это сообщение отредактировал(а) Alexeis - 26.9.2007, 19:18

Понятно, оказывается все просто   

А вот у меня, так, ради интереса, появилась пара вопросов.

1. При "обрезке" формы регионом она теряет ХР-шный вид. Как с этим бороться?
2. Если то же самое делать с кнопой, то края у нее обрезаются довольно нелицеприятно. Регион просто ограничивает область видимости контрола. Мне бы, например, хотелось бы увидеть ту же кнопку, но с "правильными" краями. Это возможно без долгих извращений?

  Сам все сказал.

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

Alexeis, это все так. Может быть я не слишкм конкретно вопрос ставлю?.. На пальцах. У кнопы, если есть манифест, вокруг синенькая рамочка. Прямоугольная. А как мне сделать круглый батон с такой же рамочкой? Да и вообще батон любой формы? Да тоже и формы касается. Есть ли вариант ей по границе региона бордер налепить?

И еще про форму. После установки ей региона, у нее пропадает стиль ХР. Сразу после первой перерисовки.

М-да... Из того, что смог найти, делаю вывод, что без извращений не обойтись...

А что дырку то делать... TransparentColor в true, TransparentColorValue = clRed (например), и рисуем себе дырку красного цвета...  *для формы)

Это сообщение отредактировал(а) lukas - 29.9.2007, 16:45

  Так дырка тоже регионами делается, только вычитанием их. TransparentColor - для формы работает только, для компонентов не годиться.