powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi 7 годовой календарь
81 сообщений из 81, показаны все 4 страниц
Delphi 7 годовой календарь
    #39766655
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите, что можно поискать.
Суть задачи вывести годовой календарь, все 12 месяцев сразу. С возможностью выделения и раскрашивания различных дат(бэкграунда цветом по условию из БД или списка).

Стандартные компоненты не подходят.
Реализовать получилось на AlphaSkins TsMonthCalendar, но есть пару НО:

1. Нельзя растянуть на 12 месяце как со стандартной компонентой.

А даже если рисовать 12 компонент с фиксированными месяцами и колхозить переходы между годами, то:
2. Нельзя убрать дни не относящиеся к текущему месяцу (рисуется и заполняется вся сетка 6х7).

Что посоветуете?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766657
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий6662. Нельзя убрать дни не относящиеся к текущему месяцу (рисуется и заполняется вся сетка 6х7).
Смотрел в MinDate, MaxDate?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766688
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обычный грид. Одна ячейка -- один день; записи -- месяцы; колонки -- дни. Очень наглядно и возможностей куча по работе с данными.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766810
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766832
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadmanВалерий6662. Нельзя убрать дни не относящиеся к текущему месяцу (рисуется и заполняется вся сетка 6х7).
Смотрел в MinDate, MaxDate?
Смотрел, нет такого.

JaDi, за почти 25 лет никто не нарисовал полноценную компоненту?)

DimaBr, видел, как события обрабатывать? анализировать и распознавать канву?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766833
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666Смотрел, нет такого.
Допилить не сложно:
Код: pascal
1.
2.
3.
4.
function Monthcal_SetRange(hmc: HWND; gdtr: DWORD; rgst: PSystemTime): BOOL;
begin
  Result := BOOL(SendMessage(hmc, MCM_SETRANGE, gdtr, Longint(rgst)));
end;
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766835
xMailer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dbgrideh
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766836
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Валерий666,

DevExpress'ы так умеют
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766840
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
xMailerdbgridehНе поделитесь исходником?)
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766854
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А у меня вот такой самодельный календарь на год.
Крутилки годОв-месяцОв - всё есть
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766874
Tactical Nuclear Penguin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecatorА у меня вот такой самодельный календарь на год.
Крутилки годОв-месяцОв - всё есть

жесть
зачем рвать месяцы на части??
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766876
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Tactical Nuclear PenguindefecatorА у меня вот такой самодельный календарь на год.
Крутилки годОв-месяцОв - всё есть

жесть
зачем рвать месяцы на части??

потому что дни привязаны к дням недели
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766879
Tactical Nuclear Penguin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecatorTactical Nuclear Penguinпропущено...


жесть
зачем рвать месяцы на части??

потому что дни привязаны к дням недели

я имею в виду что например 1 февраля должно занимать клеточку ниже и правее 31 января а не скакать непонятно куда
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766889
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Tactical Nuclear Penguindefecatorпропущено...


потому что дни привязаны к дням недели

я имею в виду что например 1 февраля должно занимать клеточку ниже и правее 31 января а не скакать непонятно куда

и тогда придётся глазами двигать влево-вправо, чтобы эту ленту читать.
А так перед глазами у тебя сразу один месяц в одну строку - сразу видно, где начинается и каким днём,
и как заканчивается, и каим днём
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766902
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666 DimaBr, видел, как события обрабатывать? анализировать и распознавать канву?
Какие события ?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766915
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39766917
xMailer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пожалуйста, в uses дергаются мои модули, либо уберите unknow функции, либо замените на свои.
там все просто
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767018
L_argo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecatorА у меня вот такой самодельный календарь на год.
Крутилки годОв-месяцОв - всё естьВполне годно. без излишеств и компактно.
Можно даже на ДБГрид + SQL запилить.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767038
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Правильный ответ




Код: html
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
<script type="passcript">
  procedure setselected();
  begin
    $('.day').removeClass('selected');
    this.addClass('selected');
  end; 
  $('.day').on('click', 'setselected()');
</script>

