Jump to content

Search the Community

Showing results for tags 'компоненты'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • uniGUI Public
    • Announcements
    • General
    • Feature Requests
    • Installation
    • Deployment
    • Other Platforms
  • Licensing
    • Licensing
    • Ordering uniGUI
  • Bug Reports
    • Active Reports
    • Closed Reports
    • Old Bug Reports
  • uniGUI Development
    • General Development
    • uniGUI Releases & Roadmaps
    • Utilities
  • Mobile Platform
    • uniGUI Mobile
    • Mobile Browsers
  • Users Area
    • Sample Projects
    • Components and Code Samples
    • Third Party Components
  • Non-English
    • Non-English
  • Miscellaneous
    • Hosting
    • Server Security
    • Jobs

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. Добрый день! 1. Есть компонент меню (смотрите скрин): Привожу код инициализации: procedure TMainForm.UniFormActivate(Sender: TObject); var Spr: TBMMItems; Spr2: TBMMItems; Docs: TBMMItems; Docs3: TBMMItems; Docs23: TBMMItems; begin if not dura then begin dura:= true; UniSession.AddJS('document.title = "Парк оргтехники";'); BMMMenu:= TBMMMenu.Create(Self); Spr:= BMMMenu.BMMItems.Add(TBMMItems.Create('Справочники')); Spr.Add(TBMMItems.Create('Справочник1', 'img/6655.png')).ItemClickProc:= procedure(sender: TObject) begin UniSession.AddJS('alert("Справочник1 Click!!!");'); end; Spr2:= Spr.Add(TBMMItems.Create('Справочник2')); Spr2.Add(TBMMItems.Create('Справочник21')).ItemClickProc:= procedure(sender: TObject) begin UniSession.AddJS('alert("Справочник21 Click!!!");'); end; Spr2.Add(TBMMItems.Create('Справочник22')).ItemClickProc:= Spr22Click; Spr2.Add(TBMMItems.Create('Справочник23')); Spr2.Add(TBMMItems.Create('Справочник24')); Docs:= BMMMenu.BMMItems.Add(TBMMItems.Create('Документы')); Docs.Add(TBMMItems.Create('Документ1')); Docs3:=Docs.Add(TBMMItems.Create('Документ2')); Docs3.Add(TBMMItems.Create('Документ21')); Docs3.Add(TBMMItems.Create('Документ22')); Docs23:= Docs3.Add(TBMMItems.Create('Документ23')); Docs23.Add(TBMMItems.Create('Документ231', 'img/6655.png')); Docs23.Add(TBMMItems.Create('', '', true)); Docs23.Add(TBMMItems.Create('Однажды в студенную зимнюю пору я из лесу вышел обратно зашел!!!')); Docs23.Add(TBMMItems.Create('Документ233')); Docs3.Add(TBMMItems.Create('Документ24')); Docs.Add(TBMMItems.Create('Документ3')); BMMMenu.BMMItems.Add(TBMMItems.Create('Сервис')); BMMMenu.HTML; end; end; 2. Есть также фреймворк для отображения данных из Firebird: Особенности: Автоматическое создание форм с гридом, сортировкой, фильтрацией, лукапами, выводом в ехсель, загрузкой файлов в поле записи, автоматическая обработка вставки, обновления записи, мастер-детайл. Принцип такой: создал таблицы, запустил одну процедуру и получил ВСЕ Вышеперечисленное на автомате!!! Разумеется есть и тонкая настройка! Все что нужно это запустить одну процедуру!!! BMM_Actor.CreateFreeSpravka('Журнал актов', TFrameAktJrn, function: string begin result:= '{"params": [{"p" : "DT1", "v": "' + UniDateTimePicker1.Text + '", "t" : "datetime", "valuetype" : "value"}, ' + '{"p" : "DT2", "v": "' + UniDateTimePicker2.Text + '", "t" : "datetime", "valuetype" : "value"}], "panel": "Pan_Viols"}'; end, '[{"panel": "Pan_Viols", "provider": "NewAkt"}]', '{"params": [{"p" : "DT1", "v": "' + UniDateTimePicker1.Text + '", "t" : "datetime", "valuetype" : "value"}, ' + '{"p" : "DT2", "v": "' + UniDateTimePicker2.Text + '", "t" : "datetime", "valuetype" : "value"}], "panel": "Pan_Viols"}', '[{"panel": "Pan_Viols", "insert_proc": "VIOLS_INS", "update_proc": "VIOLS_UPD1"}]' ); Фреймворк реализован двумя компонентами с собственным визуальным редактором свойств, где все можно настроить (см Картинку) Вопрос 1: Можно ли все это продавать (недорого) Вопрос 2: Сколько подобное стоит? (примерно) Меню расчитываю продать по 10$ за копию Фреймворк по 50$
×
×
  • Create New...