FreePascal.ru

Да да, передал архив.

Maxizar, спасибо, буду изучать, тестировать, о результатах отпишусь.

Ism, спасибо, не знаю, возможно я поспешил, но я обратился на Bug tracker - id 0018732, жду ответа. http://mantis.freepascal.org/view.php?id=18732#bugnotes

Ism, друг мой, пробовал конечно, результат один! Вы test.zip скачайте попробуйте, как у Вас?

Ну, вот

procedure TForm1.Button1Click(Sender: TObject);
var
cdBmpIn, cdBmpOut: TBitmap;
begin
cdBmpIn:=TBitmap.Create;
cdBmpOut:=TBitmap.Create;

cdBmpIn.LoadFromFile('in.bmp');

cdBmpOut.Width:=ImagePreview.Width;
cdBmpOut.Height&#58 ...

Что? Никто не встречался с такой проблемой? Или я криво объяснил?

Уважаемые, прошу помочь, есть такой код


procedure TForm1.BitBtn1Click(Sender: TObject);
var
cdJpeg: TJpegImage;
cdBmp: TBitmap;
begin
cdJpeg:=TJpegImage.Create;
cdBmp:=TBitmap.Create;

cdJpeg.LoadFromFile('test.jpg');

cdBmp.PixelFormat:=pf24bit ...

Хорошо, проверим! Спасибо!

Добавлено спустя 2 часа 20 минут 17 секунд:
Да, в windows работает!!! Brainenjii, огромное спасибо!!! Спасибо всем!

Не, ребята помогите реализовать обработчик, который реагировал на закрытие системы!!!!!!!

sign писал(а):У меня OnExit не отрабатывает.

Извини, а что такое событие есть у формы? Я не нашёл!

Добавлено спустя 1 минуту 49 секунд:
Может быть, у Lazarus, заведено отдельное событие на выключение системы???

Ну что, никто проверить не может, так у всех или нет! Бывалые в лазарусе подскажите!!!!!

Друзья подскажите!
Форма не обрабатывает события (процедуры) Close, CloseQuery в том случае если приложение активно и вызвать завершение работы windows.
Так же, организовал перехват системного сообщения WM_QUERYENDSESSION:

private
procedure WMQueryEndSession(var Message: TWMQueryEndSession ...