n2Click (Sender: TObject) ;. Value:=0; .Value:=0; .Value:=0 ;; TForm2.BitBtn1Click (Sender: TObject ) ;. Close ;;. Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, jpeg, ExtCtrls, StdCtrls, Buttons;=class (TForm): TImage ;: TImage ;: TImage ;: TImage;:TLabel ;: TLabel ;: TLabel ;: TLabel ;: TImage ;: TLabel ;: TBitBtn ;: TImage ;: TLabel; Image3Click (Sender: TObject); Image6Click (Sender: TObject); Image4Click (Sender: TObject); Image2Click ( Sender: TObject); BitBtn1Click (Sender: TObject); Image7Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm4; Unit3, Unit5, Unit6, Unit7, Unit2;
{$ R * .dfm} TForm4.Image3Click (Sender: TObject) ;. ShowModal ;; TForm4.Image6Click (Sender: TObject) ;. ShowModal ;; TForm4.Image4Click (Sender: TObject);.ShowModal ;; TForm4.Image2Click (Sender: TObject) ;. ShowModal ;; TForm4.BitBtn1Click (Sender: TObject) ;. Close ;; TForm4.Image7Click (Sender: TObject) ;. ShowModal ;;. Unit5 ;, Messages, SysUtils , Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, Buttons, ComCtrls;=class (TForm): TGroupBox ;: TColorBox ;: TGroupBox ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TBitBtn ;: TBitBtn ;: TLabel ;: TGroupBox ;: TTrackBar ;: TTimer ;: TBitBtn ;: TLabel ;: TComboBox ;: TLabel ;: TComboBox ;: TEdit ;: TEdit ;: TLabel ;: TLabel; BitBtn2Click (Sender: TObject); BitBtn1Click (Sender: TObject); TrackBar1Change (Sender: TObject); Timer1Timer (Sender: TObject); ComboBox1Change (Sender: TObject); ColorBox1Change (Sender: TObject); BitBtn3Click (Sender: TObject); GroupBox2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm5; Unit1, Unit2, Unit3, Unit4, Unit6, Unit7;
{$ R * .dfm} TForm5.BitBtn2Click (Sender: TObject) ;. Clear; .Clear; .Clear; .Clear ;; TForm5.BitBtn1Click (Sender: TObject);.ClientWidth:=strtoint(edit1.Text);.ClientHeight:=strtoint(edit2.Text);.Top:=strtoint(edit4.Text);.Left:=strtoint(edit3.Text);;TForm5.TrackBar1Change(Sender: TObject) ;. Max:=255;
//Form1.AlphaBlendValue:=255-TrackBar1.Position ;; TForm5.Timer1Timer (Sender: TObject); Combobox2.ItemIndex=1 then.AlphaBlendValue:=TrackBar1.Position; .AlphaBlend:=True ;; Combobox2.ItemIndex=2 then.AlphaBlendValue:=TrackBar1.Position ;. AlphaBlend:=True ;; Combobox2.ItemIndex=3 then
begin.AlphaBlendValue:=TrackBar1.Position; .AlphaBlend:=True ;; Combobox2.ItemIndex=4 then.AlphaBlendValue:=TrackBar1.Position; .AlphaBlend:=True ;; Combobox2.ItemIndex=5 then.AlphaBlendValue:=TrackBar1.Position; .AlphaBlend:=True ;; Combobox2.ItemIndex=6 then.AlphaBlendValue:=TrackBar1.Position; .AlphaBlend:=True ;; Combobox2.ItemIndex=7 then.AlphaBlendValue:=TrackBar1.Position ; .AlphaBlend:=True ;;; TForm5.ComboBox1Change (Sender: TObject); Combobox1.ItemIndex=1 then Form1.Color:=ColorBox1.Selected; Combobox1.ItemIndex=2 then Form2.Color:=ColorBox1.Selected; Combobox1. ItemIndex=3 then Form3.Color:=ColorBox1.Selected; Combobox1.ItemIndex=4 then Form4.Color:=ColorBox1.Selected; Combobox1.ItemIndex=5 then Form5.Color:=ColorBox1.Selected; Combobox1.ItemIndex=6 then Form6.Color:=ColorBox1.Selected; Combobox1.ItemIndex=7 then Form7.Color:=ColorBox1.Selected ;; TForm5.ColorBox1Change (Sender: TObject) ;. Selected ;; TForm5.BitBtn3Click (Sender: TObject); f: file of Integer;// Файлова змінна, тип integer (f, Setting.ini );// Прів'язуєм стрічку шляху файлу до файлової змінної (f);
{$ I +}//Включаєм контроль помілокIOResult lt; gt; 0 then Exit;// Если є помилка то віходімо (f, Form1.Top);// Запісуємо в файл положення по вертікалі (f, Form1.Left);// Запісуємо в файл положення по горізонталі (f, Form1.Width);// Запісуємо в файл ширину форми (f, Form1.Height);// Запісуємо в файл положення висота форми (f, Form1.Color);// Запісуємо в файл колір форми (f);// Завершуємо роботу з файлом.Close ;; TForm5.GroupBox2Click (Sender: TObject) ;;.
