Основне меню  

   

Реклама  

Скачуйте відеуроки для створення сайту за допомогою SMS Joomla 

реклама

 

 

   

Ми в Facebook  

Калькулятор расчета пеноблоков смотрите на этом ресурсе
Все о каркасном доме можно найти здесь http://stroidom-shop.ru
Как снять комнату в коммунальной квартире смотрите тут comintour.net
   

Реклама в мережі  

   

Статистика  

Користувачі
1
Статті
185
Перегляди статей
1017452
   

Пошук по сайту  

   

Ми знаходимось тут  

   

Посібник Delphi  

ДОСТУПНИЙ ВИКЛАД,

ЦІКАВІ ПРИКЛАДИ, ВИХІДНІ КОДИ.

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 500 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Посібник по C#  

 Вивчаємо сучасну мову  програмування C# 7.0

ПРОГРАМУЄМО в VISUAL STUDIO 2017

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 1000 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Випадкове фото  

   

Наш відеоканал  

   

Відвідування сайту  

Яндекс.Метрика

 

   

Відеокурс по С++  

   

Рекомендуємо:  

   

 На цьому уроці Ви познайомитеся з призначенням і основними властивостями компонента Lazarus Image, створите два проекти з його використанням. Компонент Зображення (TImage) призначений для виведення на форму графічного малюнка. Він підтримує численні формати графічних файлів, включаючи .bmp, .ico, .jpg і т.д.

Для ознайомлення з описом компонента і його властивостями перейдіть за посиланням - TImage (Зображення).Ви можете присвоїти будь-який малюнок компоненту зображення як при розробці в середовищі Lazarus, так і під час виконання. На цьому уроці ми розглянемо обидва випадки. Для завантаження малюнка в поле зображення на етапі розробки інтерфейсу додатку потрібно надати  властивості Picture файл, який містить малюнок. Для надання зображення файлу з малюнком під час виконання програми використовується метод LoadFromFile (), що належить об'єкту Picture. Наприклад, для виведення в зображення  imgExample файлу малюнка myPicture.jpg під час виконання використовується наступний оператор: imgExample.Picture.LoadFromFile('myPicture.jpg’).

Завдання 1

 Створіть додаток «Вставка малюнка з файлу», в результаті роботи якого лівий малюнок буде відображатися на формі після її завантаження, а правий - по кліку на кнопці Вивести малюнок.

 

 

 

 

 

 

 

 

 

 

 

Малюнки для виконання завдання:

 Збережіть їх як файли на вашому компютері.

Хід виконання

1. Створіть новий додаток «Вставка малюнка з файлу».Додайте на форму два зображення Image (вкладка Додатково), два написи (Label) і дві кнопки (кнопка).

Значення властивості AutoSize для зображення встановити true, щоб розміри поля зображення автоматично змінювалися, підбудовувалися під розміри малюнка.

 2. Скопіюйте графічні файли з малюнками в папку проекту, інакше доведеться вказувати повний шлях до файлу.

3. Перший малюнок завантажте в Image1 на етапі проектування інтерфейсу при налаштуванні властивості Зображення об'єкта Image1 в інспектора об'єктів.

Для цього:

  •  Виділіть елемент Image1 на формі, в вікні Інспектор об'єктів.
  • У рядку Зображення натисніть кнопку із трьома крапками. Відкриється вікно Діалог завантаження зображення.
  • У діалоговому вікні натисніть на кнопку Завантажити, вкажіть файл, який містить малюнок.

 Другий малюнок завантажити в Іmage2 під час виконання програми за допомогою методу LoadFromFile об'єкта Image2 після клацання на кнопці Button2 (Показати малюнок).

Для цього:

  • Відкрийте редактор коду подвійним клацанням на елементі Button2. У програмний код додатися порожня процедура TForm1.Button2Click.
  • Напишіть програмний код для  TForm1.Button2Click.

procedure TForm1.Button2Click(Sender: TObject);

begin

   image2.Picture.LoadFromFile('img.gif');

end;

5. Перевірте роботу програми. Перша картинка повинна відобразитися в полі Image1 відразу після завантаження програми, друга картинка - після клацання на кнопці Показати малюнок.

6. Додайте до попереднього проекту кнопку Сховати малюнок (Button3). Накладіть її на кнопку Button2. Зробіть невидимою на момент завантаження програми, для цього змініть властивість Visible на значення False.

7. Змініть програмний код процедури обробки клацання на кнопці Button2 (Показати малюнок). Програмний код виконує наступні дії:

 Робить видимою кнопку Button2;

