Вопрос № 127528: создаю библиотеку, в нее помещаю несколько форм,
первую форму, из библиотеки отображаю сразу, затем по нажатию
кнопки должна выпасть вторая форма, вместо чего получаю ошибку.
Подскажите где?...Вопрос № 127614: Доброго времени суток уважаемые эксперты.
Подскажите пожалуйста как осуществить, экспорт макроса из одного Access файла в другой средствами Delphi, догадываюсь то через OLE, но не могу подуматься как(
Или если возможно дайте ссылку на материа...Вопрос № 127623: Здравствуйте уважаемые колеги. У меня к Вам несколько вопросов:
1. Имеется TMemo, нужно скопировать его изображение в TBitmap, причем только текст, ну или вместе с фоном.
2. Имеется тот же TMemo, нужно запретить ему рисовать фон, т.е. чтобы р...
Вопрос № 127.528
создаю библиотеку, в нее помещаю несколько форм,
первую форму, из библиотеки отображаю сразу, затем по нажатию
кнопки должна выпасть вторая форма, вместо чего получаю ошибку.
Подскажите где?
Приложение:
Отправлен: 16.03.2008, 07:01
Вопрос задал: василий1 (статус: 3-ий класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Selya
Здравствуйте, василий1!
Вам, по моему, я говорил, что проект не правильно спроектирован. Вы же проигнорировали.
Теперь по существу. Приведённый код, конечно, хорошо. Только во-первых: код не весь, где UgipSprav.pas? Во-вторых указывайте сразу, что за ошибка - часто по типу ошибки можно сказать в чём проблема.
И в-третьих: неужели вы думаете что с ростом вашего кода и соответственно ростом возникающих вопросов вы будете выкладывать здесь свои "шедевры", а кто-то вроде меня, будет в них разбираться и тыкать вас носом в очевидное? Постарайтесь во-первых правильно проектировать приложения и во вторых изучите основы Delphi. Начните с классики "Delphi 5. Руководство разработчика" (Стив Тейксейра и Ксавье Пачеко). Одна из лучших книг по Delphi как для новичков, так и для профессионалов. Взять можно здесь:
http://podgoretsky.com/ftp/Docs/Delphi/D5/Delphi5vol1.pdf
http://podgoretsky.com/ftp/Docs/Delphi/D5/Delphi5vol2.pdf
или поищите в Google (с примерами)
А теперь конкретно по теме. Скорее всего вы в модуле UFormInDLL не указали в секции uses модуль UgipSprav, где содержится объект (форма) TFgipSprav. А так же не описана переменная FgipSprav: TFgipSprav; (должна быть сразу после var formindll: Tformindll;)
Ответ отправил: Selya (статус: 9-ый класс)
Ответ отправлен: 16.03.2008, 18:24 Оценка за ответ: 5 Комментарий оценки: вопрос был решился еще вчера) спасибо за ответ.
Вопрос № 127.614
Доброго времени суток уважаемые эксперты.
Подскажите пожалуйста как осуществить, экспорт макроса из одного Access файла в другой средствами Delphi, догадываюсь то через OLE, но не могу подуматься как(
Или если возможно дайте ссылку на материалы, т.к. сам я ничего не нашел.
Заранее спасибо
Примерный код приведен в приложении. Здесь AA1 : TAccessApplication с вкладки Servers. Макрос "Макрос1" экспортируется из базы данных 1.mdb в 2.mdb . Код простой, полагаю, пояснений не потребуется.
Приложение:
Ответ отправил: Sosedov A.I. (статус: 4-ый класс)
Ответ отправлен: 17.03.2008, 16:54 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за ответ)
Я уже было отчаялся найти правильное решение этой задачи)
Вопрос № 127.623
Здравствуйте уважаемые колеги. У меня к Вам несколько вопросов:
1. Имеется TMemo, нужно скопировать его изображение в TBitmap, причем только текст, ну или вместе с фоном.
2. Имеется тот же TMemo, нужно запретить ему рисовать фон, т.е. чтобы рисовался напечатанный текст и мигающая каретка. И возможно ли рисовать фон самостоятельно?
Отправлен: 16.03.2008, 19:32
Вопрос задал: Louken (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Genia007
Здравствуйте, Louken!
1. Я в программе "монитор" текст из Memo в Bitmap копировал следующим образом:
procedure bufertext;
var i, y, XF, xm, xmb, bxw: word; sm: string;
begin
bitmap.Height:=0;
bitmap.Width:=0;
sm:=vdmonitor.memo1.Lines.Strings[0];
xm:=bitmap.Canvas.TextHeight(sm);
xmb:=0;
y:=XF+bitmap.Canvas.TextHeight(sm);
for i:=0 to vdmonitor.Memo1.Lines.Count-1 do
begin
inc(xmb,xm);
sm:=vdmonitor.Memo1.Lines.Strings[i];
bxw:=bitmap.Canvas.TextWidth(sm);
if bitmap.Width < bxw then
bitmap.Width:=bxw;
bitmap.Height:=xmb;
bitmap.Canvas.TextOut(0,XF*i+y*i,sm);
end;
end;
Bitmap получается размером точно по размеру текса, имеется возможность играть с межстрочным интервалом, переменная XF, код из рабочей программы урезано лишнее, поэтому может показаться, что очень много переменных.
2. По поводу рисования в Memo посмотрите на сайте DelphiWord статью draw_on_tmemo.html, может быть она Вам подойдёт.
Ответ отправил: Genia007 (статус: 8-ой класс)
Ответ отправлен: 17.03.2008, 12:56 Оценка за ответ: 5 Комментарий оценки: Да, Вы правы, как то я сам не додумался. Нашел и статью на DelphiWorld, с тем же принципом: memo_with_own_fonts. Спасибо.
