TMS Component Pack 7.1.3.0 Full source

Ответить
 

DJ VK

Стаж: 17 лет 7 месяцев

Сообщений: 249

DJ VK · 25-Янв-14 11:08 (11 лет 8 месяцев назад, ред. 25-Янв-14 11:08)

Доработанные исходники (и файлы проекта bcb6)
скрытый текст
http://www23. СПАМ
1. advnavbar. отчеркивающая секции линия сделана сверху, и визуально не отделяет надпись от ее же контролов.
2. advsmoothlistbox. доработан механизм размещения объектов в разные секции, (в конце каждой добавляется сплиттер для визуального отделения от следующей секции). работать с листом надо через жопу, поскольку секции не чистятся корректно (в версии 6.9 точно). проще помнить сколько было их штук, и наращивать по мере надобности, а старые переименовывать
скрытый текст
Код:
//---------------------------------------------------------------------------
void __fastcall TForm3::AddSLSection(AnsiString Section,AnsiString SectionAbbr,int Tag)
{
  int Zer=0;
  if(CatCnt>0) Zer=(int)SL->Objects[CatCnt-1];
  SL->AddObject(" ",(TObject*)Zer);
  if(SL1->Categories->Count<=CatCnt)
  {
    SL1->Categories->Add();
    SL1->Categories->Items[CatCnt]->Id=CatCnt;
  }
  SL1->Categories->Items[CatCnt]->LookupText=SectionAbbr;
  SL1->Categories->Items[CatCnt]->Text=Section;
  SL1->Categories->Items[CatCnt]->Tag=Tag;
  CatCnt  ;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::AddSLSectionItem(int Category,TNV_Entity* Entity,bool Visible,int Pos)
{
  SL1->Items->Insert(Pos);
  AnsiString ItemStr="Описание: ";
  SL1->Items->Items[Pos]->Indent=8;
  SL1->Items->Items[Pos]->Caption="Название: ";
  SL1->Items->Items[Pos]->Info="Номер: ";
  SL1->Items->Items[Pos]->CategoryID=Category;
  SL1->Items->Items[Pos]->GraphicLeftIndex=Ind;
  SL1->Items->Items[Pos]->Notes=ItemStr;
  SL1->Items->Items[Pos]->Tag=Entity->Number;
  SL1->Items->Items[Pos]->Visible=Visible;
  SL1->Items->Items[Pos]->Splitter=false;
}
  SL=new TStringList;
  int i;
  SL1->Sections->Visible=true;
  SL1->Sections->Color=SL1->ItemAppearance->FillDisabled->Color;
  SL1->Sections->ColorTo=SL1->ItemAppearance->FillDisabled->ColorTo;
  SL1->Items->Clear();
  SL1->Header->Caption=AnsiString("");
  CatCnt=0;
  AddSLSection("Неснимаемые с охраны","",BS_NONUNLOCKABLE);
  AddSLSection("Управляемые оператором","",BS_OPERATOR_CONTROL);
  AddSLSection("Снимаемые с охраны с подтверждением оператора","",BS_OPERATOR_UNLOCK_ACCEPT);
  AddSLSection("Управляемый без ограничения","",BS_FREE_CONTROL);
  int BSCnt,CurrentBS,Pos;
  BSCnt=Form1->Conf->GetBSCount();
  CurrentBS=0;
  while(CurrentBS<BSCnt)
  {
    Form1->Conf->OpenBSByNum(CurrentBS);
    int Sect=-1;
    for(i=0;i<CatCnt;i  )
    {
      if(SL1->Categories->Items[i]->Tag==Element->GetEnumVal())
      {
        Sect=SL1->Categories->Items[i]->ID;
        break;
      }
    }
    if(Sect!=-1)
    {
      Pos=(int)SL->Objects[i];
      AddSLSectionItem(Sect,Entity,!Form1->Conf->CheckMSGRBSNumber(Entity->Number),Pos);
      for(;i<CatCnt;i  )
      {
        Pos=(int)SL->Objects[i];
        Pos  ;
        SL->Objects[i]=(TObject*)Pos;
      }
    }
    Form1->Conf->CloseBS();
    CurrentBS  ;
  }
  delete Entity;
  delete Element;
  for(i=0;i<CatCnt;i  )
  {
    Pos=(int)SL->Objects[i];
    Pos =i;
    SL1->Items->Insert(Pos);
    SL1->Items->Items[Pos]->CategoryID=i;
    SL1->Items->Items[Pos]->Splitter=true;
  }
  delete SL;
3. advgrid. ну тут по порядку.
-каждая таблица при сохранении в html создает свою таблицу стилей!!
-рисунки экпортируясь в html именуются по номеру в имаджлисте и физическому размеру, что позволяет несколько разных файлов экспортировать в 1 папку без доп. геморроя и доп. места на диске
-вместо имаджлиста можно использовать скоростной gdippicturecontainer, загрузка файлов PNG в который мгновенна.
-исправлена отрисовка структуры дерева, все лишние линии убраны.
-скорректирована вставка рисунков при печати.
-ширина кнопок неактивных редакторов выровнена по правому краю минус 1 пиксел.
4. advglowbutton. собственный вариант заливки и контуров. произвольные границы. 2 градиента свечение произвольной формы. бордюр произвольной толщины. возможность управления заливкой и свечением в реальном времени по таймеру и событиям. beta.
5. возвращена совместимость с bcb6
[Профиль]  [ЛС] 

Raiden3000

Стаж: 15 лет 6 месяцев

Сообщений: 4


Raiden3000 · 26-Янв-14 11:22 (спустя 1 день, ред. 26-Янв-14 11:22)

ArTnI писал(а):
62530723Итого у меня поллучились такие инструкции
Установка TMS Component Pack 7.X.X.X Full source в Embarcadero RAD Studio [2014.01.14]
скрытый текст
Для С++: tmscxe5group.groupproj -> Compile All
tmscxe5.cbproj -> Activate & Install ("TMS Component Pack")
tmsexcxe5.cbproj -> Activate & Install ("TMS Component Pack Extra")
tmsdecxe5.cbproj -> Activate & Install ("TMS Component Pack design time support" -> "TAdvCurveEditorDialog")
tmsxlscxe5.cbproj -> Activate & Install ("TAdvStringGrid Excel support" -> "TAdvGridExcelIO")
Для Delphi: tmsdXE5group.groupproj -> Compile All
tmscxe5.bpl,tmsdecxe5.bpl,tmsxlscxe5.bpl скопировать в папку ..\Embarcadero RAD Studio\bin\
Сделал по инструкции выше инсталлировал все компоненты.
Когда компилирую программу с компонентами пака получаю ошибку отсутствует tmscxe5.bpl может я неправильно указываю шапку, в другой инструкции $(BDSINCLUDE)\TMS Component Pack в system include path, platform windows 32 или 64 одно и тоже?
Использую RAD studio XE5 С++ builder. Никогда раньше не устанавливал паки может что нетак сделал, а то не одной внятной инструкции в интернете нет.
По поводу второй инструкции на этапе:
Цитата:
4) Нажать File->Open и выбрать файл {TMSPACK}\tmsexc2011.cbproj.
получаю ошибку чтения Тег конца Delphi compile не соответствует тегу начала ItemGroup.
[Профиль]  [ЛС] 

