Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






ПРИЛОЖЕНИЯ. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,






ПРИЛОЖЕНИЕ 1

Листинг приложения

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, Menus, ExtDlgs, MPlayer, StdCtrls;

type

TForm1 = class(TForm)

PopupMenu1: TPopupMenu;

N11: TMenuItem;

N21: TMenuItem;

III1: TMenuItem;

IV1: TMenuItem;

N1: TMenuItem;

Image1: TImage;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

OpenPictureDialog1: TOpenPictureDialog;

MediaPlayer1: TMediaPlayer;

N5: TMenuItem;

N7: TMenuItem;

N6: TMenuItem;

ListBox1: TListBox;

FontDialog1: TFontDialog;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N7Click(Sender: TObject);

begin

If Image1.Top=0 then Image1.Top: =Form1.ClientHeight div 2

else Image1.Top: =0;

ListBox1.Items.Add('III-2/Переместить картинку');

end;

procedure TForm1.N8Click(Sender: TObject);

begin

ListBox1.Clear;

ListBox1.Items.Add('IV-1/Oчистить содержимое ListBox1');

end;

procedure TForm1.N9Click(Sender: TObject);

begin

ListBox1.Items.Add('IV-2/Показать медиаплейер');

MediaPlayer1.Visible: =true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Image1.Top: =0;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

ListBox1.Items.Add('IV-3/Скрыть картинку');

Image1.Visible: =false;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ListBox1.Items.Add('II-1/показать картинку');

Image1.Visible: =true;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ListBox1.Items.Add('II-2/скрыть медиаплейер');

MediaPlayer1.Visible: =false;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ListBox1.Items.Add('II-3/Заменить картинку');

if OpenPictureDialog1.Execute = true then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ListBox1.Items.Add('III-1/сменить цвет формы');

if Form1.Color=clMedGray then Form1.Color: =clred

else

if Form1.Color=clred then Form1.Color: =clgreen

else

Form1.Color: =clMedGray;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if FontDialog1.Execute=true then

ListBox1.Font: =FontDialog1.Font;

ListBox1.Items.Add('III-3/Изменить шрифт');

end;

end.

 

ПРИЛОЖЕНИЕ 2


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

mylektsii.su - Мои Лекции - 2015-2024 год. (0.008 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал