powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как работает функция SelectObject?
25 сообщений из 36, страница 1 из 2
Как работает функция SelectObject?
    #39626368
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте,

Font назначить канвасу можно так oldfont := selectobject(canvas.handle,MyFont.handle);
В OldFont вернется при этом Handle замененного Font, который можно ему тем же макаром вернуть взад после употребления.
Но почему тогда canvas.font показывает старые значения? Казалось бы, должен показать значения нового фонта, его имя, его размер... Хотя, если попросить canvas нарисовать чего-нибудь, рисует новым фонтом.

Спасибо.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626389
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
canvas.font ничего не знает о ваших манипуляциях с WinAPI напрямую.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626708
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
oldFont := canvas.Font;
canvas.Font := MyFont;
try
  ..........
finally
  canvas.Font := oldFont;
end;
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626823
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Vasilisk_
Код: pascal
1.
2.
oldFont := canvas.Font; -- здесь назначение ссылки
canvas.Font := MyFont; -- а здесь назначение свойств через assign



Уверены в коде?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626862
LoneFast
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как уже верно сказали - нежелательно смешивать WinAPI и VCL. Обычно будут только глюки.
Максимум что можно попробовать:
Код: pascal
1.
Canvas.Font.Handle:=MyFont;

Но об старом/бывшем думаю можно уже забыть.

А почему вы не хотите хранить нужные экземпляры в виде объектов TFont?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626887
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LoneFastА почему вы не хотите хранить нужные экземпляры в виде объектов TFont?

Я не сказал, что не хочу. Я лишь спросил, почему так, как есть. Ответ насчет смешивания - вполне устраивает. VCL и API не надо путать и ожидать от них синхронизации. Смешивать-то можно, но надо понимать последствия.

В отдельных случаях использую сейчас первый вариант, SelectObject, так как он максимально быстро решает задачу замещения и сохранения старого варианта, а во всех остальных - уже через VCL, через canvas.font :=. Пример с OldFont некорректен, так как Tfont - это объект, поэтому, если после работы хотим вернуться к старому объекту, то надо сначала обеспечить объект-приемник, а потом присваивать через Assign его свойствам свойства сохраняемого, потом - обратно. Поэтому canvas.font := не всегда удобен с точки зрения скорости. Само по себе присваивание ничем не медленнее, но если требуется восстановить предыдущее, то накладные расходы слишком велики.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626898
LoneFast
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
эм... У меня не так:
Код: pascal
1.
2.
3.
var MyFont: TFont;
...
Canvas.Font:=MyFont;

а вот так:
Код: pascal
1.
2.
3.
var MyFont: HFONT;
...
Canvas.Font.Handle:=MyFont;

Можете попытаться даже так:
Код: pascal
1.
2.
3.
4.
5.
6.
var OldFont, NewFont: HFONT;
...
OldFont:=Canvas.Font.Handle;
Canvas.Font.Handle:=NewFont;
...
Canvas.Font.Handle:=OldFont;

Но тут уже без гарантий, не могу просчитать - вдруг VCL некстати полностью очистит Old...


А накладных расходов там практически нету.
Кстати, ещё бывает SaveDC() .
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626922
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.Borzov_Vasilisk_
Код: pascal
1.
2.
oldFont := canvas.Font; -- здесь назначение ссылки
canvas.Font := MyFont; -- а здесь назначение свойств через assign


Уверены в коде?У программиста не должно возникнуть сложностей, чтобы переписать
_Vasilisk_
Код: pascal
1.
oldFont := canvas.Font;

на
Код: pascal
1.
2.
3.
4.
5.
6.
oldFont := TFont.Create;
try
  oldFont.Assing(canvas.Font);
finally
  oldFont.Free;
end;
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626924
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Vasilisk_У программиста не должно возникнуть сложностей, чтобы переписать
_Vasilisk_
Код: pascal
1.
oldFont := canvas.Font;

на
Код: pascal
1.
2.
3.
4.
5.
6.
oldFont := TFont.Create;
try
  oldFont.Assing(canvas.Font);
finally
  oldFont.Free;
end;