• Завантажити малюнок в поле Image2;

• Робить невидимою кнопку Button2;

• На її місці робить видимою кнопку Button3.

 Програмний код процедури:

procedure TForm1.Button2Click(Sender: TObject);

begin

   image2.Visible:=true;

   image2.Picture.LoadFromFile('pr7-2.gif');

   button2.Visible:=false;

   button3.Visible:=true;

end;

Для управління видимістю кнопок використовуйте властивість Visible.

8. Напишіть програмний код процедури обробки клацання на кнопці Button3, який:

• видаляє картинку з Image2;

• робить невидимою кнопку Button2 (Показати малюнок)

Оригінальний текст процедури:

procedure TForm1.Button3Click(Sender: TObject);

begin

   button3.Visible:=false;

   button2.Visible:=true;

   image2.Visible:=false;

end;

 8. Перевірте роботу кнопок. Після клацання на кнопці Показати малюнок картина відобразиться в полі Image2, а після клацання на кнопці Сховати малюнок - видаляється з поля.

 9. Збережіть проект.

Завдання 2

Створіть додаток, яке над малюнком, розташованим в центрі форми, виконує дії, зазначені на кнопках.

 

 Хід виконання

1. Створіть новий додаток, збережіть його в папці Переміщення картинки.

2. Встановіть на формі 9 кнопок (кнопка) і поле Image (зображення) як показано у зразку.

3. Змініть властивість Ім'я кнопок відповідно до написами на них: - Vverh_Vlivo, vverch і т.д.

4. Написати програмний код процедур обробки клацань по кнопках.

Нагадаю. Для того щоб створити процедуру обробник події, за замовчуванням, потрібно виконати подвійне клацання на елементі управління.

Приблизний текст процедур обробників для кнопок Вгору-вліво, Вгору-вправо і В центр наводиться нижче:

 

procedure TForm1.btnVverh_VlivoClick(Sender: TObject);

begin

   image1.top:=10;

   image1.left:=10;

end;

 procedure TForm1.btnVverh_VpravoClick(Sender: TObject);

begin

   image1.top:=10;

   image1.left:=form1.width-image1.width -10;

end;

 

procedure TForm1.btnCentrClick(Sender: TObject);

begin

   image1.top:=(form1.height-image1.height) div 2;

   image1.left:=(form1.width-image1.width) div 2;

end;

5. Програмний код для інших кнопок написати самостійно.

6. Перевірити роботу програми.

 

Коментарі  

