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

skinash
Шрифт часто меняю и на других машинах могут бить под одним именем разные шрифты!
Мне только что посоветовали использовать DrawText с флагом DT_RIGHT.

lavren
Можно и DT_RIGHT, а можно как написал skinash через Canvas.TextWidth:
bmp.Canvas.TextOut(x - bmp.Canvas.TextWidth(str), y, str)
Так как это выполняется на конечной машине, то учтется ширина текста в том шрифте, что на ней установлен.
Что больше по душе, тем и пользуйся. Работать будет наверняка одинаково

skinash
RomanTim
А кто быстрее работает (рисует) DrawText или TextOut?

lavren
TextOut рисует через виндовую ExtTextOut:
Код: procedure TCanvas.TextOut(X, Y: Integer; const Text: String);
begin
Changing;
RequiredState([csHandleValid, csFontValid, csBrushValid]);
if CanvasOrientation = coRightToLeft then Inc(X, TextWidth(Text) + 1);
Windows.ExtTextOut(FHandle, X, Y, FTextFlags, nil, PChar(Text),
Length(Text), nil);
MoveTo(X + TextWidth(Text), Y);
Changed;
end;

Ну так что никто не знает где взять исходный код? Или подскажите программерские сайты где все это делают.

Maks150988
ну, раз не отвечает никто - значит из тех, кто прочитал ваш вопрос - никто не знает ответа.
для начала сходите на http://wasm.ru - особенно разделы "исходники" , "Документация"...
я лично вообще не понимаю, что Вам нужно... $-)))

Да хочется сделать программу для просмотра информации. Нарыл исходник для просмотра секции экспорта. Не могу найти исходный код для просмотра секции импорта исполняемых файлов. Может он и находится, но поисковик всякий мусор отображает. Все никак не откопаю...

Maks150988
Загляни в исходники GExperts - там точно такой модуль был.
Кажется, еще у MiTeC что-то похожее водилось, но не уверен... вроде на пролазе релизили.

Добавлено:
Тебе же PE Header нужен, я правильно понял?

SERGE_BLIZNUK
Ну иногда в повторе есть смысл - я вот вопрос прохлопал

Arvur
да нужна информация о заголовке. хочется выдрать оттуда информацию об импорте. есть пример где через тривью это показывается, но там всевыводится для каждогомодуля отдельно. хочется организовать в 2 окна - в одном жмешь на файл из списка длл, а в другом получаешь весь список его функций.

Maks150988

Цитата:

есть пример где через тривью это показывается, но там всевыводится для каждогомодуля отдельно

Так а в чем проблема? Получить PE-таблицу или вывести?

Да, проблема в выводе информации. В примере информация выводится через ListBox, а мне надо чтобы выводилась через SysListView32 (ну там через ВинАПИ). Может поможете, а то я не один год буду все делать. Сейчас и времени свовсем мало остается, поэтому бестолку браться. Пример скачал с http://people.freenet.de/sun-shine/PETutNo6.zip . Это пример Исзелиона (или как там его звать).

Вопрос по ImageEn.
Имеется несколько картинок в формате *.jpg, надо их показать на канве ImageEnView.Bitmap.Canvas, разместив по определенным координатам. Делаю так (просто пример вывода одного жпега):

Код: procedure TfMain.Button1Click(Sender: TObject);
var bmp:TBitmap;
Io: TImageEnIO;
begin
bmp:=TBitmap.Create;
Io:=TImageEnIO.Create(self);
Io.AttachedBitmap:=bmp;
Io.LoadFromFileJpeg('test.jpg');
ImageEnView.Bitmap.Canvas.Draw(10, 20, Bmp);
ImageEnView.Refresh;
Io.Free;
Bmp.Free;
end;

подайте книжку по Firebird и менеджер баз-таблиц с интерфейсом более дружественным чем ISQL Tool. Нужно создать файл с базой, в ней таблички, индексы...

lavren

Цитата:

Шрифт часто меняю и на других машинах могут бить под одним именем разные шрифты!

Ты наверное не понял, уточню. Шрифт знать тебе не надо. Его уже знает Canvas, на котором ты выводишь текст.


Добавлено:
relictus
Нет, всё же лучше через временный битмап. Картинка сначала рисуется в памяти, а потом выводится - это быстрее, чем если бы она сразу рисовалась на канве.

skinash
А какой предпочтительнее использовать битмап ImageEnView: TBitmap или TIEBitmap ?

RostY
менеджер баз-таблиц с интерфейсом более дружественным чем ISQL Tool
подайте книжку по Firebird

relictus
Проще не получится. С графикой всегда много кода приходится писать. Кэшируемый битмап это лучше. Но главное чтобы размеры картинки не были огромными, как при сканнировании с самым высоким разрешением. Там лучше делать серию кешируемых битмапов. Веть понятно, что пользователь может использовать увеличение и тогда не вся картинка будет на экране.

OXDBA
спасибо. ту же книжку нашел дешевле здесь
_http://goldbook.ws/2007/06/01/firebird_rukovodstvo_razrabotchika_baz_dannykh.html

relictus
Ну наверное для специализированного компонента ImageEnView предпочтительнее использовать его специализированный TIEBitmap. Там наверняка какие-нибудь свои хитрые методы и свойства задействованы.

skinash
Ок, спасибо, буду экспериментировать
Еще бы где найти/почитать какую статью/книжку по использованию компонента ImageEn, но что-то в инете такого не нашел, а демки малозакомментированы... Не встречалось ни кому?

А что, разве доков с компонентом не было?

Я только не давно изучаю Дельфи поэтому прошу сильно не бить.

Вот код.

Код: procedure TForm1.FileListBox1Click(Sender: TObject);
var
A: array [0..78] of Char;
begin
{Получение имени файла, указанного в списке файлов}
StrPCopy(A, FileListBox1.FileName);
{Вывод на экран нулевой иконки из файла}
Image1.Picture.Icon.Handle := ExtractIcon(HInstance, A, 0);
Image2.Picture.Icon.Handle := ExtractIcon(HInstance, A, 1);
end;

end.

Никто бить и не собирается.

Позволь уточнить: как ты это собираешься отображать в форме? В виде списка картинок? Я так, понял ты в своем примере просто кинул два объекта Image на форму. Для бОльшего количества так делать нельзя. Нужно в динамике создавать необходимое количество этих компонент. Но как ты их расположишь на форме?

AntonVA1
А если вместо Image использовать ListView и ImageList?

Посмотри справку к TCustomListView.LargeImages, там есть пример- похоже твой вариант, с вариациями. У меня delphi 6, если в твоей справке его нет, скажи, я его сюда кину