Конечно, сложностей нет. Сложности со скоростью, скорость такой функции падает в полтора раза.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626936
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.BorzovКонечно, сложностей нет. Сложности со скоростью, скорость такой функции падает в полтора раза.
Если так принципиально важна скорость, то имеет смысл вообще отказаться от Canvas и рисовать всё через WinApi.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626941
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvpЕсли так принципиально важна скорость, то имеет смысл вообще отказаться от Canvas и рисовать всё через WinApi. Отказаться от canvas? Что предлагаете конкретно?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626949
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.BorzovalekcvpЕсли так принципиально важна скорость, то имеет смысл вообще отказаться от Canvas и рисовать всё через WinApi. Отказаться от canvas? Что предлагаете конкретно?
Что может быть конкретнее?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626967
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockV.Borzovпропущено...
Отказаться от canvas? Что предлагаете конкретно?
Что может быть конкретнее?
Здесь непонятно, как значит "отказаться от canvas".

SelectObject - это как раз и есть функция API, и она задействована для максимальной скорости.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626971
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LoneFastКстати, ещё бывает SaveDC() . Она для других целей, инструментами холста не оперирует.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626975
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Соколинский БорисLoneFastКстати, ещё бывает SaveDC() . Она для других целей, инструментами холста не оперирует.
Ну так она сохраняет состояние сразу всех инструментов. Чтобы, после того, как что-то там поменяли, всё восстановить функцией RestoreDC. Не так?

Только зачем сохранять все инструменты, если нам нужен только один Font, поэтому чаще всего это излишне.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626976
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.BorzovЗдесь непонятно, как значит "отказаться от canvas".Это значит не использовать Canvas. WM_PAINT, BeginPaint...
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626983
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.BorzovСоколинский Бориспропущено...
Она для других целей, инструментами холста не оперирует.
Ну так она сохраняет состояние сразу всех инструментов. Чтобы, после того, как что-то там поменяли, всё восстановить функцией RestoreDC. Не так? Не так.
Иногда полезно читать доки.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626988
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Соколинский БорисV.Borzovпропущено...

Ну так она сохраняет состояние сразу всех инструментов. Чтобы, после того, как что-то там поменяли, всё восстановить функцией RestoreDC. Не так? Не так.
Иногда полезно читать доки.

"Функция SaveDC сохраняет текущее состояние указанного контекста устройства (DC) путем копирования данных, описывающих выбранные объекты и графические режимы (например, растровое изображение, кисть, палитру, шрифт, ручку, область, режим рисования и режим отображения) в контекст стек."

Что здесь не так?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626990
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockV.BorzovЗдесь непонятно, как значит "отказаться от canvas".Это значит не использовать Canvas. WM_PAINT, BeginPaint...
Раскрыть-то мысль свою можете? Непонятно всё равно, как это "не использовать canvas и рисовать всё через winapi". winapi не пользуется canvas? та же selectobject? или это не функция winapi?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626991
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.Borzovwinapi не пользуется canvas?Конечно не пользуется.
Это canvas пользуется winapi.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626996
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockV.Borzovwinapi не пользуется canvas?Конечно не пользуется.
Это canvas пользуется winapi.
Хорошо, тогда конкретно: функция

function DrawText(hDC: HDC; lpString: PWideChar; nCount: Integer;
var lpRect: TRect; uFormat: UINT): Integer; external user32 name 'DrawTextW';

использует canvas или не использует? или это не функция winapi?
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39626998
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты где-то там видишь в параметрах TCanvas?

Вот и ответ.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627000
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatТы где-то там видишь в параметрах TCanvas?

Вот и ответ.

а первый параметр этой функции? туда же передается canvas.handle
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627002
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты уж определись, у канваса есть хендл или у хендла есть канвас.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627005
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatТы уж определись, у канваса есть хендл или у хендла есть канвас.
Функции DrawText в любом случае придется передать хендл какого-нибудь канваса, поэтому не понимаю, как можно обойтись тут без канваса.
...
Рейтинг: 0 / 0
25 сообщений из 36, страница 1 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как работает функция SelectObject?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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