+1 # Консось 04.02.2019, 12:55
Акакой будет персонаж ябы хател чтобы было шесть персонажей и шесть градов на каждого персонажа града назвались так - Бритишсити Вайсити Людиндорв Московсити Парыж и старый горарарайон сашиа санандрес
Відповісти | Відповісти цитуючи | Цитата
0 # Елена 04.02.2019, 12:56
Недавно купила мужу данную програму за 300 грн а оказалось что она бесплатная дайте пж 10 грн надо ипотеку оплачивать
Відповісти | Відповісти цитуючи | Цитата
0 # Георгий 04.02.2019, 12:59
Недавно проиграл жену в карты жирному бомжу Енакентию. решил заработать на програмировании, поэтому решил начать с лазаруса. Програма стоит 500 грн мне ровно не хватает 300. Вот вам киви 8-800-555-35-35
Відповісти | Відповісти цитуючи | Цитата
+2 # Василь 04.02.2019, 13:00
нічого не розумію, навіть друг Василь и Петро нічого не допомогли. зараз шукаю як виконати урок 3, а поряд мені допомагають Юрко, Петро, Василь, и Ярік. чекаю відповіді...
Відповісти | Відповісти цитуючи | Цитата
-1 # Мариночка 04.02.2019, 13:01
Де реклама одиныиксбет але геде ана
Відповісти | Відповісти цитуючи | Цитата
+2 # Дед Дмытро 04.02.2019, 13:01
Йоп твою за ногу, як ця ***ня працюэ медведь може знаэ. Я вон только вчера инет провел а тут уже какойто синий блэт икран!!!!! ПАМАГИТЕ ибо почемутьо комп горит..... Блллляляляляфтьвтаыдлталдвыть
Відповісти | Відповісти цитуючи | Цитата
+1 # Друг Василя 04.02.2019, 13:03
куди мены тикати и дивитися, допоможыть
Відповісти | Відповісти цитуючи | Цитата
-1 # твоя мамка 04.02.2019, 13:03
Эй, сышь ты ***ть химик-програмист Для начала пускай телка даст а не мужыки, и вообще блять я провода тебе переломаю
С уважением твоя мама
Відповісти | Відповісти цитуючи | Цитата
-1 # Друг Василя 04.02.2019, 13:05
Згоден із Твоя Мамка.
Парыыыыыыыж!
Відповісти | Відповісти цитуючи | Цитата
+1 # твой х** 04.02.2019, 13:05
ОТ тебя гавной ванаєт Програма ужасная проста ужас
Відповісти | Відповісти цитуючи | Цитата
-1 # Аффтар 17.02.2019, 07:48
Да, блеать, хуле вы пыздыте усё работает, просто надо чаще трахаться, если хуй не стоит нужно к проктологу идти, блеать!
Відповісти | Відповісти цитуючи | Цитата
0 # Путэн 17.02.2019, 07:53
Да пососите, блэт! У всех работает, у вас нет! Чего сложного в том, чтобы заплатить нолог, чтобы все работало? Или не православный?
Відповісти | Відповісти цитуючи | Цитата
+2 # Обэмэ 17.02.2019, 07:56
БЫЛИ БЫ ВЫ ЛЮДЬМИ НАХОй! НИХУЯ НЕ РАБОТАЕТ БОЯТЬ! ВАШИХ ДОЧЕК ЕБУТ ГДЕ-НИБУДЬ, НАХУЙ БЫДЛО, А ДЕТИ ГИБНУТ ИЗЗА ВАШЕГО ЕБАНОГО ЛАЗАРУСА! ТАКИЕ ЖЕ ЧЕРНОЖОПЫЕ, КАК И ПРОГРАММА!
Відповісти | Відповісти цитуючи | Цитата
0 # Баба Рая 17.02.2019, 08:07
Дед Дмытро, ты ахерел? Де алименты? Ты такой же тупорылый как и в сорокпервом, когда упал пяткой на штык-нож немца, блеать, а программа хорошая, несмотря на свой маразм, я разобралась легко! Не слушайте таких далбаёбов, как дед дмытро! Этот пидор из семьи ушёл, когда его дочь раком пизды заразилась, ублюдок, нет чтобы поддержать! Нет он сьебался, блять! А Васю, Васю помнишь сука? Так вот он после того как ты ушёл повесился, и не стыдно тебе, понос? Ну бог тебя накажет, накажет точно! Чтоб у тебя твоя железная пятка заржавела, мудак! Ты бы хоть на похороны пришёл твоих детей, нет он блять бухает со своими кентами, Василичем и Степанычем! Та чтоб у вас печень сгнила, у всех нелюди блять! Андропова на вас нет, ублюдки безморальные!
Відповісти | Відповісти цитуючи | Цитата
+2 # Трамп 17.02.2019, 08:10
ААААААААААААААААА! ЭТА ЕБУЧАЯ ПРОГРАМА ТАК ЖЕ БЕСИТ КАК И ЛИБЕРАЛЫ КОТОРЫЕ НЕ ДАЮТ ДЕНЕГ НА СТЕНУ, СУКА!
Відповісти | Відповісти цитуючи | Цитата
+2 # твой отец 17.02.2019, 08:15
Мать, я же говорил, что надо брать гондон, а ты говорила, ничего ничего, программист не выростет! Ага, вот он и вырос мудак! Ты бы хоть отца навещал и спрашивал как у него дела! А дела мягко говоря хуёво! Мой рак яичек настолько спрогрессировал, что мои яйца теперь размером с футбольный мяч! Это ж сколько там спэрмы помещается! Но доктор, мне уже сказал что я точно здохну пятого апреля, прийди хоть посмотри как твой отец умирает
Відповісти | Відповісти цитуючи | Цитата
+2 # Паримахер дядя Толик 17.02.2019, 08:18
Когда я тебя постригал автор, я конечно догадывался шо ты конченый но настолько же чтобы в лазарусе программы писать!
Відповісти | Відповісти цитуючи | Цитата

Додати коментар

Захисний код
Оновити

   

Поділіться з друзями

 
   

Сайт для перевірки своїх знань з програмування на сайті:http://www.quizful.net/test

Онлайн тести  для програмістів: https://proghub.ru/


 Розробка сайтів, інтернет-магазинів під ключ. Створення програмного забезпечення для обліку в магазинах,

гуртовнях, ведення власного бізнесу та інших. Написання дипломних та курсових робіт з програмування, баз даних.

 

Звертайтесь за адресою email:kuzbyt@ukr.net

 

 

© (C) Sambir, I.Kuzbyt