Вопросы по компиляции SAS

[zed]

Ввиду того, что с сегодняшнего дня САС стал открытым проектом (да, опять ), у желающих скомпилировать исходники наверняка появятся вопросы. Вот тут их и предлагаю решать.

Ну и линки:
- исходники: https://bitbucket.org/sas_team/sas.planet.src
- компоненты: https://bitbucket.org/sas_team/sas.requires
- исходники библиотек: https://bitbucket.org/sas_team/sas.lib.external

Рекомендуемый компилятор - XE2

Новичкам в помощь: Образ виртуальной машины с настроенной средой для разработки SAS.Planet

[zed]

В 2010-й юникод. Не соберётся оно.

[vdemidov]

В 2010-й юникод. Не соберётся оно.

Оно может и соберется, но половина операций будет работать неправильно или вообще вызывать падение проги.

[DJ VK]

Где взять microsoft document explorer, который просит дельфи 2007 lite ?

32-bit: http://go.microsoft.com/fwlink/?linkid=63706
64-bit: http://go.microsoft.com/fwlink/?linkid=63730

внутри архивов нам нужен DExplore.exe

[uniquename]

Подскажите пожалуйста, хочу добавить функционала в програмку. Чтоб скомпилировать ее, поставил Delphi 2007, отсюда https://bitbucket.org/zedxxx/sas.requires докачал необходимые компоненты, ставлю их по инструкции последовательно. При установке tbx компонента, вылетает ошибка [DCC Error] TBXLists.pas(189): E2037 Declaration of 'MouseWheel' differs from previous declaration.

Строчка в описании класса
TTBXCustomListViewer = class(TTBXItemViewer)
....
procedure MouseWheel(WheelDelta: Integer; X, Y: Integer); override;
....

В чем может быть проблема, в каком классе описана процедура MouseWheel' , которая отличается?

[zed]

Она описана в tb2k (TB2Item):

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

TTBItemViewer = class
...
procedure MouseWheel(WheelDelta: Integer; X, Y: Integer); virtual;
...

и у меня ничем не отличается. У вас установлен ещё какой-нить tb2k?

[uniquename]

до этого я ставил другие tb2k, так как не заметил, что все нужные компоненты уже собраны по ссылке выше, но потом их удалили через Components->Install Packages->Remove, плюс удалил пути из library path, в итоге имеющийся список в library path такой:
$(BDS)\lib;$(BDSUSERDIR)\Imports;$(BDS)\Imports;$(BDS)\Lib\Indy10;$(BDSCOMMONDIR)\Dcp;$(BDS)\lib_sas\alcinoe\source;$(BDS)\lib_sas\graphics32\Source;$(BDS)\lib_sas\tb2k;$(BDS)\lib_sas\tbx;$(BDS)\lib_sas\tb2k\source;$(BDS)\lib_sas\EmbeddedWB\source;$(BDS)\lib_sas\vpr;$(BDS)\lib_sas\imaginglib\source;$(BDS)\lib_sas\imaginglib\source\JpegLib;$(BDS)\lib_sas\imaginglib\source\ZLib;$(BDS)\lib_sas\imaginglib\Extras\Extensions;$(BDS)\lib_sas\imaginglib\Extras\Extensions\LibTiff;$(BDS)\lib_sas\PascalScript\Source;$(BDS)\lib_sas\vsagps\Runtime;$(BDS)\lib_sas\vsagps\Public

Она описана в tb2k (TB2Item):

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

TTBItemViewer = class
...
procedure MouseWheel(WheelDelta: Integer; X, Y: Integer); virtual;
...

и у меня ничем не отличается. У вас установлен ещё какой-нить tb2k?

так все таки "virtual;" или "override;"?

[zed]

до этого я ставил другие tb2k

Возможно нужно подчистить bpl и dcu в директориях делфи. Видимо оно что-то подхватывает от установленных ранее компонентов. В крайнем случае, переустановка delphi с чисткой от следов присутствия оной, должно помочь.

[zed]

Подскажите пожалуйста, хочу добавить функционала в програмку.

Какой, если не секрет?

[zed]

так все таки "virtual;" или "override;"?

В TTBItemViewer он virtual, а в TTBXCustomListViewer (наследник от TTBItemViewer) - override И никакой ошибки тут нет.

http://www.delphisources.ru/pages/faq/f ... l.php.html

[uniquename]

"Какой, если не секрет?"
Ну скажем так, нужного мне функционала)
На картах надо рисовать кучу разных динамических объектов из базы данных. Сначала на карте города в Jpege рисовал, 10х10 тыс пикс, так то работает, но с масштабированием не заладилось, да и заготовки надо заранее карт городов делать, с привязкой к гео координатам. Плюс, если Киев к примеру, то для нужной детализации размер монолитной картинки будет зашкаливать. Тайлами бить и прописывать тоже мороки куча. А тут если все скомпилируется, то после прорисовки карт из инета (кеша) можно на канве рисовать.

Сейчас буду удалять чистить, пробовать заново.