Найдено 290 результатов

Timid
29.03.2013 22:04:21
Форум: Lazarus
Тема: Отрисовка в ListView в режиме просмотра
Ответы: 5
Просмотры: 3595

Re: Отрисовка в ListView в режиме просмотра

Так вроде событие отрисовки вызывается как раз только для видимых элементов.
Что-то в духе onDrawCell.
Timid
31.07.2012 15:37:45
Форум: Lazarus
Тема: JPG и PNG в Bitmap
Ответы: 2
Просмотры: 3305

Re: JPG и PNG в Bitmap

Как, интересно, Вы собирались отдать битмап (result:=bmp) после того как сделали ему Free? Операция присвоения для объектов не создает копию объектов, а только передает указатели.
Может попробовать как-то так:

begin
... (создаем и загружаем jpg) ...
result:=TBitmap ...
Timid
28.07.2012 13:52:40
Форум: Lazarus
Тема: DrawText
Ответы: 5
Просмотры: 4214

Re: DrawText

Подбирайте количество слов в строке, подсчитывая размер строки в пикселях.

Общая схема такая:
В цикле ищете разделитель (пробел, запятая, перенос, точка, #10 и прочее), найдя, вычисляете через textwidth ширину текста.
Как только выйдите за границу отведенного блока, отрезаете начало и повторяете ...
Timid
29.06.2012 08:57:39
Форум: Разное
Тема: Помогите перевести цикл с басурманского на нашинский
Ответы: 6
Просмотры: 15912

Re: Помогите перевести цикл с басурманского на нашинский

Чтобы правильно перевести код нужно знать определения переменных и массива.
Судя по коду, mask и value - целые, причем тоже unsigned, т.е. без знака, так же как и элементы массива word

Поищите в коде похожие определения:
unsigned int mask;
unsigned int value;
unsigned int word[];
Если да ...
Timid
11.06.2012 11:26:41
Форум: Обучение Free Pascal
Тема: Установка текущего монитора в Windows XP/7
Ответы: 13
Просмотры: 24299

Re: Установка текущего монитора в Windows XP/7

Импортируйте WebBrowser в IDE (как ActiveX), бросьте компонент на форму как alClient, уберите у формы все бордеры и строку заголовка. Затем разверните форму на экран (нужный) в StayOnTop. Можно вообще сделать развертывание на весь экран путем явного задания координат Monitor[1].Left, Monitor[1].Top ...
Timid
18.01.2012 14:31:12
Форум: Lazarus
Тема: Заполнение WEB формы
Ответы: 10
Просмотры: 8378

Re: Заполнение WEB формы

Смотрим http://wiki.lazarus.freepascal.org/RichView вики по компоненту.

Упрощенно - это браузер, целиком реализованный на pascal/lazarus, пусть и простой. Но для Вас вроде больше и не нужно.
Timid
18.01.2012 12:04:27
Форум: Lazarus
Тема: Заполнение WEB формы
Ответы: 10
Просмотры: 8378

Re: Заполнение WEB формы

richview?
Timid
12.12.2011 22:00:38
Форум: Lazarus
Тема: Печать штрихкода
Ответы: 22
Просмотры: 14274

Re: Печать штрихкода

А почему Вы не хотите отрисовать штрих-код сами прямо на битмап?
Ведь одномерный штрих-код рисуется по стандартным правилам.
Timid
10.10.2011 10:49:45
Форум: Lazarus
Тема: обработка исключений при подключении к БД(Firebird)
Ответы: 1
Просмотры: 1858

Re: обработка исключений при подключении к БД(Firebird)

Код: Выделить всё

try
 Подключение
except
 Обработка ошибки, например, печать в лог.
end;

Беда в том, что коды указанных ошибок ФБ не возвращает, поэтому понять можно только наличие проблемы подключения
Timid
30.09.2011 09:23:05
Форум: Lazarus
Тема: XML-монстр или какой он - самый большой файл? [Решено]
Ответы: 10
Просмотры: 6257

Re: XML-монстр или какой он - самый большой файл?

3. Вероятнее всего оптимальным решением в моём случае будет регистрация приходящих документов в реляционной БД - для быстрого поиска, а сами данные хранить в файлах или в этой же БД в виде xml? Может быть у кого-то есть опыт эксплуатации таких баз?

Да, я поступаю именно так. Строю дерево "внешних ...
Timid
02.09.2011 18:13:59
Форум: Free Pascal Compiler
Тема: Операторы в стиле C
Ответы: 36
Просмотры: 25471

Re: Операторы в стиле C

Не понимаю, в самом деле, Вы не понимаете, что "стиль" Паскаля - защищать программиста от случайных ошибок кодинга.
Посмотрите сами, практически нет ни одной конструкции, которая содержала бы "случайную" логическую ошибку, вроде

if (x=1) {}
вместо
if (x==1) {}


Вот пример для разбираемого ...
Timid
10.06.2011 23:27:18
Форум: Lazarus
Тема: Изменение результата с SQL запросами
Ответы: 3
Просмотры: 2525

Re: Изменение результата с SQL запросами

Заголовок "столбца" можно менять принудительно, прямо в запросе.

Код: Выделить всё

SELECT  tab AS LastResult, tab+15 AS NewResult FROM table1;

Будет два столбца данных: LastResult и NewResult
Timid
05.06.2011 11:35:16
Форум: Разработки на нашем сайте
Тема: Класс-обёртка для zlib на базе оригинального Си-кода
Ответы: 18
Просмотры: 51536

Re: Класс-обёртка для zlib на базе оригинального Си-кода

В Дельфи не соберется, теперь базовый тип string - UTF16. Объектные файлы нужно переписать / перекомпилировать.

Но это небольшое горе

Проблема в исходниках. Для GoogleCode по требованиям лицензии нужно выкладывать исходники (OpenSource обязательно), а у Вас объектные файлы.
Хотя - спасибо!

Вот ...
Timid
28.05.2011 23:22:03
Форум: Lazarus
Тема: Подключение базы данных из MS SQL Server к Lazarus
Ответы: 13
Просмотры: 15490

Re: Подключение базы данных из MS SQL Server к Lazarus

Padre_Mortius писал(а):Timid, тогда уж не ADOConnection, а ODBCConnection. ADOConnection есть только в Delphi. И TADOQuery заменить на TSQLQuery


Хм, да, ступил

Лекции по VBA читаю, вот и накладывается Microsoft Like...
Timid
28.05.2011 22:57:00
Форум: Lazarus
Тема: Подключение базы данных из MS SQL Server к Lazarus
Ответы: 13
Просмотры: 15490

Re: Подключение базы данных из MS SQL Server к Lazarus

Хм, ADO?
TADOConnection, бросаем на форму, выбираем свойство ConnectionString. Запускаем мастера, вводим алиас MSSQL базы, проверяем соединение.
Потом кидаем на форму TADOQuery, выбираем в Connection наш ADOConnection1, вписываем SQL в нужное свойство.
Далее размещаем всякие DBGrid и соединяем с ...