emale_ru

Стаж: 17 лет 4 месяца

Сообщений: 19


emale_ru · 04-Фев-14 15:51 (спустя 9 дней)

Так и не осилил установку в C++ Builder 2010
Нереально.
Если у кого получилось, помогите пожалуйста.
[Профиль]  [ЛС] 

m9389151093

Стаж: 13 лет 5 месяцев

Сообщений: 3


m9389151093 · 28-Фев-14 20:52 (спустя 24 дня)

Кто может подсказать а в Fire Monkey они появляются? или там специальный пакет есть?
[Профиль]  [ЛС] 

azl

Стаж: 19 лет

Сообщений: 610

azl · 18-Мар-14 21:05 (спустя 18 дней)

Для FireMonkey отдельный пакет TMS Cloud Pack for FireMonkey
[Профиль]  [ЛС] 

iscentre

Стаж: 16 лет

Сообщений: 1


iscentre · 07-Апр-14 14:39 (спустя 19 дней)

всем привет, поделитесь если у кого есть tms cloud pack 2.х
[Профиль]  [ЛС] 

TSK_neiro_shell

Стаж: 13 лет 5 месяцев

Сообщений: 6

TSK_neiro_shell · 28-Апр-14 14:39 (спустя 21 день)

Raiden3000 писал(а):
62693629Сделал по инструкции выше инсталлировал все компоненты.
Когда компилирую программу с компонентами пака получаю ошибку отсутствует tmscxe5.bpl может я неправильно указываю шапку, в другой инструкции $(BDSINCLUDE)\TMS Component Pack в system include path, platform windows 32 или 64 одно и тоже?
Использую RAD studio XE5 С++ builder. Никогда раньше не устанавливал паки может что нетак сделал, а то не одной внятной инструкции в интернете нет.
Поставил дома (Win7 x64, XE2 Builder), встало почти без проблем. На 'работе' (WinXP x32, XE2 Builder) ни в какую, а именно, не могло найти похожий файлик.
Действовал по инстр. ArTnI (для 7.1.3.0), ошибка отсутствия "tmscxe5.bpl" или подобных:
1)Tools->Options->C++ Options->Paths & Directories->BPI/LIB output directory и Packedge output directory задал ту, на которую ругался компановщик
2)Пересобрал все пакеты заново
Заработало!
[Профиль]  [ЛС] 

