Колпаков


Листинг 1(главная форма )Данный программный код отвечает за выбор города и вывод информации о нём а также вывод фотографии на панель.
unit Unit1;
interfaceuses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
QDialogs, QStdCtrls, QExtCtrls, QMenus, QComCtrls;
type TForm1 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Image11: TImage;
Label3: TLabel;
Label4: TLabel;
TextBrowser1: TTextBrowser;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Image1: TImage;
Image2: TImage;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
procedure ListBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);

private { Private declarations }
str1,namecity,S: String;
public { Public declarations }
city: Integer;
path: String;
flag: boolean;
end;
var Form1: TForm1;
implementationuses Unit2, Unit3, Unit4 ;
{$R *.xfm}
procedure TForm1.ListBox1Click(Sender: TObject);
begin city:=ListBox1.ItemIndex;
STR(city,S);
Form1.Image1.Picture.LoadFromFile(path+S+'\image1.bmp');
Form1.Image2.Picture.LoadFromFile(path+S+'\map.bmp');
if Form2.Visible=True then Form2.Close;
if Form3.Visible=True then Form3.Close;
case ListBox1.ItemIndex of
0: begin TextBrowser1.Text:=str1 ; namecity:='Сергиев Пасад'; end;
1: begin TextBrowser1.Text:='Переславль-Залесский основан в 1152 году. В городе — шесть монастырей, четыре действуют:'+
' Горицкий монастырь (закрыт в 1744 году, музей), Никитский монастырь, Никольский монастырь, Свято-Троицкий Данилов монастырь'+
' Сретенский Новодевичий монастырь (закрыт в 1764 году), Фёдоровский монастырь. В XVIII—XIX веках был центром'+
' Переславской епархии. Позднее в городе работало Переславское духовное училище. В городе девять церквей, из которых'+
' замечательны: Спасо-Преображенский собор XII века, древнейший памятник архитектуры Северо-Восточной Руси;'+
' шатровая церковь Петра митрополита (1585). Спасо-Преображенский собор — единственный из пяти первых белокаменных храмов'+
' Северо-Восточной Руси, дошедший до нас почти в полной сохранности. В соборе были крещены многие переславские князья,'+
' в том числе, вероятно, Александр Невский, родившийся в Переславле в 1220. В XIII—XIV веках Спасо-Преображенский собор'+
' был усыпальницей переславских удельных князей. Здесь были захоронены князья Дмитрий Александрович и Иван Дмитриевич.'+ ' При раскопках в 1939 году под руководством Н. Н. Воронина была обнаружена редкая декорированная треугольно-выемчатым'+
' орнаментом крышка саркофага с могилы Ивана Дмитриевича.'; namecity:='Переславль-Залесский';end;
2: begin TextBrowser1.Text:='Ростов — жемчужина Золотого Кольца, объединяющего старейшие города России. Основан в 862 году.'+
' Значительный культурный потенциал города сделал его одним из крупных центров туризма и паломничества.'+ ' Ростов включён в специальную программу сотрудничества между Советом Европы и Россией по сохранению'+
' историко-культурного наследия. Значительное прошлое Ростова обусловило его насыщенность памятниками'+
' истории и культуры. Одним из важнейших памятников является уже сам ландшафт озёрной котловины и прилегающей'+
' территории, на протяжении тысячелетий привлекавший сюда людей и изобилующий памятниками археологии. Классикой'+
' не только русского, но и мирового искусства стали архитектурные памятники Ростова, в частности постройки бывшего'+
' Архиерейского дома XVII в. — Ростовский кремль. Большую ценность представляет каменная и деревянная застройка города'+
' XVIII—XX вв. Достоянием мировой культуры являются Ростовские звоны — уникальный набор музыкальных произведений'+
' XVII—XIX вв., неотделимый от замечательного музыкального инструмента — знаменитой Ростовской звонницы.'+
' Каждый из её 13 колоколов, от самого большого, весом 2 тысячи пудов (32 тонны), до самого малого, имеет своё особое'+
' звучание. На западной окраине города, на берегу озера Неро, расположен красивейший ансамбль Спасо-Яковлевского монастыря.'+ ' Панорама Спасо-Яковлевского монастыря с живописным сочетанием различных по стилю архитектурных форм — псевдоготические'+
' завершения башен, барочные и классические завершения церквей — производит впечатление сказочного чудо-города, прекрасно'+
' вписанного в приозёрный ландшафт. Авраамиев Богоявленский монастырь — основан в половине XI века преподобным Аврамием Ростовским.'; end;
3: begin TextBrowser1.Text:='Ярославль - древнейший город на Волге, основан в 1010 году. Исторический центр города, на территории которого'+
' располагается 140 памятников архитектуры, с 2005 года является одним из 23 объектов ЮНЕСКО Всемирного наследия в России'+
' по критериям II — застройка центра Ярославля, сложившаяся в XVII—XVIII веках (радиальный городской план, церкви и'+ ' гражданские строения) является выдающимся примером взаимного культурного и архитектурного влияния между Западной Европой'+
' и Россией, и IV — выдающийся пример градостроительной реформы императрицы Екатерины Великой, осуществлявшейся по России'+
' между 1763 и 1830 годами. Спасо-Преображенский монастырь. Церковь Ярославских чудотворцев.Древнейшим сооружением на'+
' территории города является Спасо-Преображенский собор Спасского монастыря, возведённый в 1506—1516 годах на фундаментах'+
' первоначальной постройки 1216—1224 годов. В XVI веке монастырь впервые обносится каменной оградой. В 1787 году он был'+
' упразднён и превращён в резиденцию архиепископов ярославских и ростовских. С этого времени начинается перестройка'+
' монастырских зданий, сооружаются кельи, покои настоятеля. В ансамбле монастыря выделяются: ограда и башни, Святые ворота,'+
' Спасо-Преображенский собор, церковь Ярославских Чудотворцев, трапезная и настоятельские покои, звонница, ризница, корпус'+
' монашеских келий. Церковь Ильи ПророкаПоистине жемчужиной древнерусской архитектуры можно назвать Церковь Ильи Пророка.'+ ' Постройка храма начата в 1647 году купцами гостиной сотни Скрипиными. Необычайно красив этот простой по формам, строгий'+
' и торжественный храм с пятью широко поставленными главами. Его композицию дополняют два белоснежных шатра — на колокольне'+
' и приделе Ризоположения. Церковь Ильи Пророка славится и своим внутренним убранством. Стены, своды, откосы окон — всё'+
' свободное пространство заполнено росписями, которые были выполнены в 1680—1681 годах артелью из пятнадцати мастеров под'+
' руководством прославленных художников Гурия Никитина и Силы Савина. Фресковая роспись располагается крупными широкими'+
' поясами в четыре яруса. Первый ряд сверху занимают композиции на евангельские сюжеты, в люнетах закомар изображены события'+
' после Воскресения. Во втором ярусе — деяния апостолов, в третьем — житие и чудеса пророка Ильи; в нижнем, четвёртом ярусе'+
' — деяния его ученика Елисея. Толгский монастырьВо второй половине XVII века на правом берегу Волги сложился один из'+
' наиболее выдающихся архитектурных ансамблей Ярославля — ансамбль в Коровницкой слободе. Он состоит из двух церквей'+
' — тёплый Храм Владимирской Божьей Матери и холодный Храм Иоанна Златоуста), колокольни и Святых ворот. Церковь Иоанна'+
' Предтечи — вершина ярославского зодчества XVII века, памятник мирового значения, рекомендованный ЮНЕСКО для показа туристам.'+ ' Грандиозная по размерам, фантастическая по силуэту своих 15 глав — церковь ослепляет роскошью и обилием изразцов, кирпичных'+
' узоров и росписей. Это настоящая энциклопедия евангельских и библейских сюжетов, не знающая равных в мировом искусстве.'+ ' Уникальнейший ансамбль Толгского монастыря (XVII—XIX вв.) расположен на левом берегу Волги в пределах городской черты.'+ ' Толгский мужской монастырь — один из древнейших на Руси — был основан в начале XIV в. ростовским епископом Прохором по случаю'+
' «явления» ему иконы Пресвятой Богородицы. Сейчас это женский монастырь, в нём живёт более ста сестёр. Архитектурным центром'+
' ансамбля является Введенский собор (1681—1688 гг.), к югу от собора сохранилась древнейшая постройка — Крестовоздвиженская'+
' церковь с трапезной. Одна из самых интересных построек — Спасская церковь с больничными палатами (1710-е гг.) — единственный'+
' значительный памятник стиля московское барокко во всем ярославском зодчестве. На территории ансамбля находится один из'+
' древнейших памятников отечественного садово-паркового искусства — кедровый сад (вторая половина XVII века). Не меньший интерес'+
' представляют и другие ярославские храмы: храмовый ансамбль Церкви Рождества Христова (XVII в.), Церковь Богоявления (XVII в.),'+
' Церковь Николы Надеина, Церковь Николы Рубленого, редкий памятник допетровской дворцовой архитектуры Митрополичьи палаты,'+
' Петропавловская церковь (XVIII в.), ансамбль церкви Сретенья (XIX в.) и др., а также городские башни Арсенальная (Волжская)'+
' и Знаменская (Власьевская). В Ярославле был создан первый русский профессиональный театр.';
namecity:='Ярославль'; end;
4: begin TextBrowser1.Text:='Кострома основана в 1152 году. В старой части города сохранилась историческая структура планировки'+
' (генеральный план города был утверждён императрицей Екатериной II в 1781 году). Основу планировки составляет лучевая сетка'+
' улиц, центр города раскрыт по отношению к Волге. Ипатьевский монастырь. Троицкий собор.Ключевым историческим памятником'+
' Костромы считается Ипатьевский монастырь. Впервые упоминается в летописи в 1432 году, но основан был значительно раньше'+
' — в 1330-х годах. Территория монастыря состоит из двух частей: Старого и Нового города. Оба участка обнесены высокими'+
' каменными стенами. Старый город имеет форму неправильного пятиугольника. Композиционный центр монастыря — монументальный'+
' пятиглавый Троицкий собор и звонница. Архитектурный ансамбль Ипатьевского монастыря Троицкий собор (1586), (1650—1652)'+
' Звонница (1603—1605) Архиерейский корпус (XVIII в.) палаты Романовых (XVI в.) братский корпус (XVIII в.) Также значимыми'+
' памятниками архитектуры и истории в Костроме являются Богоявленско-Анастасьинский монастырь и комплекс Торговых рядов.'; namecity:='Кострома'; end;
5: begin TextBrowser1.Text:='Иваново основан в 1561 году. В архитектурном плане Иваново известно прежде всего памятниками,'+
' относящимися к эпохе конструктивизма (30-е годы XX в.): дом-корабль, дом подкова и т. п. В городе существует большое'+
' количество историко-революционных памятников, придающих ему своеобразный колорит. Интересен исторический центр города'+
' (это в основном бывшие купеческие дома XIX и начала XX в.). Определенный интерес представляет и промышленная архитектура'+
' XIX в. (в городе практически в нетронутом виде сохранилось несколько текстильных фабрик, относящихся к этому периоду,'+ ' правда свободный доступ на них ограничен). Из прочих достопримечательностей можно отметить Щудровскую палатку, которая'+
' была сооружена в XVII в., и комплекс Свято-Введенского женского монастыря, основная часть которого относится к началу XX в.'+
' В городе существует несколько музеев: ивановский государственный историко-краеведческий музей им. Д. Г. Бурылина, музей'+
' ивановского ситца, ивановский областной художественный музей и т. п. Храм Святой Троицы на площади Пушкина. (Копия'+ ' Троицкого собора, находящегося в Троице-Сергиевой лавре)Основные достопримечательности Иваново: Щудровская палатка (XVII в.)'+
' Свято-Введенский женский монастырь, Деревянная церковь Успения Пресвятой Богородицы (кон. XVII в.), Усадьба А. Дюрингера'+
' (1910), архитектор А. Ф. Снурилов, Здание сельхозбанка (1927), архитектор В. А. Веснин, Дом-корабль (1930), архитектор Д. Ф.'+
' Фридман, Дом-подкова (1934), архитектор А. И. Панов, Комплекс зданий Иваново-Вознесенского политехнического института'+
' (1928—1937), архитектор И. А. Фомин, Здание Ивановского историко-краеведческого музея (1914), архитектор П. А. Трубников';
namecity:='Иваново'; end;
6: begin TextBrowser1.Text:='Суздаль основан в 999 году. Собор Рождества БогородицыСуздальский кремль — древнейшая часть города,'+
' ядро Суздаля, археологически существующее с X века, а по летописям — 1024 г. Расположен Кремль в излучине реки Каменка,'+
' в южной части города. Кремль сохранил земляные валы и рвы древней крепости, несколько церквей и ансамбль архирейского'+
' двора с древним Рождественским собором. Архитектурный ансамбль кремля, Собор Рождества Богородицы (1222—1225),'+
' Архиерейские палаты (XV—XVIII вв), Никольская церковь (1766), Собор Рождества Богородицы построен в 1222—1225 из'+
' туфообразного известняка (низкокачественного белого камня), стоит на месте плинфяного храма времён Владимира Мономаха.'+ ' Нынешний собор также не дошёл до нас в первоначальном виде. От постройки XIII века сохранилась нижняя часть, ограниченная'+
' аркатурным поясом, выше которого стены выложены в XVI веке, но уже не из белого камня, а из кирпича. Древняя часть богато'+
' декорирована резьбой из гладкотесаного белого камня. Фасады украшают фигуры львов, женские маски, затейливые орнаменты.'+ ' Покровский монастырьНапротив южного фасада собора в 1635 году была построена колокольня, завершённая высоким восьмигранным'+
' шатром. В конце XVII века на ней установили куранты, в которых часы обозначаются буквами. Собор, палаты и связанная с ними'+
' переходом колокольня образуют замкнутый парадный двор. Архиерейские палаты — архитектурный комплекс, сформировавшийся'+
' на протяжении XV-XVIII вв. как жилой дом для суздальских церковных владык. Основное здание тесно связано с собором, как в'+
' композиционном, так и в бытовом отношении. В настоящее время в палатах расположен музей и ресторан. В западной части'+
' Кремля находится деревянная Никольская церковь, построенная в 1766 году и перевезённая из села Глотова Юрьев-Польского'+
' района в 1960 году, на место утраченной церкви Всех святых XVII века. Церковь Николы — один из примеров простого и'+
' древнего типа деревянных конструкций, не лишённая однако соразмерности и красоты форм. Александровский монастырь '+
' Монастырские ансамбли Спасо-Евфимиев монастырь — основан в 1352 году суздальско-нижегородским князем Борисом'+
' Константиновичем, как крепость, призванная защищать город от врагов внешних и внутренних. Покровский монастырь — основан'+
' в 1364 году при князе Дмитрии Константиновиче, нынешний вид ансамбля сложился в XVI веке, когда монастырь стал местом'+
' ссылки опальных цариц и женщин знатных боярских фамилий. В XVI—XVII столетиях монастырь был одним из крупнейших на Руси.'+ ' Александровский монастырь — расположен на реке Каменка в Суздале, по преданию, был основан в 1240 году Александром Невским.'+ ' Ризоположенский монастырь — расположен на реке Каменка в центре Суздаля, основан в 1207 году. Каменные постройки появились'+
' в монастыре в XVI веке. Васильевский монастырь'; namecity:='Суздаль'; end;
7: begin TextBrowser1.Text:='Владимир основан в 990 году . Город известен памятниками зодчества владимиро-суздальской школы:'+
' крепостные Золотые ворота (1158—64, перестроены в XVII—XVIII веках) — белокаменная триумфальная арка с полуциркульным'+
' сводом из туфа, над ней надвратная церковь (обновлена в 1469 В. Д. Ермолиным; перестроена в 1810); белокаменные соборы:'+
' Успенский (1158—60, перестроен в 1185—1189; 6-столпный, 5-нефный, 3-апсидный храм с 5 главами; в интерьере — фрагменты'+ ' фресок XII—XIII веков и фрески 1408 работы Рублёва и Даниила Чёрного; в 1810 к собору была пристроена колокольня, в 1862'+
' — придел Георгия); Дмитриевский (1194—97; 4-столпный, одноглавый, с богатой декоративной резьбой на фасадах); Успенский'+
' соборУспенский собор Княгинина монастыря (конец XV — начала XVI века); ряд церквей XVII—XVIII веков: Успения Богородицы'+
' (1649); Николая Чудотворца/Николы в Галеях (1732—35; нарышкинский стиль); Св. Никиты/Никитская (1762—65, в стиле барокко);'+
' и др. Успенский и Дмитриевский соборы, наряду с белокаменными памятниками Суздаля и церковью Бориса и Глеба в Кидекше'+
' входят в число объектов всемирного наследия ЮНЕСКО. С 1781 Владимир застраивался по регулярному плану зданиями в стиле'+
' классицизма (Присутственные места, 1785; Торговые ряды, 1787—90, и др.). К памятникам конца XIX века относится'+
' псевдоготический католический храм св. Розария, построенный в 1894 году. После 1917 года осуществлено большое'+
' строительство, по генеральным планам реконструкции (1947 и 1965) построены кварталы жилых домов, созданы новые улицы,'+
' площади и скверы, открыт памятник 850-летия Владимира. (1960, скульптор Д. Б. Рябичев, архитектор А. Н. Душкин). Всего'+
' в городе 239 охраняемых государством зданий XVIII—XIX веков.'; namecity:='Владимир'; end;
8: begin TextBrowser1.Text:='Александров основан в 1339 году. Советская улица, идущая к востоку от Площади, круто спускается к реке'+
' Серой. На её левом берегу (вернее, на берегу водохранилища, созданного в 1968 году) расположился дворцово-храмовый комплекс'+
' Александровской слободы, входящий в состав одноимённого музея-заповедника. На его территории сохранились такие видные'+
' памятники русского зодчества, как Троицкий собор (1513 год) с двумя уникальными медными дверями, которые были вывезены'+
' Иваном Грозным из Твери и Великого Новгорода, шатровая Покровская церковь (первый каменный шатровый древнерусский храм,'+ ' начало XVI века), Распятская церковь-колокольня (1560-е годы) и Марфины палаты (XVII век), Успенская церковь (XVI—XVII века).'+
' Комплекс окружён мощными крепостными стенами с четырьмя угловыми башнями и надвратной церковью Фёдора Стратилата'+
' (1680-е годы). К северу от монастыря расположена Преображенская церковь (1742). В центральной части города сохранились'+
' и другие архитектурные памятники. Здесь расположены Христорождественский собор (1696), церковь Боголюбской иконы Божией'+ ' Матери (1800), в домах конца XIX — начала XX веков работают Литературно-художественный музей Марины и Анастасии Цветаевых,'+
' художественный музей (в особняке купца А. М. Первушина). В 1964 году создан «Музей рукотворного камня» ВНИИСИМСа. К югу от'+
' Советской улицы, вдоль Серой — бывшая Стрелецкая слобода со старыми корпусами фабрики купца Зубова (ныне «Александровискож»)'+
' и купца Баранова (ныне Фабрика имени рабочего Ф. И. Калинина).'; namecity:='Александров'; end;
9: begin TextBrowser1.Text:='Боголюбово основан в 1158 году. Первый каменный град Северной Руси, расположенный в 10 км от Владимира.'+ ' Современное шоссе разделяет территорию древнего города на две части: слева остаются старинные оборонительные валы, справа –'+
' стены Боголюбского монастыря – который в своё время являлся резиденцией князя Андрея Юрьевича Боголюбского, построенный по его'+
' распоряжению в 1158-65 гг. в устье реки Нерль, при впадении ее в Клязьму. Боголюбово - одно из красивейших мест Владимирской'+
' области, по праву входит'+
' в Золотое кольцо России. Небольшой заповедный уголок, где стоит Белокаменная лестничная башня, сохранившаяся еще с XII века.'+ ' Здесь все "дышит историей". Сохранившиеся памятники архитектуры XII века, напоминают нам о мученической смерти князя Андрея'+
' Боголюбского. '; namecity:='Боголюбово'; end;
10: begin TextBrowser1.Text:='Гороховец был основан в 1158 году. В 1539 году волость пережила набег казанских татар и была'+
' разорена. Согласно легенде, когда враги осаждали Гороховец, над горой в лучах заходящего солнца появился образ огромного'+
' воина с мечом в руках. Враги в панике отступили, а место с той поры называется Пужаловой горой. Это возвышенность, '+
'отделённая от древнего детинца глубоким оврагом, сейчас на ней расположен городской парк. В 1563 году Иван Грозный передал'+
' Гороховец своему шурину, кабардинскому князю Михаилу Темрюковичу. В XVII—XVIII веках здесь был построен Никольский монастырь.'+ ' В его облике доминирует двухэтажный Троицкий собор (1681—1689). В 1778 году Гороховец сделан уездным городом Гороховецкого'+
' уезда Владимирской губернии. В 1883 году в Гороховце было 24 каменных дома и 381 деревянный; лавок 69, 5 церквей и 1 монастырь,'+ ' Николаевский. В ризнице монастыря хранились 6 грамот царских и патриарших. Достопримечательности Никольский монастырь,'+
' Благовещенский собор, Сретенский монастырь, Дом Ершова, Дом купцов Ширяевых, Дом Опарина, Дом Канонникова,'+
' Знаменский монастырь (XVII—XVIII века), Лысая гора'; namecity:='Гороховец'; end;
11: begin TextBrowser1.Text:='Гусь-Хрустальный основан в 1756 году. Город Гусь-Хрустальный полностью оправдывает свое название.'+ ' Здесь расположен очень известный стекольный завод. Изделия его мастеров-стеклодувов, мастеров-резчиков по хрусталю широко'+
' известны как в нашей стране, так и зарубежом. Город Гусь-Хрустальный входит в состав Золотого кольца России. Символ города'+
' Гусь-Хрустальный - метровый хрустальный гусь, вышедший из рук мастера. Это очень красивое изделие, которым гусевчане очень'+
' гордятся. Гусь-Хрустальный знаменит своими достопримечательностями: это и Музей хрусталя им. Мальцевых, который рассказывает'+
' об истории становления города, и его развитии как промышленного центра, Георгиевский собор – этот памятник архитектуры 19'+
' века. Гусевской хрустальный завод расскажет и покажет посетителям о технологиях изготовления стекла, о ремесле стеклодува,'+
' покажет грандиозные экспонаты – вершины хрустального творения.'; namecity:='Гусь-Хрустальный'; end;
12: begin TextBrowser1.Text:='Калязин основан в 1175 году. Калязин — город в России, административный центр Калязинского района'+
' Тверской области. Город расположен на правом берегу Волги (Угличское водохранилище). В черте города находится устье реки'+
' Пуды и реки Жабни, правого притока Волги. Из образовательных учреждений в городе имеются четыре школы'+
' (одна из них специализированная), педагогическое училище, машиностроительный техникум и профессиональное училище.'+ ' Имеется краеведческий музей (архитектурные, керамические, скульптурные фрагменты и росписи Калязинско-Троицкого монастыря;'+
' прикладное искусство XVIII — XIX веков). Монастырь (ансамбль XVI — XVII век) и другие старые постройки оказались в зоне'+
' водохранилища. Сохранились «плавающая» на небольшом островке колокольня Никольского собора (1800, первый ярус частично скрыт'+ ' ниже уровня воды под слоем нанесённого грунта, сам собор был разобран перед затоплением); ансамбль Вознесенской церкви и жилые'+
' дома — XVIII—XIX вв. '; namecity:='Калязин'; end;
13: begin TextBrowser1.Text:='Кидекша как укрепленное поселение существовала гораздо ранее того, как Юрий Долгорукий в 1152'+
' построил здесь церковь Бориса и Глеба. По легенде, здесь когда-то располагалось становище святых князей Бориса и Глеба.'+ ' В частности, «Степенная книга» сообщает о том, что «на реце на Нерли в Кидекши близь города Сужьдали… бысть совокупное'+
' святых мученик становище, егда в Киев хожаху Борис от Ростова, Глеб от Мурома». Именно это предание послужило поводом для'+
' освящения главного княжеского собора в честь первых русских святых. В Кидекше сохранился архитектурный ансамбль XII—XVIII'+
' веков, включающий ранний памятник владимиро-суздальского зодчества, первую белокаменную постройку северо-восточной Руси'+
' — церковь Бориса и Глеба (1152, сильно перестроена в XVIII веке, фрески XII века), кубический одноглавый трёхапсидный храм,'+
' монументальный крепостной облик которого ещё близок сооружениям Новгорода и Пскова. Позднее к нему добавились памятники,'+
' характерные для суздальского зодчества: Святые ворота (конец XVII—начало XVIII веков), которые вели к спуску на реку, теплая'+
' церковь Св. Стефана (1780), шатровая колокольня (XVIII век). Церковь Бориса и Глеба с 1992 года является составной частью'+
' объекта Всемирного наследия ЮНЕСКО «Белокаменные памятники Владимира и Суздаля». Помимо этого, сохранились остатки древних'+
' оборонительных валов '; namecity:='Кидекша'; end;
14: begin TextBrowser1.Text:='Возраст Москвы точно не известен. Самые древние археологические находки на территории Москвы'+
' относятся к каменному веку. В пределах города обнаружено значительное количество городищ и других археологических памятников '+
' более поздних эпох. С конца первого тысячелетия в районе современной Москвы поселились славяне: вятичи и кривичи. Вятичи'+
' составляли основную часть первоначального населения Москвы. Археологические раскопки, проведённые в районе Кремля,'+
' свидетельствуют, что к концу XI века там уже существовало поселение, защищённое валом и рвом. Первым достоверным летописным'+
' упоминанием считается указание Ипатьевской летописи на субботу 4 апреля 1147 года, когда ростово-суздальский князь'+
' Юрий Долгорукий принимал в городке под названием Москов своих друзей и союзников во главе с новгород-северским князем'+
' Святославом Ольговичем. В 1156 году здесь были построены новые деревянные укрепления. Общая территория увеличилась в 3—4 раза.'+ ' Дорога к Московскому Кремлю у Иверских (Воскресенских) ворот. Акварель начала XIX в. В 1237—1238 годах, во время '+
'монголо-татарского нашествия на Русь, Москва была разграблена и сожжена, однако её вскоре восстановили.'; namecity:='Москва'; end;
15: begin TextBrowser1.Text:='Муром основан в 1432 году. Муром – это сказочный город, который богат достопримечательностями, и по праву'+
' входит в Золотое кольцо России. Город стоит на левом берегу Оки, и граничит с Нижегородской областью. Муром привлекает'+
' туристов, не только своими архитектурными сооружениями, но и интересными легендами. Муром – родина былинного героя Ильи Муромца.'+ ' От рождения Илья был немощен и до 30 лет не мог ходить. Но однажды пришли в дом нищенствующие богатыри и дали Илье волшебного'+
' питья, которое сделало его могучим, а его коню передало силу богатырскую. До сих пор в Муроме почитаются следы, оставленные'+
' конем Ильи Муромца: там, где он отскакивал от земли, начинала бить вода. По всему Мурому и окрестностям на месте 13 «скоков»'+
' Ильи рассеяны святые источники. Город поражает своей красотой, недаром еще Максим Горький написал о нем: «Кто не видел Мурома'+
' с Оки, тот не видел русской красоты!» Свое название город берет от названия финско-угорского племени мурома, что в переводе на'+
' русский означает «люди на суше». Летописи гласят, что город был заселен еще в 862 года, т.е. еще в каменном веке. Муром уникален:'+
' здесь сплелись воедино древнее язычество, истовое православие и советский атеизм. Троицкий женский монастырь это большой комплекс,'+
' который расположен на месте, где раньше был двор Муромского князя Юрия Ярославовича и церковь Бориса и Глеба. Вместо этих построек'+
' в 1642-1643 году был возведен собор Святой Троицы, построенный на средства купца Тарасия Борисова. Как гласит предание в 1552 году'+
' в Муром приехал Иван Грозный, который молил святых, помочь ему освободить Казань от иноземных захватчиков, он дал обед, что в случае'+
' победы от возведет на муромской земле монастырь. Русское войско одержало победу, вследствие этого началось строительство'+
' Богоявленского мужского монастыря.'; namecity:='Муром'; end;
16: begin TextBrowser1.Text:='Название Палех относится предположительно к гидрониму из недошедших до нас финно-угорских (меря)'+
' языков IX века, либо ранее. Предположительно, с XIII (в составе Стародубского княжества) по XV век село принадлежало князьям'+
' Палецким из рода князей Стародубских. Было центром удельного Палецкого княжества. Первое упоминание о Палехе относится к первой'+
' половине XVII века (писцовая книга 1645 года). Данные свидетельствуют, что по тем временам Палех уже был довольно большим'+
' селом. В 1628 году Палех был пожалован Ивану Матвеевичу Бутурлину «за московское осадное сидение королевичево».'+
' Село принадлежало роду Бутурлиных до 1861 года. В 1762—1774 годах в центре Палеха был построен Крестовоздвиженский храм,'+
' расписанный и богато украшенный палехскими мастерами. С XVIII века Палех — центр иконописи в традициях русской живописи'+
' XV—XVII веков.'; namecity:='Палех'; end;
17: begin TextBrowser1.Text:='Плёс основан в 1410 году. Миниатюрный город удивительно поэтичен и красив. По-разному называют Плёс'+
' «жемчужиной Волги», «изумрудом Севера», «золотым Плёсом». «Русской Швейцарией» назвал его А.В.Луначарский,'+
' «русским самоцветом» виделся Плёс Константину Федину. Сотни тысяч людей ежегодно прибывают сюда на теплоходах, автобусах,'+
' частным транспортом полюбоваться удивительными пейзажами. В Плёсе нет архитектурных шедевров и, тем не менее, это городок,'+
' где достигнута подлинная гармония архитектуры и природы, где архитектура стала частью неповторимого волжского ландшафта.'+ ' Название городка большинство выводит из слова «плес», в русском языке означающего песчаную отмель или прямой участок реки'+
' от поворота до поворота. Так, в комментарии к историческому гербу Плёса в гербовнике Российской империи указано:'+
' «Во второй части щита в серебряном поле река с выходящим из нея плесом означающее имя сего города». '; namecity:='Плёс'; end;
18: begin TextBrowser1.Text:='Исторически Рыбинск возник на правом берегу реки Волги при впадении в неё реки Черёмухи. Острый'+
' мыс между ними называется Стрелка. Устье реки Шексны — левого притока Волги, как и другие левобережные районы вошли в состав'+
' города только в XX веке, в связи с бурным ростом в период индустриализации. В историческом центре города найдена стоянка'+
' каменного века. Поселение на территории города известно с 1071 года. Сначала оно называлось Усть-Шексна. В 1504 году'+
' упоминается уже как Рыбная слобода в духовной грамоте Ивана III, в это время и позднее принадлежала непосредственно'+
' московским царям и обеспечивала царский двор рыбой. Сохранились документы о натуральном рыбном налоге на жителей. Слобода'+
' была деревянной, и от этой эпохи в городе памятников не сохранилось. В городе сохранились памятники архитектуры конца XVIII'+
' — начала XX века. Исторический центр города застроен в основном в XIX — начале XX века, но многие здания перестроены.'+ ' Украшением города служат два здания хлебной биржи, построенные на крутом волжском берегу. Старая биржа выстроена в строгом'+
' классическом стиле, новая построена в 1912 году по проекту А. В. Иванова в псевдорусском стиле, покрыта снаружи изразцовой'+
' плиткой, стоит она на монументальном каменном цоколе во всю высоту волжского берега. В настоящее время в ней находится'+
' историко-архитектурный музей-заповедник с богатой коллекцией картин. Здание биржи вместе с собором, выстроенным в традициях'+
' русского классицизма, и мостом, перекинутым через Волгу составляют единый ансамбль, являющийся «визитной карточкой города».'+
' Рыбинский музей, где хранится блестящее собрание экспонатов из коллекций рода графов Мусиных-Пушкиных. Точнее, из двух усадеб'+
' Мусиных-Пушкиных — «Иловна» и «Борисоглеб». Граф Алексей Иванович Мусин-Пушкин, открывший миру «Слово о Полку Игореве», собирал'+
' также редкие и древние рукописи и книги. Большая часть собрания погибла в пожарах, однако некоторые манускрипты из коллекции'+
' графа Мусина-Пушкина «Собрание российских древностей» можно найти и сегодня в библиотеках Ярославской области. К сожалению,'+
' огромная часть древних и ценных вещей семьи Мусиных-Пушкиных была утеряна во время революции.'; namecity:='Рыбинск'; end;
19: begin TextBrowser1.Text:='Тутаев (до 1918 года — Романов-Борисоглебск) — город областного подчинения в России, городское'+
' поселение, административный центр Тутаевского района Ярославской области. Вплоть до конца XVIII века поселения на'+
' противоположных берегах Волги были независимы и имели собственные административное и хозяйственное устройство.'+
' Как считают большинство историков, город Романов был основан в конце XIII века впоследствии канонизированным в лике'+
' благоверных угличским князем Романом Владимировичем, отчего и получил своё название. В ходе одного из набегов монголо-татар'+
' он был полностью разрушен. В 1345 году сын ярославского князя Роман Васильевич отстроил город заново и сделал центром своих'+
' владений. В центре города стояли деревянная Соборная церковь в честь Воздвиженья Креста Господня, построенная ещё угличским'+
' князем, княжеский терем и надворные постройки. Вскоре вокруг крепости вырос посад. Тутаев входит в «Золотое кольцо» России,'+
' и недаром именуется «Жемчужиной на Волге». Церкви Тутаева, живописно разбросанные по холмистым берегам Волги, привлекают'+
' внимание туристов и любителей архитектуры. Прежде попасть можно было лишь в Покровскую церковь и Воскресенский собор, где'+
' находятся уникальные фрески XVII века. Особого внимания заслуживает фреска, посвященная сооружению Вавилонской башни. Ныне'+
' все храмы переданы Епархии и в них проводятся службы. В Крестовоздвиженском соборе сохранились, но находятся в удручающем'+
' состоянии, фрески XVII века, выполненные ярославскими, под руководством Василия Ильина, и костромскими, под руководством'+
' Гурия Никитина, изографами. Беда фресок является и их уникальностью: живопись можно увидеть в первозданном виде.';
namecity:='Тутаев'; end;
20: begin TextBrowser1.Text:='Углич – один из самых древних городов Верхней Волги. Этот город удивительно тих и гармоничен. В нем'+
' воедино сливаются могучая Волга и густые окружающие леса. Согласно легенде, Углич основан в 937 г. Яном Плесковичем, Киевским'+
' княжичем, посланным княгиней Ольгой для сбора денег. Факт существования города в Х веке подтвержден раскопками. Существует'+
' несколько предположений происхождения названия города. Одно из них – расположение города в излучине Волги, где река делает'+
' поворот, образуя угол. В Угличе происходили яркие и драматические события русской истории. Наибольшее развитие город получил'+
' во время правления Андрея Большого. При нем создан ансамбль угличского Кремля, от которого сегодня остались лишь Палаты царевича'+
' Дмитрия. Смерть младшего сына Ивана Грозного, Дмитрия, до сих пор окутана тайной. Церковь Дмитрия «на крови» построена на месте'+
' гибели царевича в 1692 г. В этой церкви находятся мировые реликвии, хранящиеся в музее. Первым экспонатом музея стал в 1892 г.'+
' «ссыльный» набатный колокол, который первый возвестил о гибели царевича и был возвращен из ссылки через 200 лет…Сохранились'+
' оригинальные росписи конца XVII – начала XVIII веков в Церкви Дмитрия «на крови».'; namecity:='Углич'; end;
21: begin TextBrowser1.Text:='В летописях город первоначально назывался Гюргев или Гергев — по имени его основателя Георгия'+
' (Юрия) Долгорукого. Вторая часть названия — от слова «поле», город стоит на суздальском ополье — появилась для уточнения'+
' местоположения, из-за существования в этот период других городов: до 1224 года — Юрьева (Тарту), а с 1224 — Юрьева-Повольского'+
' (Юрьевца). Параллелизм названий «Ю?рьев-Польской» и «Юрьев-Польский» зафиксирован, в частности, в виде двух вариантов написания'+
' названия города в БСЭ. В настоящее время на всех картах и в официальных документах город именуется Юрьев-Польский.'+
' Юрьев-Польский входит в состав Золотого кольца России. В городе расположен филиал Владимиро-Суздальского историко-художественного'+
' и архитектурного музея-заповедника. Наиболее известные архитектурные памятники города: Михайло-Архангельский монастырь (XIII век)'+
' с собором (1792) Знаменская церковь (1625) Георгиевский собор (1230—1234, реконструкция XV века). Остатки валов Юрьев-Польского'+
' кремля XII века. Поблизости, в селе Сима (известно с XIV века) — бывшая усадьба князей Голицыных, здесь в 1812 году скончался'+
' П. И. Багратион.'; namecity:='Юрьев-Польский'; end;
22: begin TextBrowser1.Text:='Шуя основана в 1403 году. Силуэт дореволюционной Шуи определяли храмы. К 1917 году в городе было'+
' 20 церквей. Комплекс Воскресенского собора начала XIX века известен своей 106-метровой колокольней — первой в Европе'+
' среди звонниц, стоящих отдельно от храмов. В 1891 году на третий ярус колокольни был поднят седьмой по величине колокол'+
' в России (весом 1270 пудов). Он был отлит в Москве на средства крупнейшего фабриканта М. А. Павлова. С 1991 года'+
' Воскресенский собор является подворьем Свято-Николо-Шартомского мужского монастыря — шуйской православной обители,'+
' известной с 1425 года.'; namecity:='Шуя'; end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin GetDir(0,S);
path:=S+'\picture\';
Form1.Image1.Stretch:=True;
Form1.Image2.Stretch:=True;
city:=0;
Form1.Image1.Picture.LoadFromFile(path+'\0\image1.bmp');
Form1.Image2.Picture.LoadFromFile(path+'\0\map.bmp');
namecity:='Сергиев Пасад';
ListBox1.Selected[0]:=True;
str1 :='Сергиев Пасад основан в 1337 году. Многочисленные архитектурные сооружения Троице-Сергиевой Лавры'+
' выстроены лучшими зодчими страны в XV—XIX вв. Ансамбль монастыря включает более 50 зданий различного назначения.'+ ' Вокруг Троицкого собора постепенно сформировался архитектурный ансамбль Лавры. Построен преемником основателя монастыря'+
' Никоном «в честь и похвалу» преподобному Сергию Радонежскому, а заложен в год прославления последнего во святых. Над'+
' иконостасом собора работали знаменитые русские иконописцы Андрей Рублёв и Даниил Чёрный; для этого иконостаса была'+
' написана Рублёвым икона «Святая Троица». Примечательно живописное многоярусное завершение собора. С юга к Троицкому'+
' собору примыкает Никоновская церковь (1552). К западной половине южной стены собора, на месте, где, по преданию, была'+
' келия преподобного Сергия, пристроена Серапионовская палатка (нынешняя — постройки 1783 года) — над мощами Новгородского'+
' архиепископа Серапиона, скончавшегося в монастыре; здесь также погребены митрополит Иоасаф (Скрипицын) и Дионисий'+
' Радонежский († 1633). План территории лавры с достопримечательностямиВторой по возрасту лаврский храм — Духовский'+
' (или храм Сошествия Святого Духа на Апостолов) — воздвигнут в 1476 году. Сложен он из кирпича и представляет собой'+
' классический пример псковского зодчества. Завершается он невысокой синекупольной колокольней (тип храма — «иже под'+ ' колоколы»). Крупнейшее сооружение монастыря — Успенский собор — воздвигнуто 1559—1585 по образцу Успенского собора'+
' Московского Кремля. В работе над иконостасом принимал участие Симон Ушаков. Фрески выполнены в 1684 Дмитрием Григорьевым'+
' и другими. К северо-западному краю собора примыкают могилы Бориса Годунова и его семьи, над которыми в 1780 была сооружена'+
' шатровая палатка (не сохранилась). С юго-западной стороны к Успенскому собору примыкает так называемая Надкладезная'+
' часовня, сооружённая в нарышкинском стиле (конец XVII в.).' ;
TextBrowser1.Text:=str1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin Form2.Button2.Enabled:=False;
Form2.Button1.Enabled:=True;
Form2.NN:=1;
STR(city,S);
Form2.Image1.Picture.LoadFromFile(path+S+'\image1.bmp');
Form2.Caption:='Фотографии города '+namecity;
Form2.Show;
Form2.WindowState := wsNormal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin STR(city,S);
Form3.Image2.Picture.LoadFromFile(Form1.path+S+'\map.bmp');
Form3.Image1.Picture.LoadFromFile(Form1.path+S+'\map.bmp');
Form3.Caption:='Карта города '+namecity;
Form3.Image2.Stretch:=True;
Form3.Image1.Stretch:=False;
Form3.Panel1.Enabled:=False;
Form3.Button1.Caption:='Включить Линзу';
Form3.Show;
flag:=False;
end;
procedure TForm1.N2Click(Sender: TObject);
begin Form1.Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin Form4.Show;
Form4.WindowState := wsNormal;
end;
end. ; end;
ФОРМА 2 Данная форма отвечает з а просмотр фотографий, при нажатии на кнопку «Далее» осуществляется переход на новую фотографию.
При нажатие назад возрат на предыдущую фотографию.
unit Unit2;
interfaceuses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
QDialogs, QStdCtrls, QExtCtrls;
type TForm2 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private { Private declarations }
S,SN: string[2];
public { Public declarations }
NN: integer;
end;
var Form2: TForm2;
implementationuses Unit1;
{$R *.xfm}
procedure TForm2.Button1Click(Sender: TObject);
begin Button2.Enabled:=True;
Str(Form1.city, S);
NN:=NN+1;
Str(NN, SN);
if NN=5 then Button1.Enabled:=False;
Image1.Picture.LoadFromFile(Form1.path+S+'\image'+SN+'.bmp');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin Button1.Enabled:=True;
Str(Form1.city, S);
NN:=NN-1;
Str(NN, SN);
if NN=1 then Button2.Enabled:=False;
Image1.Picture.LoadFromFile(Form1.path+S+'\image'+SN+'.bmp');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin NN:=1;
Button2.Enabled:=False;
//MessageDlg( s, mtWarning, [mbOk], 0, mbOk);
end;
end.
Форма 3
На данной форме происходит увеличение карты.
unit Unit3;
interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, Buttons;
type TForm3 = class(TForm)
Timer1: TTimer;
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Slider: TTrackBar;
cbSrediste: TCheckBox;
Image1: TImage;
Button1: TButton;
Image2: TImage;
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private public end;
var Form3: TForm3;
implementationuses Unit1;
{$R *.DFM}
procedure TForm3.FormDestroy(Sender: TObject);
begin Timer1.Interval:=0;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
var Srect,Drect,PosForme:TRect;
iWidth,iHeight,DmX,DmY:Integer;
iTmpX,iTmpY:Real;
C:TCanvas;
Kursor:TPoint;
begin if Form1.flag then
begin If not IsIconic(Application.Handle) then
begin GetCursorPos(Kursor);
PosForme:=Rect(Form3.Left,Form3.Top+25,Form3.Left+Form3.Width,Form3.Top+Form3.Height-200);
if PtInRect(PosForme,Kursor) then
begin iWidth:=Image1.Width;
iHeight:=Image1.Height;
Drect:=Rect(0,0,iWidth,iHeight);
iTmpX:=iWidth / (Slider.Position * 4);
iTmpY:=iHeight / (Slider.Position * 4);
Srect:=Rect(Kursor.x,Kursor.y,Kursor.x,Kursor.y);
InflateRect(Srect,Round(iTmpX),Round(iTmpY));
if Srect.Left<0 then OffsetRect(Srect,-Srect.Left,0);
if Srect.Top<0 then OffsetRect(Srect,0,-Srect.Top);
if Srect.Right>Screen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
if Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));
C:=TCanvas.Create;
try C.Handle:=GetDC(GetDesktopWindow);
Image1.Canvas.CopyRect(Drect,C,Srect);
finally C.Free;
end;
if cbSrediste.Checked=True then
begin with Image1.Canvas do
begin DmX:=Slider.Position * 2 * (Kursor.X-Srect.Left);
DmY:=Slider.Position * 2 * (Kursor.Y-Srect.Top);
MoveTo(DmX - (iWidth div 4),DmY);
LineTo(DmX + (iWidth div 4),DmY);
MoveTo(DmX,DmY - (iHeight div 4));
LineTo(DmX,DmY + (iHeight div 4));
end;
end;
Application.ProcessMessages;
end end;
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin if Panel1.Enabled=False then
begin Panel1.Enabled:=True;
Button1.Caption:='Выключить Линзу';
Form1.flag:=True;
end else begin Panel1.Enabled:=False;
Button1.Caption:='Включить Линзу';
Form1.flag:=False;
end;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin Panel1.Enabled:=False;
end;
end.
Форма 4
На данной форме выводится информация о программе и о разработчике.
unit Unit4;
interface
uses
SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
QDialogs, QStdCtrls;
type
TForm4 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.xfm}
procedure TForm4.Button1Click(Sender: TObject);
begin Form4.Close;
end;
end.

Приложенные файлы

  • docx 5256278
    Размер файла: 54 kB Загрузок: 0

Добавить комментарий