Кто-то делал ленту новостей - поделитесь опытом.

[dbf_usr]

Кто-то делал ленту новостей - поделитесь опытом.

Какие компоненты использовал и ваш опыт.

За ранее всем благодарен за ответы.

[dbf_usr]

Что-то типа такого: https://download.tmssoftware.com/tmsweb/demos/tmsweb_continuousscroll/

[Sherzod]

9 hours ago, dbf_usr said:

Кто-то делал ленту новостей - поделитесь опытом.

Какие компоненты использовал и ваш опыт.

За ранее всем благодарен за ответы.

Добрый день,

Один из возможных решений.

Вы можете следовать этим шагам:

1. Использовать UniHTMLMemo, при инициализации (initialize) в head добавить свои стили.

2. Из базы данных вывести определенное количество записей (asc, desc и нужно запоминать "id").

3. В цикле использовать методы Lines.Insert, Lines.Add для вставки записей.

4. Нужно добавить scroll событие, и анализировать, в начало или в конец, и отправить запрос на сервер, что нужно вывести еще определенное количество записей.

5 -> 2. Мы ранее запоминали "id". Последующие запросы будут включать дополнительное условие id > :id 

[dbf_usr]

14 hours ago, Sherzod said:

Добрый день,

Один из возможных решений.

Вы можете следовать этим шагам:

1. Использовать UniHTMLMemo, при инициализации (initialize) в head добавить свои стили.

2. Из базы данных вывести определенное количество записей (asc, desc и нужно запоминать "id").

3. В цикле использовать методы Lines.Insert, Lines.Add для вставки записей.

4. Нужно добавить scroll событие, и анализировать, в начало или в конец, и отправить запрос на сервер, что нужно вывести еще определенное количество записей.

5 -> 2. Мы ранее запоминали "id". Последующие запросы будут включать дополнительное условие id > :id 

Очень благодарен за ответ. 

Подскажите, как можно из URL в UniHTMLMemo обратиться к процедуре или функции программы?

[Sherzod]

10 minutes ago, dbf_usr said:

как можно из URL в UniHTMLMemo обратиться к процедуре или функции программы?

 

[x11]

Я использовал TunimDBListGrid + кучу костылей на базе шаблонизатора.

К сожалению, за несколько лет разработчики так и не создали что-то вроде  TunimListView с конструктором.

К сожалению, TunimDBListGrid не поддерживает бесконечную прокрутку и разработчики так и не реализовали ее.

[dbf_usr]

On 10/21/2021 at 7:36 AM, Sherzod said:

...

1. Использовать UniHTMLMemo, при инициализации (initialize) в head добавить свои стили.

...

Подскажите пожалуйста как именно нужно при инициализации добавить стили? В документации не нашел.

[Sherzod]

1 hour ago, dbf_usr said:

Подскажите пожалуйста как именно нужно при инициализации добавить стили? В документации не нашел.

...

[dbf_usr]

Не работает.

[Sherzod]

Что не работает? Стили?

Попробуйте создать простой тестовый случай.

 

[dbf_usr]

57 minutes ago, Sherzod said:

Что не работает? Стили?

Попробуйте создать простой тестовый случай.

 

возможно я не правильно использую

function initialize(sender, eOpts)
{
  sender.iframeEl.dom.contentDocument.head.innerHTML += '<style> .box1 {background: #FFFFFF; width: 50%; box-shadow: 0.2px 0.3px 2px rgba(0,0,0,0.3);'+
    'padding: 10px; border-radius: 5px;}'+
    '.box2 { background: #FFFFFF; width: 46%; box-shadow: 0.2px 0.3px 2px rgba(0,0,0,0.3); '+
    'padding: 10px; border-radius: 5px; box-sizing: border-box; line-height: 0.3em; '+
    'margin-top: 0.1em; margin-bottom: 0.1em; height: 57px; } '+        
    '.mss {background: #0FC0FC; width: 50%; padding: 10px; border-radius: 7px;} '+ 
    '.round { float: left; margin-right: 10px; margin-bottom: 10px; width: 30px; height: 30px;'+  
    'object-fit: cover; border-radius: 100px; box-shadow: 0 0 0 0.1px grey, 0 0 2px #333; } </style> ';
 }

 

