Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TShape поверх TcxImage / 25 сообщений из 25, страница 1 из 1
15.03.2019, 16:31
    #39786851
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Может, кто-нибудь подскажет простой метод... Очень неохота рамку ручками рисовать :-(
...
Рейтинг: 0 / 0
15.03.2019, 18:21
    #39786937
Arioch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Shape1.BringToFront ?

что конкретно не получается ?
...
Рейтинг: 0 / 0
15.03.2019, 18:49
    #39786965
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
AriochShape1.BringToFront ?

что конкретно не получается ?

Не отрабатывает, BringToFront... Даже в дизайнере
...
Рейтинг: 0 / 0
15.03.2019, 19:12
    #39786979
krapotkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
не делайте так. не выйдет
...
Рейтинг: 0 / 0
15.03.2019, 19:16
    #39786982
Arioch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubНе отрабатывает

что конкретно не получается ?
...
Рейтинг: 0 / 0
15.03.2019, 19:34
    #39786996
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
TShape всегда под TcxImage
...
Рейтинг: 0 / 0
15.03.2019, 19:36
    #39786997
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
krapotkinне делайте так. не выйдет

Печально... Над просто TImage все работает... А вот девки
...
Рейтинг: 0 / 0
15.03.2019, 21:54
    #39787042
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Код: pascal
1.
2.
TShape = class(TGraphicControl)
TcxCustomImage = class(TcxCustomEdit)



Графический контрол не может быть поверх окна, потому что графический контрол рисуется на том окне, на котором расположен.

Что мешает использовать два TcxImage ?
...
Рейтинг: 0 / 0
16.03.2019, 03:02
    #39787084
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubМожет, кто-нибудь подскажет простой метод... Очень неохота рамку ручками рисовать :-(То есть парить себе и другим мозги охота, а вызвать один метод, чтобы нарисовать прямоугольник в том же TcxImage никак?
...
Рейтинг: 0 / 0
16.03.2019, 08:42
    #39787094
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
white_niggerzinpubМожет, кто-нибудь подскажет простой метод... Очень неохота рамку ручками рисовать :-(То есть парить себе и другим мозги охота, а вызвать один метод, чтобы нарисовать прямоугольник в том же TcxImage никак?

А эт как?
...
Рейтинг: 0 / 0
16.03.2019, 08:44
    #39787095
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
DimaBr
Код: pascal
1.
2.
TShape = class(TGraphicControl)
TcxCustomImage = class(TcxCustomEdit)



Графический контрол не может быть поверх окна, потому что графический контрол рисуется на том окне, на котором расположен.

Что мешает использовать два TcxImage ?

В каком смысле два TcxImage? Мне рамка на картинке нужна, которая, произвольный кусок обводит
...
Рейтинг: 0 / 0
16.03.2019, 14:58
    #39787148
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpub,

нарисуй рамку на картинке, если канвас есть чей-то
...
Рейтинг: 0 / 0
16.03.2019, 20:02
    #39787194
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubВ каком смысле два TcxImage? Мне рамка на картинке нужна, которая, произвольный кусок обводит
Вместо TShape использовать другой TcxImage, на котором нарисовать рамку
...
Рейтинг: 0 / 0
16.03.2019, 20:06
    #39787195
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Или же переприсвоить Parent
Код: pascal
1.
2.
3.
4.
procedure TForm1.FormClick(Sender: TObject);
begin
  Shape1.parent := cxImage1
end;



...
Рейтинг: 0 / 0
16.03.2019, 20:49
    #39787201
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
DimaBrИли же переприсвоить Parent
Код: pascal
1.
2.
3.
4.
procedure TForm1.FormClick(Sender: TObject);
begin
  Shape1.parent := cxImage1
end;





У меня так не работает... D6 девки... 5.4 вроде...

До понедельника точно не скажу...
...
Рейтинг: 0 / 0
16.03.2019, 21:12
    #39787205
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
makhaonzinpub,

нарисуй рамку на картинке, если канвас есть чей-то

Придётся так... Оч не хотелось...
...
Рейтинг: 0 / 0
16.03.2019, 21:13
    #39787206
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Всем спасибо, закрываемся.
...
Рейтинг: 0 / 0
16.03.2019, 21:35
    #39787210
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubУ меня так не работает... D6 девки... 5.4 вроде...
Этого не может быть, потому что неможет быть никогда
...
Рейтинг: 0 / 0
17.03.2019, 09:48
    #39787266
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
DimaBrzinpubУ меня так не работает... D6 девки... 5.4 вроде...
Этого не может быть, потому что неможет быть никогда

Я же говорю, даже в дизайнере TShape всегда под TcxImage. Если просто кинуть на форму два компонента..
...
Рейтинг: 0 / 0
17.03.2019, 18:26
    #39787360
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubЯ же говорю, даже в дизайнере TShape всегда под TcxImage. Если просто кинуть на форму два компонента..
Причём тут дизайнер ? В дизайнере вы не можете кинуть TShape на TcxImage
...
Рейтинг: 0 / 0
17.03.2019, 18:33
    #39787363
defecator
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubDimaBrИли же переприсвоить Parent
Код: pascal
1.
2.
3.
4.
procedure TForm1.FormClick(Sender: TObject);
begin
  Shape1.parent := cxImage1
end;






У меня так не работает... D6 девки... 5.4 вроде...

До понедельника точно не скажу...
дельфи только на работе ?
оно тебе не надо, поверь
...
Рейтинг: 0 / 0
18.03.2019, 11:19
    #39787620
Arioch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
выкинуть tcximage и использовать Graphics32 ? там есть готовый класс - прямоуг. выделение, которое пользователь как хочет таскает. RubberBand кажется
...
Рейтинг: 0 / 0
18.03.2019, 11:36
    #39787634
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Arioch,

Да мне статично надо...

Всё получилось!

Просто изначально хотелось универсально для любого (TcxImage, Timage.... итд).
...
Рейтинг: 0 / 0
18.03.2019, 11:42
    #39787637
Arioch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
zinpubTShape всегда под TcxImage

ну собственно тут очевидно другой Z-Order, чем тебе нужен и надо цепочку Parent переопределять, понеже возможно

хорошо, что получилось

Жаль, что сразу не написал что не так было
...
Рейтинг: 0 / 0
18.03.2019, 11:48
    #39787642
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TShape поверх TcxImage
Arioch,

Да я забыл совсем, что Timage не TWinControl... сто лет назад им пользовался последний раз :-)
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TShape поверх TcxImage / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]