FreePascal.ru

Задача,которую в Лазарусе пока не осилил.Мастера,подскажите как выйти из ситуации,плиз.
Итак есть изображение BMP формата,которое лазаровской программой нужно перебить в GIF.
В сети нашел ссылки на некий делфовский модуль TGIFImage и даже откопал его в загранице.Но Лазарус работать с ним не хочет ...

Как я понял программирование без всяких там козней и подводных камней не обходится (
Уважаемые эксперты,подскажите что не так.
В таблице StringGrid у меня имеется список каталогов,который я могу выбирать свободно.Это - каталоги с фотографиями.На форме есть объект Image1 и есть у этого объекта ...

В принципе уже все раскопал.Просто в дебрях кода хранилась еще одна команда,где фокус и сбрасывался в 1,1.
Я ее только пошаговым отладчиком выловил.
Теперь еще одна задача и мне пока невдомек почему так происходит.Забиваю,значит я свою табличку данными из АЦП.При завершении заполнения таблички ...

Тут такая заморочка.StringGrid заполняется автоматически по данным от аналогово-цифрового преобразователя.Случается,что последний дает сбои и процесс дохнет.Таблица по-аварийному сохраняется в файле
и после перезапуска программы прям в процедуре FormCreate снова считывается в таблицу.Так что когда ...

Увы я тоже ни к чему лучшему не догадался.Пришлось приобрести ИБП...

Теперь следующая задачка.Есть некоторые стандартные цвета С1 и С2.И есть цвет опытного образца ExColor.Все естественно TColor.Требуется программно определить (ну,скажем в %) к какому цвету из двух стандартных ближе опытный образец ...

Здравствуйте.Такая вот задачка.Накатал я праздниками программку,которая обслуживает АЦП.Это определенная аппаратная заморочка: инициализация интерфейсов,портов и проч.Вобщем все работает,если ... Если вдругна пару секунд пропадет свет или даже пройдет сетевая помеха,аппарат зависает.Требуется заново ...

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

Пожалуйста.

program project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
{Interfaces,} // this includes the LCL widgetset
Forms, Unit1, unit2, Interfaces;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

{$R *.res}

begin
Application.Title:='myprog ...

Размер дал уже 30х30.Пробовал форматы JPG,BMP,ICO,PNG.Кстати,загрузчик в строке перечисления допустимых форматов именно их и перечисляет.А под родным лазаровским лаптем в квадратике есть шкала с ползунком,которая позволяет растягивать эту иконку аж на 256х256.Кому нужны такие большие иконки? Кстати ...

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

Всех моих консультантов и советчиков поздравляю с наступающим Новым годом.Здоровья вам,мира,благополучия.Спасибо вам за то драгоценное время,которое вы на меня потратили.
==============
С ув.Алексей

Vapaamies,спасибо за подсказку.такая конструкция вообще проще.Но дело то не в этом.К самому файлу пока не доступиться.

alexey38,решил я пойти на пошаговую отладку. И снова пролет...
Структура if DirectoryExists('\pc1FоlderNet') then похоже работает и так if DirectoryExists('//pc1/FоlderNet ...

Хорошо.Тогда я представлю вам сам код,а вы скажите,что и где не так

1.var S:string;//для полного пути к файлу
2.f:Textfile;
3.R:string;//для чтения из файла
4.
5.begin
6.Memo1.Text:='';//чистим Мемо
7.S:=ExpandUNCFileName('С:/Documents and Settings/NetHood/FolderNet/tabl.txt');
8.AssignFile(f,S ...

alexey38 ,на радостях что вот-вот... забежал в папку "Сетевое окружение",нашел эту расшаренную на компе "А" папку FolderNet,кликнул правой мышей.а там "о подключении ее как сетевого диска" и слова нет... По идее она уже оформлена как диск на компе "А",но почему-то видна не диском,а папкой на компе ...

Серж.уж я не знаю как стандартными средствами примонтировать диск.По крайней мере такого еще делать не приходилось.На компе "А" эту самую расшаренную папку я оформил как сетевой диск.У него даже буква есть "Z:".
Но с компа "В" в сетевом окружении папка как раз смотрится как папка,а не диск "Z ...