Помогите с календарём

Вверх ↑

Форумы Помощь по пакетуПомогите с календарём ← Ctrl12 3Ctrl →

Этот топик читают: Гость

Ответов: 3

Рейтинг: 0

#1: 2009-12-22 23:41:28 ЛС | профиль | цитата

Нужно отобразить календарь на год и на нём подсветить разные дни (рабочий график).
Спасибо.

карма: 0

Ответов: 4641

Рейтинг: 334

#2: 2009-12-23 00:07:41 ЛС | профиль | цитата

rogram FilesHiAsmExampleHiasmsystemCalendar.sha

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 16884

Рейтинг: 1239

#3: 2009-12-23 01:14:36 ЛС | профиль | цитата

Ravilr,

Vademecum писал(а):

Нужно отобразить календарь на год

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Гость

Ответов: 17029

Рейтинг: 0

#4: 2009-12-23 01:44:50 правка | ЛС | профиль | цитата

Редактировалось 4 раз(а), последний 2025-01-20 12:58:12

карма: 0

Ответов: 16884

Рейтинг: 1239

#5: 2009-12-23 01:47:40 ЛС | профиль | цитата

Свернуло в код
Выложил файлом
Vademecum, на календарь. Праздники думай сам. Год меняется стрелками Вверх-Вниз
А вот добавил calend1.sha с красными воскресеньями.
Тебе осталось только создать список праздников и перед выводом числа проверять с этим списком и менять цвет fonta

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 2

calend.sha [11.2KB] [339], calend1.sha [13.1KB] [358]

Ответов: 4641

Рейтинг: 334

#6: 2009-12-23 21:09:59 ЛС | профиль | цитата

хе нашел тему где

Dilma писал(а):

Это три независимых элемента. Грубо говоря первый предназначен для формирования табеля работы сотрудников, второй для вывода календаря на год, а третий для любых мелких задач типа вывода текущего дня недели(скажем "Сегодня 2 января 2010 года, страна отмечает: Новогодние каникулы") или для формирования события, если текущий день выходной (рабочий) и т.д. и т.п.

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

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Голосовали:

Tad, Konst

Ответов: 16884

Рейтинг: 1239

#7: 2009-12-23 22:57:05 ЛС | профиль | цитата

Ravilr, А три года еще не прошло

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26300

Рейтинг: 2146

#8: 2009-12-23 23:27:45 ЛС | профиль | цитата

Tad писал(а):

А три года еще не прошло

Гы, а там, глядишь, все и забудут

карма: 22

Ответов: 16884

Рейтинг: 1239

#9: 2009-12-23 23:34:17 ЛС | профиль | цитата

nesco писал(а):

Гы, а там, глядишь, все и забудут

и вопрос решен

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 3

Рейтинг: 0

#10: 2009-12-25 21:23:40 ЛС | профиль | цитата

Такую программу на Бейсике я написал ещё в конце 80-х.
В HiAsm меня затрудняет вывод символов в окно по определённым координатам в пределах этого окна (в Бейсике оператор Locate X, Y).

карма: 0

Ответов: 16884

Рейтинг: 1239

#11: 2009-12-25 22:47:17 ЛС | профиль | цитата

Vademecum, в HiAsm это компонент Img_Text

Найти его тяжеловато

Ищи в графике.


Add(MainForm,2953706,161,63)
{
 Point(Handle)
}
Add(Img_Text,9005191,161,119)
{
 X=100
 Y=100
 DrawSource=1
 Font=[MS Sans Serif,18,1,255,1]
 Text="Привет от HiAsm !"
 link(Bitmap,2953706:Handle,[])
}
Add(Button,6161966,70,119)
{
 Left=160
 Top=180
 link(onClick,9005191:doDraw,[])
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1 it.png [635B] [520]

Ответов: 1376

Рейтинг: 198

#12: 2009-12-26 20:28:22 ЛС | профиль | цитата

Календарь с праздниками
code_16173.txt

карма: 1

файлы: 1

code_16173.txt [17.1KB] [817]

Ответов: 8948

Рейтинг: 824

#13: 2009-12-26 22:06:17 ЛС | профиль | цитата

foksov, замечательный календарь, всё видно!
(Февраль не високосного года у меня отражается не корректно

у кого как?, а то Windows сносить неохота

)

карма: 19

Гость

Ответов: 17029

Рейтинг: 0

#14: 2009-12-26 22:09:07 правка | ЛС | профиль | цитата

Редактировалось 4 раз(а), последний 2025-01-20 12:58:13

карма: 0

Ответов: 16884

Рейтинг: 1239

#15: 2009-12-26 22:11:06 ЛС | профиль | цитата

Выше - это я.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Помощь по пакетуПомогите с календарём ← Ctrl12 3Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)