Открытый христианский форум JesusChrist.ru

"И да будут слова сии, которые Я заповедую тебе сегодня, в сердце твоем... и напиши их на косяках дома твоего и на воротах твоих и на обоях рабочего стола твоего..." Втор.6:6-9 суперсовременный перевод :)

Вышла в свет BETA версия программы "Bible Verse Desktop 3". Прежнее название Bible Verse по русски "Библейский стих".

Это программа пишет цитаты из Библии на обоях рабочего стола. Третья версия содержит 1000 библейских цитат на 8 языках: русском, украинском, английском, французском, немецком, хинди, китайском и тайландском.
Подробности тут

Буду очень признателен всем, кто протестирует BETA версию и напишет мне отзыв.

В XP программа исчезает с рабочего стола после нажатия кнопки "Свернуть все". А многие этой кнопкой пользуются.

Сам делал похожую программу - http://jesuschrist.ru/forum/613024.php
Если вы пишите в Delphi, могу дать совет как победить сворачивание. Или сами посмотрите в исходниках.

Спасибо за отклик! Про функцию неизчезания я как то раньше и не думал, сам этой кнопкой редко пользуюсь да и вы первый, кто посоветовал мне это сделать. В принципе можно поэксперементировать. Скиньте лучше мне какую-нибудь инфу, чтобы в исходниках не копаться.

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=42112 - смотрите посты от uZveruga, там описаны нюансы.
В программе реализовано точно так же, только добавлено:

procedure WMMove(Var Message : TWMMove); message WM_Move;

procedure TForm1.WMMove(Var Message:TWMMove);
begin
if transp=true then begin
PaintDesktop(form1.Canvas.Handle); //выводит на форму фон с рабочего стола
Label1.Repaint;
end;
end;

Так я прозрачность делал. Из-за этого и не видно значков за окном программы, хотя и виден фон.

оk.. cпасибо.. покопаюсь на досуге.

Кстати, в версии 3 есть функция не только прозрачности, но и полупрозрачность. Для этого нужно покрутить колёсико мыши.

Я посмотрел, есть разные способы борьбы с сворачивания окна, которые по разному эффективны на различных версия Windows. Основная проблемма в том, что при сворачивании окон через Win+D окнам не посылается сообщение о минимизации. Каким именно методом Вы пользуетесь?

protected
procedure WMMove(Var Message : TWMMove); message WM_Move;
procedure CreateParams(var Params: TCreateParams); override;

procedure TForm1.CreateParams(var Params: TCreateParams);
var wd:HWnd;
begin
repeat
wd:=FindWindow('Progman','Program Manager');
until wd<>0;
inherited CreateParams(Params);
Params.WndParent:=wd;
Params.Style:=WS_CHILD; // or WS_THICKFRAME; - resize окна делаю сам иначе не знаю как избавиться от рамки...
desk_handle:=wd;
end;

Код процедуры WMMove я привел в сообщении выше.
При таком раскладе минимизация формы не происходит, она всегда остается на рабочем столе и только на нем.

в некоторый основный шрифтах, последняя цифра (места Писания) немного срезана. Например - arial, comic.

Потом, изображение букв резковатое.

Исчезает с рабочего стола после нажатия кнопки "Свернуть все". (очень нужная кнопка) Но это было и в первой версии.

Да, Владимир. Чтобы изображение букв было не резкое, нужно использовать компонент метку с поддержкой сглаживания шрифта.
Советую QualityLabels, есть в исходниках моей соломонской проги в папке Запчасти.

Резкое? У меня обе программы показыют шрифты одинаково.. Может от монитора зависит?

QualityLabels мне не подойдет, так как я использую компоненты c поддержкой юникода (Tnt).

ГОРЯЧИЕ КЛАВИШИ

