» Вопросы по Delphi (все версии) - часть 3

Thegodofviruses
Есть демо с примерами, а книжки это все что касается написания COM, недавно в соответсвующем разделе пробегала для дельфей.

RedPromo
А где именно есть демо с примерами?

почему в D2007 слова procedure, function и т.д, в быстрой справке, выкрашены одним цветом (красным)? http://img258.imageshack.us/img258/7846/screen002vx7.jpg
может можно разукрасить?

Здравствуйте, Все!

Вопрос следующий: как осуществить перевод экранных пикселей в реальные миллиметры ?

Пробовал:
1.
Вычисляю число пикселей в миллиметре по X и по Y:

Код:
HorResol,VertResol,HorScWidth,VertScHeight: Integer;
PixXFact,PixYFact: Double;
...

HorResol := GetDeviceCaps(GetDC(HWND(Nil)),HORZRES);
VertResol := GetDeviceCaps(GetDC(HWND(Nil)),VERTRES);
HorScWidth := GetDeviceCaps(GetDC(HWND(Nil)),HORZSIZE);
VertScHeight := GetDeviceCaps(GetDC(HWND(Nil)),VERTSIZE);
PixXFact := HorResol/HorScWidth;
PixYFact := VertResol/VertScHeight;

Thegodofviruses из 1с можно обращаться к любому OLE-контроллеру автоматизации, соответственно тебе в надо в проге на дельфи его реализовать, создать библиотеку типов, описать экспорт объектов и тому подобное.

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

Dunkel1
Сожалею, ето невозможно. Теоретически, ваш код должен делать то же самое, но HORZSIZE и VERTSIZE возвращают ложние значения. Так что ваш потребитель должен ввести свой размер екрана.

Dunkel1
Замечу ещё один маленький факт. Вам говорят у меня 17" ЭЛТ. А на самом деле видимая диагональна 17, а где то 16.5, а то и 16. Для ЖКИ дисплеев это выполняется более чётко - эсли сказано 17, то там минимум 16,9.
Мой способ решения. Нарисуйте на экране три лини в виде буквы Н или П и и попросите пользователя измерить перекладину и высоту, так как кол-во пикселей на дюйм по вертикале и горизонтале может не совпадать.

Dunkel1

Цитата:

как осуществить перевод экранных пикселей в реальные миллиметры ?

А можно узнать зачем? может вы задачу не стой стороны решаете?

есть необходимость делать копии экрана как в графическом режиме, так и в текстовом (dos-приложения, Alt-Enter)

найденные мной примеры позволяют захватывать только в графическом

подскажите, пожалуйста, как захватить экран в текстовом? как программно определить наличие текстового режима?

Подскажите пожалуйста как вырезать значения в строках memo с определенного символа и по определенный символ
например есть запись :
>>>ТЕСТ <<<

нужно вырезать Всё, что после >>> и всё, что до <<< т.е. чтобы просто было слово ТЕСТ


Вроде сделал так:

j : integer;
buf: string;
s: string;
ses: string;


if Pos('>>>>', memo1.Text)>0 then
begin
buf :=memo1.Text;
J := Pos( '>>>>', Buf );
If J > 0 then begin
S := '>>>>';
J := Pos( S, Buf )+Length(S);
ses := Copy( Buf, J, PosEx( '<<<<', Buf, J ) - J );
memo2.text:=ses;
end;
end;

vserd

Цитата:

А можно узнать зачем? может вы задачу не стой стороны решаете?

Мне нужно будет использовать размеры объекта для расчета. То есть, например есть квадрат 20*20 пикселей. Пользователь задает размеры в миллиметрах, то есть для него это должно быть 20*20 мм.
Я использую компоненты FlexGraphics для работы с векторной графикой. Там есть масштабный коэффициент PixelScaleFactor. По умолчанию для него задано значение 1000. Это означает, что 1 пиксел на экране при масштабе 100% будет равен 1000 логическим единицам. То есть, для того, чтобы отобразить квадрат в 10 пикселов, размеры его сторон должны равняться 10*1000=10000 единицам. Так вот, минимальное значение PixelScaleFactor может быть 1 (так как целое). То есть получается, 1 пиксел = 1 мм. Но это не годится, так как получается что, например, линия длиной в 80 пикселов(то есть для пользователя тогда 80 мм) на экране выглядит в четверо меньше(на одном мониторе, а на другом, например, больше в 4 раза). То есть, придется самому вручную пересчитывать пиксели в миллиметры.

Господа, подскажите, какую опцию выключить в D7, чтоб перестала работать подсказка при наведении мыши на объект?

George_Lucky
Environment Options --> Designer --> Show designer hints

PowerChute
ok
thanks

Посоветуйте, пожалуйста, хорошую (=безглючную, нетормознутую) библиотеку/набор классов, реализующую контейнеры (Hash, Map и т.п.)



Добавлено:

DeCAL/SDL - это можно использовать? как там с багами?

(Живет тут: http://sourceforge.net/projects/decal/)

А также какое мнение насчет DIContainers?

http://www.yunqa.de/delphi/containers/

Возможно ли вызвать из метода объекта наследника, не inherited метод родителя, а inherited метод предродителя?

acue
Наврядли можно зделать официальными методами. Но если порыться в виртуальной таблице (VTM), то невозможного нет.
Но если возникает такая необходимось - кривость дизайна. Решается обычно перестройкой дерева наследников

Dunkel1
Никогда не занимался в этой области, но думаю что без собственной логической единицы не обойтись. Через PixelPerInch можно вычислить число точек на мм, только число там будет не целым, а дробным.... для уменьшения погрешности.

Привет всем! Помогите решить проблему.
Я программирую на Delphi 7. При компиляции программы(только этой) мне воводится сообщение
---------
[Предупреждение] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
----------
И в итоге прога идет только на моем компе!
Что сделать Помогите!

acue
Была хорошая книжка Рэя Лишнера, называлась что-то вроде Delphi In A Nutshell, там у него описаны всякие фокусы с VMT. Посмотри ее.

У кого нибуть есть исходник любого ICQ клиента , или линка поделитесь плыз

Люди!Помогите решить проблему.
Нужно сменить надпись(на форме) в программе написаной на Delphi.
Программа естественно,уже скомпилирована.
Пробовал использовать ResourceHacker,не помогло.
Подскажите,как это сделать?Какую программу использовать?

M1chA,

Если никакие навороты типа защит не используются, попробуй просто любой hex-редактор. Ищи по строке, которая пишется в TLabel.

2vipettut
Спасибо,сейчас попробую.

Добавлено:
2vipettut
Спасибо,получилось )))))))

scharhan
Предупреждение говорит о том, что юнит FileCtrl не кроссплатформенный - в киликсе не поддерживается. Если у тебя программа не кроссплатформенная, не обращай на это внимание (можно вообще выключить в свойствах проекта)
А то, что не запускается на другом компе... ты хоть напиши как не запускается - повисает, выдает ошибку, еще как-то

Исходник аськи можно глянють здесь
http://sources.ru/delphi/index.html

Добавлено:
Прога не повисает! Когда её открываешь винда просто выдеёт отчет об ошибке! Мнебы как нибудь удалить этот FileCtrl.

scharhan

Ради хохмы глянул на ссылку
Цитата:

Исходник аськи можно глянють здесь
http://sources.ru/delphi/index.html

и где же сабж? ))

http://www.sources.ru/vb/vb_simple_icq_client.shtml

Добавлено:
Протоколы:
http://www.icqv7.cjb.net/
http://www.algonet.se/~henisak/icq/