-
Похожий контент
-
- 18 ответов
- 2 377 просмотров
-
- 7 ответов
- 1 946 просмотров
-
- 1 ответ
- 1 929 просмотров
-
- 3 ответа
- 2 262 просмотра
-
- 1 ответ
- 1 613 просмотра
-
- 1 ответ
- 2 024 просмотра
-
- 3 ответа
- 2 352 просмотра
-
- 1 ответ
- 2 608 просмотров
-
- 4 ответа
- 3 421 просмотр
-
- 4 ответа
- 5 320 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
Igor
Krug1: TCircle лежащий на TabItem4, TabControl1 лежащим на Form1
Проблема в том, что текст кажется рисуется по координатам формы, а не Krug1, или TabItem4, или TabControl1 (заменял в коде krug1.Canvas на TabControl1.Tabs[3].Canvas всё равно по координатам формы рисует).
В теории представляю, что если по координатам круга то TRectF.Create(0, 0, krug1.Width, krug1.Height) должен работать, но нет.
В коде (кусок из события Click объекта krug1) ниже по логике в TRectF.Create с опорой на координаты Tab'а, хотя канва krug1, в итоге рисует над TabControl1:
with krug1.Canvas do begin BeginScene; try Fill.Color := TAlphaColorRec.Red; Fill.Kind := TBrushKind.Solid; Font.Size := 10; FillText(TRectF.Create(krug1.Position.X, krug1.Position.Y, krug1.Position.X+krug1.Width, krug1.Position.Y+krug1.Height), 'Текст', False, 1, [], TTextAlign.Center, TTextAlign.Center); finally EndScene; end; end;2 ответа на этот вопрос
Рекомендуемые сообщения