[Sherzod]

В консоле ошибок нет?

[dbf_usr]

1 minute ago, Sherzod said:

В консоле ошибок нет?

ошибок нет, просто отображается без стилей. Эту сроку я взял из примера 

sender.iframeEl.dom.contentDocument.head.innerHTML

но не уверен, что правильно

[Sherzod]

23 minutes ago, dbf_usr said:

function initialize(sender, eOpts)

Вы уверены что точно вставили для UniHTMLMemo1 -> ClientEvents -> ExtEvents -> ?

[Sherzod]

Вот еще одна ссылка:

 

[Sherzod]

Кажется эту ссылку я давал уже.

[Sherzod]

48 minutes ago, dbf_usr said:

ошибок нет, просто отображается без стилей. Эту сроку я взял из примера 

sender.iframeEl.dom.contentDocument.head.innerHTML

но не уверен, что правильно

Тогда, если есть возможность, создайте простое приложение, проанализируем.

[Sherzod]

Пример из работающего проекта, здесь включаем CSS файл:

      ClientEvents.ExtEvents.Values['initialize'] :=
        'function initialize(sender, eOpts)'+
        '{'+
        '    let doc = sender.iframeEl.dom.contentDocument;'+
        '    let body = doc.body;'+
        '    let head = doc.head;'+
        '    let link = document.createElement("link");'+
        '    link.rel = "stylesheet";'+
        '    link.type = "text/css";'+
        '    link.href = "files/YoutCSSFile.css";'+
        '    head.append(link);'+
        '}';

 

[dbf_usr]

вот исходники

err_http.zip

[dbf_usr]

On 10/23/2021 at 7:47 PM, Sherzod said:

Пример из работающего проекта, здесь включаем CSS файл:

      ClientEvents.ExtEvents.Values['initialize'] :=
        'function initialize(sender, eOpts)'+
        '{'+
        '    let doc = sender.iframeEl.dom.contentDocument;'+
        '    let body = doc.body;'+
        '    let head = doc.head;'+
        '    let link = document.createElement("link");'+
        '    link.rel = "stylesheet";'+
        '    link.type = "text/css";'+
        '    link.href = "files/YoutCSSFile.css";'+
        '    head.append(link);'+
        '}';

 

не работает

[Sherzod]

On 10/23/2021 at 9:56 PM, dbf_usr said:

err_http.zip 7.67 MB · 2 downloads

[dbf_usr]

10 hours ago, Sherzod said:

Стиль в исходнике есть, только работает не полностью. Цвет фона не применился, тени блоков не применились. Зато обрезалась по кругу картинка. Можно как-то добиться, что бы стили корректно применялись? И как отключить рамку в UniHTMLMemo, BorderStyle=ubsNon  - не работает, рамка по прежнему видна.

За ранее благодарен!

[dbf_usr]

On 10/23/2021 at 2:14 PM, Sherzod said:

...

В примере:

with UniHTMLMemo1 do
  begin
    Lines.Add('<a href="javascript:window.parent.ajaxRequest(window.parent.'+JSName+', ''hrefClick'', [''hrefId=hrefId1''])">test</a>');
    ReadOnly := True;
  end;

есть переменная: JSName    Что она должна содержать? Где взять название скрипта?

За ранее благодарен за ответ!

 

[Sherzod]

7 minutes ago, dbf_usr said:

есть переменная: JSName    Что она должна содержать?

Это свойство объекта (компоненты).

8 minutes ago, dbf_usr said:

Где взять название скрипта?

Уточните пожалуйста.

[dbf_usr]

1 hour ago, Sherzod said:

Это свойство объекта (компоненты).

Уточните пожалуйста.

Что нужно написать в строке 

Lines.Add('<a href="javascript:window.parent.ajaxRequest(window.parent.'+JSName+', ''hrefClick'', [''hrefId=hrefId1''])">test</a>');

вместо JSName ? Можно пример?