{{#months}}
 <div class="month">
   <div class="monthname">{{monthname}}</div>
   <table>
   {{#dow}}
   <tr>
     <td class="downame">{{downame}}</td>
     <td class="day">{{#dayname}} {{..monthindex}}|{{dowindex}}|1{{/dayname}}</td>
     <td class="day">{{#dayname}} {{..monthindex}}|{{dowindex}}|2{{/dayname}}</td>
     <td class="day">{{#dayname}} {{..monthindex}}|{{dowindex}}|3{{/dayname}}</td>
     <td class="day">{{#dayname}} {{..monthindex}}|{{dowindex}}|4{{/dayname}}</td>
     <td class="day">{{#dayname}} {{..monthindex}}|{{dowindex}}|5{{/dayname}}</td>
     <td class="day">{{#dayname}} {{..monthindex}}|{{dowindex}}|6{{/dayname}}</td>
   </tr>
  {{/dow}} 
 </table>
</div>
{{/months}}


...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767042
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
asviridenkovПравильный ответ
абсолютно убогий
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767066
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
defecator,

Убогий - это ты загнул. Скорей аскетичный.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767067
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну и выбор цветов выделения даты весьма спорен.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767075
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
rgreatdefecator,

Убогий - это ты загнул. Скорей аскетичный.
это просто календарь, практически стандартный
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767079
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"Чето ржу" (с)

Набор цветов, как впрочем шрифтов, расположения, выделения и всего прочего определяется вот этим

Код: css
1.
2.
3.
4.
5.
6.
7.
body {font-size: 9pt; font-family: 'Segoe UI'; background: white}
td {text-align: center; padding: 2px}
td.day:hover {color: blue; background: yellow; }
.month {display: inline-block; margin: 5px 5px}
.monthname {font-weight: bold; font-size: 10pt; color: navy; text-align: center}
.downame {font-weight: bold}
.selected {background: green !important; color: white !important}



И меняется как угодно за пару минут.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767098
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
asviridenkovменяется как угодно за пару минут.Ну и что мешает сразу сделать хорошо?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767099
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatasviridenkovменяется как угодно за пару минут.Ну и что мешает сразу сделать хорошо?

А чем плохи желтый для подсветки и зеленый для выбора?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767116
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
asviridenkov,

Использовать не тонированные clYellow и clGreen как цвета фона в интерфейсе? Ты серьезно?!

...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767120
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat,

Да не вопрос, можно вообще системные поставить

Код: css
1.
2.
3.
4.
5.
6.
7.
body {font-size: 9pt; font-family: 'Segoe UI'; background: white}
td {text-align: center; padding: 2px}
td.day:hover {color: highlighttext; background: Hotlight; }
.month {display: inline-block; margin: 5px 5px}
.monthname {font-weight: bold; font-size: 10pt; color: navy; text-align: center}
.downame {font-weight: bold}
.selected {background: Highlight !important; color: Highlighttext !important}
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767122
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatИспользовать не тонированные clYellow и clGreen как цвета фона в интерфейсе? Ты серьезно?!
Когда к функционалу нет вопросов приходится высасывать причину из пальца?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767128
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadmanКогда к функционалу нет вопросов приходится высасывать причину из пальца?
Для некоторых разработчиков на дельфи это может стать открытием, но это называется "дизайн".
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767130
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatwadmanКогда к функционалу нет вопросов приходится высасывать причину из пальца?
Для некоторых разработчиков на дельфи это может стать открытием, но это называется "дизайн".
Шашки.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767131
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
asviridenkov,

Вот, имхо, качественный дизайн:

https://assistentus.ru/proizvodstvennyj-kalendar-2018/krym/
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767144
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat,

Вспоминаем начало топика

авторСуть задачи вывести годовой календарь, все 12 месяцев сразу. С возможностью выделения и раскрашивания различных дат(бэкграунда цветом по условию из БД или списка).

Тут есть хоть слово про качественный дизайн?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767149
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
asviridenkovТут есть хоть слово про качественный дизайн?Ты показал свой дизайн - я прокоментировал.
Причем заметь - я его защищал от наезда дефекатора.

А теперь меня тут каким-то троллем выставляют.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767155
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767169
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767217
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatПричем заметь - я его защищал от наезда дефекатора.

А теперь меня тут каким-то троллем выставляют.

Наезд дефекатора - лучшая похвала ))

Вот с твоим дизайном.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767228
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
asviridenkovНаезд дефекатора - лучшая похвала ))

Вот с твоим дизайном.Он не мой, но теперь мне все нравится.
Правда стилей подсветки и выделения не видно.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767230
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разве что болд больно жирный.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767233
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatПравда стилей подсветки и выделения не видно.

14 марта
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767234
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или это "проблема" с антиалиасингом текста?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767242
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatИли это "проблема" с антиалиасингом текста?

Другой шрифт просто, там на сайте не конкретный указан а семейство.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767302
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
asviridenkovrgreatПричем заметь - я его защищал от наезда дефекатора.

А теперь меня тут каким-то троллем выставляют.

Наезд дефекатора - лучшая похвала ))
хорошая попытка, но нет
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767393
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вобщем вопрос так и не решился.
С исходниками нихрена не понятно, а картинки календарей и в яндексе можно найти.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767396
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666,

Тогда остается, разве что, нанять программиста.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767409
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Vlad FВалерий666,

Тогда остается, разве что, нанять программиста.

Когда нечего ответить, остается только острить.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767419
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666Вобщем вопрос так и не решился.
С исходниками нихрена не понятно, а картинки календарей и в яндексе можно найти.
Вам предложили несколько вариантов календарей от грида до собственной отрисовки. Что ещё нужно ?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767425
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr,

Ну как что - написать календарь. Бесплатно. С блекджеком и девушками с пониженной соц. ответственностью.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767432
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так сначала же нужно сделать выбор.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767439
xMailer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666, нормализую свой код, дам комментарии, если Вы найдете для меня devart litedac for xe5
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767442
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Календарь как выше рисуется вручную за пол дня.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767446
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat,

...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767459
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Детский сад. Советы, "нарисовать в канве", "сделать в html" и ""у меня такой" - топовые.
Вопрос состоит в том, что бы сделать это как можно проще (готовая компонента), не наращивая километры кода и какие-то грабли с рисованием "компоненты" в компоненте. Если такой компы нет в природе, то наверное проще сказать: "...Такого не существует! Пиши, рисуй сам..." но зачем, когда можно по троллить:-)


DimaBrВалерий666Вобщем вопрос так и не решился.
С исходниками нихрена не понятно, а картинки календарей и в яндексе можно найти.
Вам предложили несколько вариантов календарей от грида до собственной отрисовки. Что ещё нужно ?
Бесценные советы.

Тема закрыта.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767470
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Бесценные советы.
Тема закрыта.
Удивительный ты человек. Пришёл на форум, попросил совета, как сделать календарь на год.
Тебе несколько человек показали свои варианты календарей, даже с готовым кодом отрисовки (который легко можно подправить)
Тебе ничего не понравилось, но при этом получается, что все зря потратили своё время на твою проблему, потому что все советы БЕСЦЕННЫЕ.
Задумайся, стоит ли тратить своё и наше время на следующий вопрос.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767473
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666Вопрос состоит в том, что бы сделать это как можно проще (готовая компонента), не наращивая километры кода и какие-то грабли с рисованием "компоненты" в компоненте.
Проще не ГОТОВАЯ КОМПОНЕНТА, а 20 строк кода. А сторонний компонент нужно
1. искать
2. покупать
3. устанавливать
4. следить за обновлениями
5. особое поведение опять же нужно будет описывать каким то кодом.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39767479
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666Суть задачи вывести годовой календарь, все 12 месяцев сразу. С возможностью выделения и раскрашивания различных дат(бэкграунда цветом по условию из БД или списка).

Стандартные компоненты не подходят.
Валерий666Если такой компы нет в природе
http://qaru.site/questions/9956767/cxdatenavigator1-set-weekend-days-text-color-in-red
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39770982
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не нашел ничего путного. Пришлось рисовать самому.


Использовались zcolorstringgrid (внутри архива)и alphaskins .
Закрашивает дни из списка, по клику добавляет\удаляет.
Вот, может кому понадобится:
https://yadi.sk/d/ioyBjjm8JXh1OA
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771003
Ghost Writer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666,

ничо так. я бы еще шрифт MS Sans Serif сменил бы хотя бы на Tahoma
А без alphaskins как было бы ? Зачем такая зависимость
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771081
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да собственно и zcolorstringgrid тут не шибко нужен.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771102
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Раскраска ВырвиГлаз !!!
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771120
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBrРаскраска ВырвиГлаз !!!Угу. Белый на розовом - это что-то...
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771130
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ghost WriterВалерий666,

ничо так. я бы еще шрифт MS Sans Serif сменил бы хотя бы на Tahoma
А без alphaskins как было бы ? Зачем такая зависимость
Шрифт не принципиален как и раскраска. Зависимости абсолютно нет с alphaskins, просто работаю с эжтими компонентами, стандартные с палитры вовсе убрал.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771182
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вот и я наваял за пару часов.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771183
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сорцы.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771186
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Голый канвас. Никаких зависимостей.

Код: pascal
1.
procedure DrawYearCalendar(Canvas: TCanvas; Left,Top,Width,Heigth: integer; Year: Integer; CurDate: TDate);


А, забыл текущую дату подсвечивать. Перевыложил.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771193
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И еще фикс дней недели начинающихся с воскресенья. :(
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771194
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771200
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у кого-то слишком дохера свободного времени...
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771202
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На больничном сижу. :)
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771208
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
08.02.2019 16:05, rgreat пишет:
> На больничном сижу. :)

сочувствую.
или завидую.
(ненужное зачеркнуть)
сижу на работе с температурой.

ПОПРАВЛЯЙСЯ!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771260
afgm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выложу свой страх :)

https://yadi.sk/d/917lrZist98bjw
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771264
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
afgm,

Раскраска - вырви глаз!
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771266
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
08.02.2019 16:54, Gator пишет:
> Раскраска - вырви глаз!

художника обидеть может каждый... (С)
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771269
afgm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GatorРаскраска - вырви глаз!
Это демка. В бою скучнее.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771280
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
afgm,


Я же ж показывал здесь круги сочетания цветов!
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771286
afgm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GatorЯ же ж показывал здесь круги сочетания цветов!
И?
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771288
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
afgm,

Ну и задай цвета, как глазу приятно. Заодно обозначь юбилеи, праздники, дни рождения, свадьбы и похороны...
Развивай свой календарь.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771298
Валерий666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatА вот и я наваял за пару часов.
Симпотично:-)
Только одно но: D7.
Ну и еще отметить даты из списка, получить дату по клику.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771300
afgm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GatorРазвивай свой календарь.
У разработки в рамках нашей системы была конкретная цель - удобный способ отмечать триады событий на год (два). Цвета там другие. Компонент решает именно это задачу. Демка просто показывает возможности (там реально компонент и события отрисовки каждого дня). Ну вдруг кому пригодится, т.к. в моей версии просто надо перекрыт события отрисовки дня, а так там всё оформлено в виде компонента.
Хотя... судя по этой теме не я один не смог найти толкового календаря (даже среди платных). Они либо ничего не могут, либо при попытке перехватить событий отрисовки предлагают сделать всю работу самостоятельно. Ну вот и нафига они такие нужны?...
И да. Календарь с кучей событий в стиле компонентов DevExpress был бы кстати.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771305
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Валерий666Симпотично:-)
Только одно но: D7. А что не так в D7? Я там ничего "продвинутого" не использовал вроде.
Ну и еще отметить даты из списка, получить дату по клику.При отрисовке заполнить массив с координатами прямоугольников дат, потом проверить в какой попал.
...
Рейтинг: 0 / 0
Delphi 7 годовой календарь
    #39771383
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreatА что не так в D7?OFF
Генериков :) нуту
...
Рейтинг: 0 / 0
81 сообщений из 81, показаны все 4 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi 7 годовой календарь
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]