Stark3

Старожил

Стаж: 14 лет 10 месяцев

Сообщений: 6

Stark3 · 06-Май-14 17:06 (спустя 8 дней)

Спасибо, все работает)
Ребят, подскажите, пожалуйста, а оно не перестанет работать, например, через полгодика?
Не будет ли ситуации, когда бабушка-бухгалтер будет в шоке от неработающей программы и надписи, типа "Истек срок лицензии" или похожее, ну вы поняли))
[Профиль]  [ЛС] 

icm.dizayn

Стаж: 11 лет 6 месяцев

Сообщений: 1


icm.dizayn · 15-Май-14 13:15 (спустя 8 дней, ред. 15-Май-14 13:15)

Ребята ни кто не проверил AdvGlowButton она не в какую не хочет работать с изображениями
Выбираешь изображение загружается нажимаешь ОК чтоб она встала на кнопку выскакивает ошибка
Invalid graphic format

проверил все возможные форматы (icon - png - bmp) результат нулевой....в чем проблема то??
Delphi XE5
[Профиль]  [ЛС] 

usmoon

Стаж: 12 лет 11 месяцев

Сообщений: 1


usmoon · 15-Июн-14 07:42 (спустя 30 дней)

Vsem privet, mne takoe problem: Cannot load package tmsdXE4, it contains unit pictureContainer which also contained in package 'color picker'
versiya delphi: Delphi XE4
[Профиль]  [ЛС] 

vuginet

Стаж: 15 лет

Сообщений: 32


vuginet · 25-Июн-14 21:02 (спустя 10 дней)

TMS Component Pack v7.4.1.0
пока ещё нету у Вас?
[Профиль]  [ЛС] 

mandrake03

Стаж: 15 лет 6 месяцев

Сообщений: 7


mandrake03 · 22-Июл-14 22:49 (спустя 27 дней)

http://pastebin.com/sghuD6rz
[Профиль]  [ЛС] 

Зверюга

Старожил

Стаж: 17 лет 4 месяца

Сообщений: 330

Зверюга · 23-Июл-14 00:07 (спустя 1 час 17 мин.)

A Advanced Charts для XE6 есть?
[Профиль]  [ЛС] 

vuginet

Стаж: 15 лет

Сообщений: 32


vuginet · 23-Июл-14 04:37 (спустя 4 часа)

mandrake03 писал(а):
Вот эту ссылку можно сделать для обычной загрузки?
http://fileom.com/oza3hpazlqmq/TMS.Component.Pack.v7.4.4.0.cracked.rar
А то требует премиум (платную) регистрацию
[Профиль]  [ЛС] 

cadrules

Стаж: 15 лет 6 месяцев

Сообщений: 1


