FreePascal.ru

Плюнул на WM_SETTEXT
Пока использую такую конструкцию

s:='Hello world';
for i:=1 to length(s) do sendmessage(ObjectHandle,WM_CHAR,ord(s[i]),0)

Я так понимаю о русских символах мечтать не приходится?

Добавлено спустя 18 минут 16 секунд:
На счет русского погорячился

function ...

С PostMessage и PostThreadMessage вообще никакой реакции)

Здравствуйте)

Задача такая, необходимо сделать "вставлялку" данных т.е. после установки курсора в Edit какой либо программы при нажатии определенного сочетания клавиш программа
выдает меню в котором можно выбрать данные из списка заранее составленного и вставляет выбранные данные в Edit.


Со ...

Если я правильно понял

Добрый день)

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

Выдает ошибку после вызова процедуры возобновления ResumeCopy: "Проект project1.exe вызвал класс исключения 'External: SIGSEGV'"
После ...

Доброго времени)

Необходимо примотать программу к носителю с которого она запускается(HDD, USB носители).
Я так понял что необходимо получить Hardware ID носителя,
однако не нашел ничего кроме модуля InfoHDD с помощью которого удалось получить Номер модели и Серийный Номер однако они не являются ...

Решено, теперь буду думать как оптимизировать

var
FromStream, ToStream: TFileStream;
buff : Int64;
Fss:integer;
FromFile, ToFile: TFileName;
summa:integer=0;
begin
try
FromStream := TFileStream.Create(FromFile, fmOpenRead);
ToStream := TFileStream&#46 ...

Доброго времени)

Есль вот такой код для копирования с использованием progressbar, пример взят из http://www.freepascal.ru/forum/viewtopic.php?f=13&t=7576
procedure TNewThread.progress;
begin
form1.ProgressBar1.Position:=progr;
form1.Label1.Caption&#58 ...

Использовал копирование через цикл

Спасибо всем

Доброго времени)

Немного по бояним)
Нашел в сети вот такую штуку для удаления элементов динамического массива


A: array of .....

.......

Last:= high(A);
move(A[Index+1],A[Index],(Last-Index)*sizeof(A[Index&#93 ...

3.6. Замечания из личного опыта

Использование таймера таит странную на первый взгляд ошибку. Если просто пытаться использовать таймер — то ничего не выйдет. Это обусловлено реализацией кода компонента таймера в Lazarus. Код таймера находится в библиотеках, которые относятся к визуальным виджетам ...

Ага
Подскажите аналог регионов для Linux

Доброго дня, утра, вечера, ночи)

Проблема такая:
Поставил Ubuntu 11.10 туда воткнул lazarus
Открыл проект ранее созданный под Windows
При компиляции ругается на модуль windows, который необходим для работы с регионами, а именно с HRGN

Подскажите как с этим бороться

Заранее спасибо)

Максим писал(а):Версия Lazarus, ОС?

Lazarus 0.9.30 r29749
FPC 2.4.2 i386-win32-win32/win64

WindowsXP SP3

Доброго дня, утра, вечера, ночи)

Имеется Image1 внутри ScrollBox

Поверх image1 создается TImage
var
metka:Timage;
begin
metka:=timage.Create(Image1);
with metka do begin
Parent:=ScrollBox1;
Left:=pos.x-10;
Top:=pos.y-10;
Cursor:=crHelp;
Proportional&#58 ...