powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как работает функция SelectObject?
36 сообщений из 36, показаны все 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
Как работает функция SelectObject?
    #39627010
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
V.BorzovrgreatТы уж определись, у канваса есть хендл или у хендла есть канвас.
Функции DrawText в любом случае придется передать хендл какого-нибудь канваса, поэтому не понимаю, как можно обойтись тут без канваса.

То что вашего кота зовут Василий не означает, что "Василий" - это кошачье имя. Т.е. то что Canvas в качестве Handle использует HDC не означает что WinApi про него что-нибудь вообще знает. Это просто фантик над функциями WinApi. И фраза "отказаться от Canvas" подразумевает что вы в своих OnDrawЧтотоТам() просто делаете что-то вроде PaintDC := Canvas.Handle и далее забываете о существовании такого свойста/параметра (Canvas), а рисуете используя только функции WinApi.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627011
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пациент глубоко засел в танке и заварил люки.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627014
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[quot alekcvp]V.BorzovИ фраза "отказаться от Canvas" подразумевает что вы в своих OnDrawЧтотоТам() просто делаете что-то вроде PaintDC := Canvas.Handle и далее забываете о существовании такого свойста/параметра (Canvas), а рисуете используя только функции WinApi.
Тогда непонятно, что вы там выше вообще имели ввиду, ибо речь и шла как раз о функции SelectObject, в которую передается хендл канваса. О функции api, которая была задействована для увеличения скорости.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627018
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин, у меня такое ощущение, что тут кто-то троллит...
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627021
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На всякий случай, если действительно танк:

V.Borzov Но почему тогда canvas.font показывает старые значения? Казалось бы, должен показать значения нового фонта, его имя, его размер... Хотя, если попросить canvas нарисовать чего-нибудь, рисует новым фонтом.alekcvpИ фраза "отказаться от Canvas" подразумевает что вы в своих OnDrawЧтотоТам() просто делаете что-то вроде PaintDC := Canvas.Handle и далее забываете о существовании такого свойста/параметра (Canvas) , а рисуете используя только функции WinApi.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627028
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvpБлин, у меня такое ощущение, что тут кто-то троллит...
Так у меня точно такое же чувство....
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627072
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С таким уровнем знаний, полезнее почитать книжки про WinApi с примерами и msdn, чем на форумах флудильню устраивать
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627074
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
white_niggerС таким уровнем знаний, полезнее почитать книжки про WinApi с примерами и msdn, чем на форумах флудильню устраивать
Ну, так зачем флудите-то? Тут флудильщиков с грамотными советами и так хватает :)
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627077
LoneFast
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что-то тема съехала во флудильню. Завязываем. :)
V.BorzovСложности со скоростью, скорость такой функции падает в полтора раза.амм... Полтора?? Что-то совсем не верится...
Вы уверены что именно из-за этого, а не в каком-то другом месте? Рисуется на само окно или на битмап?
Как замеряете? Сколько и каких элементов рисуется (длины строк и какие символы)? Размер/шрифт? Количество смен шрифтов?

Можете повторить на пустом проекте и выложить сюда? Тогда подумаем, а на словах скорее всего не получится.
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627129
V.Borzov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LoneFastмм... Полтора?? Что-то совсем не верится...
хм.. я наврал. Мои тесты были некорректны. Вот этот пример показывает, что скорость практически одинаковая, и TFont.Create практически ничего не замедляет. Ошибка была в содержимом выводимого текста. Ну, если я опять чего не напутал:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
procedure TForm31.Button1Click(Sender: TObject);
var TC :cardinal;
    i: integer;
    FONT1 :HFONT;
begin
  tc := gettickcount;
  for i := 1 to 1000000 do
  begin
    FONT1 := SelectObject(self.canvas.handle,button1.font.handle);
    try
      self.canvas.TextOut(0,0,formatfloat('тест тест тест 000',(gettickcount-tc) div 1000));
    finally
      selectobject(self.canvas.handle,FONT1);
    end
  end;
end;

procedure TForm31.Button2Click(Sender: TObject);
var TC :cardinal;
    i: integer;
    Font1 :TFont;
begin
  tc := gettickcount;
  for i := 1 to 1000000 do
  begin
    Font1 := tFont.create;
    try
      font1.assign(self.canvas.font);
      self.canvas.font := button1.font;
      self.canvas.TextOut(0,0,formatfloat('тест тест тест 000',(gettickcount-tc) div 1000));
      self.canvas.font := font1;
    finally
      Font1.free;
    end;
  end;
end;



Получается, можно не заморачиваться с SelectObject.

Всем спасибо!
...
Рейтинг: 0 / 0
Как работает функция SelectObject?
    #39627268
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Сохранение/восстановление каких либо значений должно всегда происходить по схеме
Код: pascal
1.
2.
3.
4.
5.
6.
сохранили;
try
  поработали
finally
  восстановили
end;


2. Зачем миллион раз создавать/уничтожать объект TFont, если это можно сделать только один раз?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
procedure TForm31.Button3Click(Sender: TObject);
var TC :cardinal;
    i: integer;
    Font1 :TFont;
begin
  tc := gettickcount;
  Font1 := tFont.create;
  try
    for i := 1 to 1000000 do
    begin
      font1.assign(self.canvas.font);
      try
        self.canvas.font := button1.font;
        self.canvas.TextOut(0,0,formatfloat('тест тест тест 000',(gettickcount-tc) div 1000));
      finally
        self.canvas.font := font1;
      end;
    end;
  finally
    Font1.free;
  end;
end;
...
Рейтинг: 0 / 0
36 сообщений из 36, показаны все 2 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как работает функция SelectObject?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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