О программе

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, ShellApi;

type

TForm9 = class(TForm)

Image1: TImage;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

StaticText5: TStaticText;

StaticText6: TStaticText;

StaticText7: TStaticText;

StaticText8: TStaticText;

StaticText9: TStaticText;

procedure StaticText7Click(Sender: TObject);

procedure StaticText9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit8, Unit7;

{$R *.dfm}

procedure TForm9.StaticText7Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm9.StaticText9Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.izone.ru/text/editors/'), nil, nil, SW_SHOW);

end;

end.

Настройка цвета шрифта

unit Unit_color;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, Mask, ComCtrls;

type

TForm_color = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

meRed: TMaskEdit;

meGreen: TMaskEdit;

meBlue: TMaskEdit;

RedUpDown: TUpDown;

GreenUpDown1: TUpDown;

BlueUpDown: TUpDown;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

sbRedScroll: TScrollBar;

sbGreenScroll: TScrollBar;

sbBlueScroll: TScrollBar;

shShape: TShape;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure BtnRectangleClick(Sender: TObject);

procedure BtnEllipseClick(Sender: TObject);

procedure BtnRoundRectClick(Sender: TObject);

procedure meRedChange(Sender: TObject);

procedure meGreenChange(Sender: TObject);

procedure meBlueChange(Sender: TObject);

procedure sbRedScrollChange(Sender: TObject);

procedure sbGreenScrollChange(Sender: TObject);

procedure sbBlueScrollChange(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

RedColor, GreenColor,BlueColor: TColor;

public

{ Public declarations }

end;

var

Form_color: TForm_color;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_color.FormCreate(Sender: TObject);

begin

RedColor:=127;

RedUpDown.Position:=RedColor;

sbRedScroll.Position:=RedColor;

meRed.Text:=IntToStr(RedColor);

GreenColor:=127;

GreenUpDown1.Position:=GreenColor;

sbGreenScroll.Position:=GreenColor;

meGreen.Text:=IntToStr(GreenColor);

BlueColor:=127;

BlueUpDown.Position:=BlueColor;

sbBlueScroll.Position:=BlueColor;

meBlue.Text:=intToStr(BlueColor);

shShape.Brush.Color:=RGB(RedColor,GreenColor,BlueColor);

end;

procedure TForm_color.BtnRectangleClick(Sender: TObject);

begin

shShape.Shape:=stRectangle;

end;

procedure TForm_color.BtnEllipseClick(Sender: TObject);

begin

shShape.Shape:=stEllipse;

end;

procedure TForm_color.BtnRoundRectClick(Sender: TObject);

begin

shShape.Shape:=stRoundRect;

end;

procedure TForm_color.meRedChange(Sender: TObject);

var

S:String;

Begin

S:=meRed.Text;

while Pos(' ',S)>0 do Delete(S,Pos(' ',S),1);

if S='' then Exit;

RedColor:=StrToInt(S);

if RedColor<0 then RedColor:=0;

if RedColor>255 then RedColor:=255;

sbRedScroll.Position:=RedColor;

RedUpDown.Position:=RedColor;

shShape.Brush.Color:=RGB(RedCOlor,GreenColor,BlueColor);

end;

procedure TForm_color.meGreenChange(Sender: TObject);

Var

S:String;

begin

S:=meGreen.Text;

while Pos(' ',S)>0 do Delete(S,Pos(' ',S),1);

if S='' then Exit;

GreenColor:=StrToInt(S);

if GreenColor<0 then GreenColor:=0;

if GreenColor>255 then GreenColor:=255;

sbGreenScroll.Position:=GreenColor;

GreenUpDown1.Position:=GreenColor;

shShape.Brush.Color:=RGB(RedColor,GreenColor,BlueColor);

end;

procedure TForm_color.meBlueChange(Sender: TObject);

Var

S:String;

begin

S:=meBlue.Text;

meBlue.Text;

while Pos(' ',S)>0 do Delete(S,Pos(' ',S),1);

if S='' then Exit;

BlueColor:=StrToInt(S);

if BlueColor<0 then BlueColor:=0;

if BlueColor>255 then BlueColor:=255;

sbBlueScroll.Position:=BlueColor;

BlueUpDown.Position:=BlueColor;

shShape.Brush.Color:=RGB(RedColor,GreenColor,BlueColor);

end;

procedure TForm_color.sbRedScrollChange(Sender: TObject);

begin

RedColor:=sbRedScroll.Position;

RedUpDown.Position:=RedColor;

meRed.Text:=IntToStr(RedColor);

shShape.Brush.Color:=RGB(RedColor,GreenCOlor,BlueColor);

end;

procedure TForm_color.sbGreenScrollChange(Sender: TObject);

begin

GreenColor:=sbGreenScroll.Position;

GreenUpDown1.Position:=GreenColor;

meGreen.Text:=IntToStr(GreenColor);

shShape.Brush.Color:=RGB(RedColor,GreenCOlor,BlueColor);

end;

procedure TForm_color.sbBlueScrollChange(Sender: TObject);

begin

BlueColor:=sbBlueScroll.Position;

BlueUpDown.Position:=BlueColor;

meBlue.Text:=IntToStr(BlueColor);

shShape.Brush.Color:=RGB(RedColor,GreenCOlor,BlueColor);

end;

procedure TForm_color.Button1Click(Sender: TObject);

begin

if Form1.Memo1.SelText='' then

Form1.Memo1.Font.Color:=shShape.Brush.Color

else

Form1.Memo1.SelAttributes.Color:=shShape.Brush.Color;

Form_color.Close;

end;

end.