Левая кнопка мыши - Показать новый стих
Правая кнопка мыши - Показать меню программы
Щелкнуть колёсико - Изменить список цитат
Покрутить колёсико мыши - Изменить прозрачность фона
Ctrl + Левая кнопка мыши - Копировать стих в буфер обмена
Ctrl + Колёсико мыши - Изменить размер шрифта
Alt + Левая кнопка мыши - Показать предыдущий стих
Alt + Колёсико мыши - Изменить яркость фона
Shift + Колёсико мыши - Изменить шрифт
Ctrl + Shift + Колёсико мыши - Изменить ширину окна
Если же при перемещении цитаты нажать кнопку ALT, то включится функция автоподбора цвета фона.

Может и от монитора. На ЭЛТ не так нужно сглаживание, как на ЖК.

Резкое? У меня обе программы показыют шрифты одинаково..

Да... я это не написал. Первая тоже показывала резковато.

А вообще, огромное спасибо за программы.

vladimir_temp, огромное спасибо за третью версию, за новые вкусности ))

Число случайно обнаружил сию тему на этом форуме.
Давича пытался выяснить обновилась ли Bible Verse 2.0. В меню "О программе" в качестве домашней странички указан старый сайт. Пожалуйста, сделайте на нем (старом сайте) ссылку на Ваш новый сайт.

Про функцию неизчезания я как то раньше и не думал, сам этой кнопкой редко пользуюсь да и вы первый, кто посоветовал мне это сделать.

Присоединяюсь к просьбе. Очень неудобно, когда окно с цитатой сворачивается вместе со всеми окнами.

Еще одна большая просьба.

Сейчас в программе закреплен левый край окна, и длина окна динамически меняется вправо в зависимости от размера цитаты. Но мое окошко с цитатой находится у правого края моего рабочего стола. Посему, было бы весьма удобно получить еще одну настройку: закрепить правый край окна (чтобы размер окна менялся влево).

И еще парочка замечаний:

1.
Если окошко ICQ-клиента R&Q наезжает на BVD (Bible Verse Desktop), то после сворачивания R&Q окошко BVD "пропадает" за исключением области, которая находилась под R&Q. И если кликнуть по этой оставшейся области, то окошко полностью обновится (и покажет очередную цитату).

2.
Если на окошко BVD наехать, например окном Проводника (у которого белый фон), то фон BVD осветлится.
Хотел бы, чтобы фон окна BVD реагировал только на окраску обоев и не реагировал на "пролетающие" поверх окна. Может быть реализовать сию фичу дополнительной настройкой - каждый выберет то, что больше по вкусу.

Ошибка на домашней страничке - неправильная ссылка на Гостевую Книгу.

Ссылку на гостеву исправил - спасибо. Что касается предложений и дополнений - это уже дело следующей версии.

>> 2. Если на окошко BVD наехать, например окном Проводника (у которого белый фон), то фон BVD осветлится. Хотел бы, чтобы фон окна BVD реагировал только на окраску обоев и не реагировал на "пролетающие" поверх окна.

Страннно, у меня ничего подобного не наблюдается.. У Вас какая Виндовс?

>> 2. Если на окошко BVD наехать, например окном Проводника (у которого белый фон), то фон BVD осветлится. Хотел бы, чтобы фон окна BVD реагировал только на окраску обоев и не реагировал на "пролетающие" поверх окна.

Страннно, у меня ничего подобного не наблюдается.. У Вас какая Виндовс?

Наблюдал подобное на WinXP x32.
На Win7 x64 подобного не наблюдается.

Что касается предложений и дополнений - это уже дело следующей версии.

Можно ли надеяться увидеть новую версию в ближайшее время? :)

На воскресных служениях используется проектор для вывода текстов песен, и было бы хорошо чтобы в остальное время выводились цитаты из Библии, причём разные, в Bible Verse Desktop 2.02 при смене цитаты окно программы убегает с проектора на монитор. Давно искал ответ на вопрос , а тут ссылка на 3ю версию. Установил, работает хорошо(респект автору),но, хотя и не полностью продолжает убегать. Что можно предпринять?