cadrules · 23-Июл-14 11:22 (спустя 6 часов, ред. 24-Июл-14 13:30)

Всем доброго дня . кто может подсказать почему ни в одном из наборов tms 7,1-6,5 не содержится TAdvDBFormBox. где взять этого зверя?
узнал TAdvDBFormBox содержится в наборе начиная с версии 7.2. , у кого нить tms 7.2 имеется , выложите плиз
vuginet писал(а):
64627452
mandrake03 писал(а):
Вот эту ссылку можно сделать для обычной загрузки?
http://fileom.com/oza3hpazlqmq/TMS.Component.Pack.v7.4.4.0.cracked.rar
А то требует премиум (платную) регистрацию
на архиве по этой ссылке пароль . так что не ведитесь
[Профиль]  [ЛС] 

vuginet

Стаж: 15 лет

Сообщений: 32


vuginet · 25-Июл-14 00:07 (спустя 1 день 12 часов)

cadrules писал(а):
64629106Всем доброго дня . кто может подсказать почему ни в одном из наборов tms 7,1-6,5 не содержится TAdvDBFormBox. где взять этого зверя?
узнал TAdvDBFormBox содержится в наборе начиная с версии 7.2. , у кого нить tms 7.2 имеется , выложите плиз
vuginet писал(а):
64627452
mandrake03 писал(а):
Вот эту ссылку можно сделать для обычной загрузки?
http://fileom.com/oza3hpazlqmq/TMS.Component.Pack.v7.4.4.0.cracked.rar
А то требует премиум (платную) регистрацию
на архиве по этой ссылке пароль . так что не ведитесь
-----------------------------------------------------------------------------------------------
Тогда, суть этой ссылки?
Заработать захотели, что ли?
[Профиль]  [ЛС] 

AlexXXX12389

Стаж: 16 лет 10 месяцев

Сообщений: 2


AlexXXX12389 · 29-Июл-14 08:41 (спустя 4 дня)

кое-как нарыл версию с поддержкой xe6, если кому надо, то вот - https://yadi.sk/d/OdnDgPaKYCrBw
[Профиль]  [ЛС] 

mandrake03

Стаж: 15 лет 6 месяцев

Сообщений: 7


mandrake03 · 02-Авг-14 21:35 (спустя 4 дня)

AlexXXX12389 писал(а):
64682057кое-как нарыл версию с поддержкой xe6, если кому надо, то вот - https://yadi.sk/d/OdnDgPaKYCrBw
This modded version gives this error
Цитата:
Application is not licensed to use this feature
[Профиль]  [ЛС] 

vuginet

Стаж: 15 лет

Сообщений: 32


vuginet · 03-Авг-14 02:19 (спустя 4 часа, ред. 03-Авг-14 02:19)

mandrake03 писал(а):
64724288
AlexXXX12389 писал(а):
64682057кое-как нарыл версию с поддержкой xe6, если кому надо, то вот - https://yadi.sk/d/OdnDgPaKYCrBw
This modded version gives this error
Цитата:
Application is not licensed to use this feature
====================================================
Unzip and copy folder TMS.7.1.3.0.[5-XE6] to C:\Program Files (x86)\Embarcadero\TMS.7.1.3.0.[5-XE6]
Installing components with project groups (preferred)
_____________________________________________________
In Delphi or C++Builder, select File, Open
and browse for the appropriate project group file:
Delphi 7 : TMSD7.BPG
Delphi 2006 : TMSD2006.BDSGROUP
Delphi 2007 : TMSD2007.BDSGROUP
Delphi 2009 : TMSD2009.GROUPPROJ
Delphi 2010 : TMSD2010GROUP.GROUPPROJ
Delphi XE : TMSD2011GROUP.GROUPPROJ
Delphi XE2 : TMSDXE2GROUP.GROUPPROJ
Delphi XE3 : TMSDXE3GROUP.GROUPPROJ
...
Delphi XE6 : TMSDXE6GROUP.GROUPPROJ
C++Builder 2006 : TMSC2006.BDSGROUP
C++Builder 2007 : TMSC2007.GROUPPROJ
C++Builder 2009 : TMSC2009.GROUPPROJ
C++Builder 2010 : TMSC2010GROUP.GROUPPROJ
C++Builder XE : TMSC2011GROUP.GROUPPROJ
C++Builder XE2 : TMSCXE2GROUP.GROUPPROJ
C++Builder XE3 : TMSCXE3GROUP.GROUPPROJ
...
C++Builder XE6 : TMSCXE6GROUP.GROUPPROJ
Right click on each of the packages in the project group
and choose Install in following order:
TMSxxx
TMSEXxxx
TMSDExxx
TMSXLSxxx
TMSWIZxxx (only Delphi 2006/2007/2009/2010/XE!)
--------------------------------------------------------------------------------------
Under Tools, Environment Options, Library, add the directory where
the TMS components have been installed {$TMSDIR}\Win32 to the Win32 library path:
C:\Program Files (x86)\Embarcadero\TMS.7.1.3.0.[5-XE6]
[Профиль]  [ЛС] 

