Перейти к содержанию

6-6-6

Пользователи
  • Постов

    91
  • Зарегистрирован

  • Посещение

Весь контент 6-6-6

  1. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Button1: TButton; Button2: TButton; Image1: TImage; Image2: TImage; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin {Портретная фотография становится видимой} Image1.Visible:=True; {Художественная фотография становится невидимой} Image2.Visible:=False; end; procedure TForm1.Button2Click(Sender: TObject); begin {Портретная фотография становится невидимой} Image1.Visible:=False; {Художественная фотография становится видимой} Image2.Visible:=True; end; end. - это и есть код программы его надо в WOrd вставлять?
  2. Вот собственно создал программу, сохранил ее в exe файл. Вопрост в том как сделать вот это -(. Оформите отчет, скопировав текст модуля из окна кода программы в WORD и запустите программу на выполнение)Как сделать отчет с кодом программы?
  3. НА стбуре Продам перса 51 левела ХАНТ вкован *издато за дейлики на оло ник Avinjer ДЕНЕГ на счету 1600 голд репа прокачана с громовым утесом-до превознесения, 10 или 12 маунтов(в том числе и Меведь куплен за 650 голд) 27 питомцев(Первая помощь- 400, горное дело 300, рыбная ловля 214, кулинария 180, инжинерка 340-куплены все свитки даже редкие ) , так же на аке есть 80 -ка брата, продам их всего за 250 р желательно на мобилку ПИСАТЬ В личку
  4. ВСЕ "A"ВВОДИ бля читай хоть маленько
  5. Бодрячком
  6. Выйду на улицу, закурю сигарету и буду ждать конца света
  7. а ночь трафик 2,5 копейки?
  8. А ночью что получается 2,5 копейки за мегабайт, после 12?
  9. перехожу на www.sibnet.ru)ПОКА
  10. и что www.sibnet.ru как улановка по 5 копеек?
  11. а что сибнет тоже 5 копеек стал?
  12. Бодрячком пацанчики *03
  13. Све вывезет любого, если правильно раскачать,СВЕН РЕТРО vs ЛОВКОСТИ- это пипец ловкости
  14. давно бы сходили кто сбе хочет футболку и сами себе сделали
  15. а что надо патчить???или для СТ 3.0.9 прет?
  16. дурачек какойто
  17. 6-6-6

    wow.burnet.ru

    БЕЙ БУРИК!!!!!!!
  18. 6-6-6

    wow.burnet.ru

    просто набежали Бурнетчики на стбур и онлайн поднялся
  19. а есть аддоны на 3.0.9?
  20. А что уе платно стало хождение внутри сети?
×
×
  • Создать...