mandrake03

Стаж: 15 лет 6 месяцев

Сообщений: 7


mandrake03 · 04-Авг-14 18:33 (спустя 1 день 16 часов)

The error appears when compiling the app.
The components install themselves correctly.
[Профиль]  [ЛС] 

TSK_neiro_shell

Стаж: 13 лет 5 месяцев

Сообщений: 6

TSK_neiro_shell · 09-Авг-14 13:30 (спустя 4 дня, ред. 10-Авг-14 01:32)

У компонента AdvSmoothDock под XE2 Builder-ом не меняются некоторые цвета (основной в том числе). Кто-нибудь сталкивался?
P.S.:
Всё работает, просто надо снять галку с Trancparent.
[Профиль]  [ЛС] 

aleajac

Стаж: 15 лет 8 месяцев

Сообщений: 5


aleajac · 12-Авг-14 23:01 (спустя 3 дня)

AlexXXX12389 писал(а):
64682057кое-как нарыл версию с поддержкой xe6, если кому надо, то вот - https://yadi.sk/d/OdnDgPaKYCrBw
Спасибо, отлично работает.
[Профиль]  [ЛС] 

zdm77

Стаж: 16 лет 10 месяцев

Сообщений: 43


zdm77 · 26-Авг-14 20:52 (спустя 13 дней)

mandrake03 писал(а):
64724288
AlexXXX12389 писал(а):
64682057кое-как нарыл версию с поддержкой xe6, если кому надо, то вот - https://yadi.sk/d/OdnDgPaKYCrBw
This modded version gives this error
Цитата:
Application is not licensed to use this feature
ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБИЩЕ!!!!!!!!!!!!!!!!
1. Compile ALL
2.

3.

Компилятся проекте под XE6 и запускаются, вроде пока без проблем, спасибище!!!
[Профиль]  [ЛС] 

faust911

Стаж: 15 лет 7 месяцев

Сообщений: 6


faust911 · 12-Сен-14 12:45 (спустя 16 дней)

Не могу настроить компоненты для работы в дизайнере. Не ставится галочка design time support... у кого-нибудь завелось это дело?
[Профиль]  [ЛС] 

Zatupitel

Стаж: 18 лет 7 месяцев

Сообщений: 125


Zatupitel · 19-Сен-14 11:00 (спустя 6 дней)

Может тупо вскладчину возьмем ? Цена вопроса 10т рублей.
Кто готов, в личку.
Хотя бы 5 чел набрать, и можно год жить без забот.
[Профиль]  [ЛС] 

Stark3

Старожил

Стаж: 14 лет 10 месяцев

Сообщений: 6

Stark3 · 13-Янв-15 13:00 (спустя 3 месяца 24 дня, ред. 13-Янв-15 16:29)

icm.dizayn писал(а):
63935641Ребята ни кто не проверил AdvGlowButton она не в какую не хочет работать с изображениями
Выбираешь изображение загружается нажимаешь ОК чтоб она встала на кнопку выскакивает ошибка
Invalid graphic format
проверил все возможные форматы (icon - png - bmp) результат нулевой....в чем проблема то??
Delphi XE5
не забудь в Component --> InstallPackages поставить галку TMS Design Time Support
[Профиль]  [ЛС] 
 
Ответить
Loading...
Error