ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽwｿｽUｿｽWｿｽOｿｽRｿｽOｿｽｿｽｿｽ[ｿｽUｿｽ[ 2006/12/27(ｿｽｿｽ) 16:18:55

ｿｽ@ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽｿｽdｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽｿｽhｿｽｿｽｿｽhｿｽﾈどで、ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾆゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾆは可能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Fusa 2007/01/03(ｿｽｿｽ) 03:14:20

http://www.geocities.jp/norg1964/delphianworld/data/le/ememo200.lzh
ｿｽｿｽｿｽｿｽｿｽﾌ、ExtMemoｿｽｿｽQｿｽlｿｽﾉ、ｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

unit RichEditDrawCRLF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TRichEditDrawCRLF = class(TRichEdit)
  private
    FCanvas: TCanvas;
    procedure CNNotify(var Msg: TWMNotify); message CN_NOTIFY;
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
    procedure WMChar(var Msg: TWMChar); message WM_CHAR;
    procedure DrawCRLFMark(Start, Stop: integer; fErase: boolean);
    function GetEditRect: TRect;
    function GetFirstVisibleLine: integer;
    function GetTextLength: integer;
  protected
    procedure CreateWnd; override;
    procedure DestroyWnd; override;
  public  { Public ｿｽ骭ｾ }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function CharFromPos(X, Y: integer): integer;
    function LineIndex(line: integer): integer;
  published
    { Published ｿｽ骭ｾ }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TRichEditDrawCRLF]);
end;

{ TRichEditDrawCRLF }

procedure TRichEditDrawCRLF.CNNotify(var Msg: TWMNotify);
var
  r: TRect;
begin
  inherited;
  r := GetEditRect;
  DrawCRLFMark(LineIndex(GetFirstVisibleLine), CharFromPos(r.Right, r.Bottom), false);
end;

procedure TRichEditDrawCRLF.WMPaint(var Msg: TWMPaint);
var
  r: TRect;
begin
  inherited;
  r := GetEditRect;
  DrawCRLFMark(LineIndex(GetFirstVisibleLine), CharFromPos(r.Right, r.Bottom), false);
end;

procedure TRichEditDrawCRLF.WMChar(var Msg: TWMChar);
var
  i, e, l: integer;
  c: PChar;
label
  Normal, CrLf;
begin
  if Msg.CharCode = VK_BACK then goto Normal;
  l := GetTextLength;
  i := SelStart;
  if i = l then goto CrLf;
  c := @Text[i + 1];
  if (c^ = ^M) or (c^ = ^J) then goto CrLf;
  e := i;
  while true do begin
    if (c^ > ' ') and (c^ <> #$81) then goto Normal;
    if c^ = #$81 then begin
      Inc(c);
      Inc(e);
      if c^ <> #$40 then goto Normal;
    end;
    inc(c);
    inc(e);
    if (e = l) or (c^ = ^M) or (c^ = ^J) then break;
  end;
//ｿｽLｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾊ置ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽﾜでスｿｽyｿｽ[ｿｽXｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾
  DrawCRLFMark(i, e, true);
  inherited;
  DrawCRLFMark(i, e + 1, false);
  Exit;
CrLf: //ｿｽLｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽﾊ置ｿｽｿｽｿｽｿｽｿｽsｿｽﾜゑｿｽｿｽﾍテｿｽLｿｽXｿｽgｿｽｿｽｿｽﾌ場合
  DrawCRLFMark(i, i, true);
  inherited;
  DrawCRLFMark(i, SelStart, false);
  Exit;
Normal: // ｿｽｿｽLｿｽﾈ外ｿｽﾌ場合
  inherited;
end;

procedure TRichEditDrawCRLF.CreateWnd;
begin
  inherited CreateWnd;
  FCanvas.Handle := GetDC(Handle);
end;

procedure TRichEditDrawCRLF.DrawCRLFMark(Start, Stop: integer; fErase: boolean);
var
  i,e, l: Integer;
  c: PChar;
  p: TPoint;
  er, cr: TRect;
  SelS, SelE: Integer;
  SF: Boolean;
begin
  FCanvas.Font.Assign(Font);
  FCanvas.Font.Height := FCanvas.TextWidth('ｿｽｿｽ') - 2;
  er := GetEditRect;
  i := Start;
  e := Stop;
  l := GetTextLength; //ｿｽeｿｽLｿｽXｿｽgｿｽｿｽLength
  SelS := SelStart;
  SelE := SelS + SelLength;
  SF := SelLength > 0;


  if e >= l then//ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ終ｿｽｿｽｿｽﾈゑｿｽ
  begin
    FCanvas.Font.Name := 'Symbol';
    Perform(EM_POSFROMCHAR, WPARAM(@p), e);
    if p.x < er.Right then
    begin
//      HideCaret(Handle);
      if fErase then
      begin
        FCanvas.Brush.Color := Color;
        FCanvas.Font.Color := Color;
      end else
        FCanvas.Font.Color := clBlue;
      FCanvas.TextOut(p.x + 1, p.y + 1, 'ｿｽｿｽ');
//      ShowCaret(Handle);
    end;
    e := l - 1;
  end;
  if e < 0 then Exit;

  c := @Text[i + 1]; // Text[i + 1] ｿｽ`ｿｽｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽﾉ遅ｿｽｿｽｿｽｿｽｿｽｿｽ

// ｿｽ{ｿｽｿｽｿｽｿｽﾒ集ｿｽLｿｽｿｽｿｽﾌ描ｿｽｿｽ(ｿｽIｿｽｿｽﾍ囲難ｿｽﾌ編集ｿｽLｿｽｿｽｿｽﾍ描ｿｽ謔ｵｿｽﾈゑｿｽ)

  HideCaret(Handle);
  while i <= e do begin
    if SF and (i >= SelS) then begin
      i := SelE;
      c := @Text[SelE + 1];
      SF := false;
      continue;
    end;
    case c^ of
      ^M:
      begin
        FCanvas.Font.Name := 'Symbol';
        Perform(EM_POSFROMCHAR, WPARAM(@p), i);
        if fErase then
        begin
          FCanvas.Brush.Color := Color;
          FCanvas.Font.Color := Color;
        end else
          FCanvas.Font.Color := clRed;
        FCanvas.TextOut(p.x + 1, p.y + 2, 'ｿｽb');
        if PChar(c + 1)^ = #$0A then begin Inc(c); Inc(i); end;
      end;
      ^J:
      begin
        FCanvas.Font.Name := 'Symbol';
        Perform(EM_POSFROMCHAR, WPARAM(@p), i);
        if fErase then
        begin
          FCanvas.Brush.Color := Color;
          FCanvas.Font.Color := Color;
        end else
          FCanvas.Font.Color := clGreen;
        FCanvas.TextOut(p.x + 1, p.y + 2, 'ｿｽb');
        if PChar(c + 1)^ = #$0A then begin Inc(c); Inc(i); end;
      end;
    end;  //case
    Inc(c);
    Inc(i);
  end;  //while
  ShowCaret(Handle);
  cr := ClientRect;
  FCanvas.Brush.Color := Color;
  if er.Left > cr.Left then FCanvas.FillRect(Rect(cr.Left, cr.Top, er.Left, cr.Bottom));
  if er.Top > cr.Top then FCanvas.FillRect(Rect(cr.Left, cr.Top, cr.Right, er.Top));
  if cr.Bottom > er.Bottom then FCanvas.FillRect(Rect(cr.Left, er.Bottom, cr.Right, cr.Bottom));
  if cr.Right > er.Right then FCanvas.FillRect(Rect(er.Right, cr.Top, cr.Right, cr.Bottom));
end;

function TRichEditDrawCRLF.CharFromPos(X, Y: integer): integer;
var
  Pos: TPoint;
begin
  Pos.X := X;
  Pos.Y := Y;
  Result := Perform(EM_CHARFROMPOS, 0, LPARAM(@Pos));
end;

function TRichEditDrawCRLF.GetEditRect: TRect;
begin
  Perform(EM_GETRECT, 0, LPARAM(@Result));
end;

function TRichEditDrawCRLF.LineIndex(line: integer): integer;
begin
  Result := Perform(EM_LINEINDEX, line, 0);
end;

function TRichEditDrawCRLF.GetFirstVisibleLine: integer;
begin
  Result := Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
end;

constructor TRichEditDrawCRLF.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCanvas := TCanvas.Create;
end;

destructor TRichEditDrawCRLF.Destroy;
begin
  FCanvas.Free;
  inherited Destroy;
end;

procedure TRichEditDrawCRLF.DestroyWnd;
begin
  ReleaseDC(Handle, FCanvas.Handle);
  inherited DestroyWnd;
end;


function TRichEditDrawCRLF.GetTextLength: integer;
begin
  Result := Perform(WM_GETTEXTLENGTH, 0, 0);
end;

end.

KEN 2007/01/05(ｿｽｿｽ) 00:47:11

ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBm(__)m

ｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾄて、ｿｽｿｽｿｽXｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで抵ｿｽｿｽﾟてゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

KEN 2007/01/05(ｿｽｿｽ) 00:49:25

ｿｽwｿｽUｿｽWｿｽOｿｽRｿｽOｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾍＫｿｽdｿｽmｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽBm(__)m

Fusa 2007/01/05(ｿｽｿｽ) 16:52:13

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄ。

ｿｽｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
SourceｿｽSｿｽﾌゑｿｽｿｽ逕ｼｿｽpｿｽJｿｽiｿｽｿｽｿｽSｿｽpｿｽJｿｽiｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで抵ｿｽｿｽﾓでゑｿｽｿｽB

Sourceｿｽｿｽｿｽﾉｿｽｿｽﾆゑｿｽｿｽcｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽmｿｽｿｽSymbolｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌ費ｿｽｿｽpｿｽJｿｽiｿｽｿｽ[ｿｽｿｽ][ｿｽc]ｿｽｿｽ
ｿｽｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽﾌ記ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽKｿｽﾘゑｿｽｿｽｿｽｿｽｿｽBｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽRｿｽﾌはゑｿｽｿｽﾈのゑｿｽ
ｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽﾍ費ｿｽｿｽpｿｽJｿｽiｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

KEN 2007/01/07(ｿｽｿｽ) 00:06:03

ｿｽeｿｽXｿｽgｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ奇ｿｽｿｽ黷ｪｿｽｿｽｿｽﾐとつなので　(^^)ｿｽU
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽﾄテｿｽXｿｽgｿｽｿｽｿｽﾄみまゑｿｽｿｽBｿｽｿｽ(ｿｽDｿｽD;) 

KEN 2007/01/07(ｿｽｿｽ) 13:31:47

ｿｽﾄ度ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽﾇのようｿｽﾉ構ｿｽzｿｽｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽ.name ｿｽｿｽ TRichEditDrawCRLF
Unit1ｿｽｿｽ RichEditDrawCRLF

ｿｽﾆゑｿｽｿｽﾄプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽ成ｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA

ｿｽfｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾌ１ｿｽOｿｽsｿｽｿｽ
ｿｽｿｽ  TRichEditDrawCRLF = class(TRichEdit)
ｿｽｿｽ
  TTRichEditDrawCRLF = class(TForm)
ｿｽﾉなゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽｿｽ成ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで難ｿｽｿｽRｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽ(ｿｽDｿｽD;) 

[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(51): ｿｽｿｽｿｽﾊ子ｿｽﾌ托ｿｽｿｽdｿｽｿｽ` : 'TRichEditDrawCRLF'
[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(51): ';' ｿｽｿｽｿｽKｿｽvｿｽﾈ場所ｿｽｿｽ ')' ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(55): ｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ難ｿｽｿｽoｿｽｿｽｿｽ黷ｽｿｽ^ｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾄべまゑｿｽｿｽｿｽ
[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(56): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'GetEditRect'
[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(57): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'DrawCRLFMark'
[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(57): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'LineIndex'
[ｿｽGｿｽｿｽｿｽ[] RichEditDrawCRLF.pas(57): ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子 : 'CharFromPos'
ｿｽE
ｿｽE
ｿｽE
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾇのようｿｽﾉ作成ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽUｿｽDｿｽOｿｽﾆＣｿｽ{ｿｽ{ｿｽaｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽUｿｽDｿｽOｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽﾚゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB(^^)ｿｽU 

Fusa 2007/01/07(ｿｽｿｽ) 22:12:22

ｿｽｿｽｿｽｿｽﾍコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌソｿｽ[ｿｽXｿｽﾅゑｿｽｿｽﾌゑｿｽ
TRichEditｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽﾅゑｿｽｿｽB

ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽ@ｿｽﾈどゑｿｽQｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ。

ｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽ
IDEｿｽｿｽｿｽTRichEditDrawCRLFｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB


Mr.XRAYｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽﾌペｿｽ[ｿｽWｿｽｿｽｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽ[Mr.XRAY]
http://homepage2.nifty.com/Mr_XRAY/Delphi/CompoInstall/index.htm

ｿｽjｿｽdｿｽm 2007/01/09(ｿｽｿｽ) 23:26:40

ｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB 
ｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽB(^_^)v 

ｿｽjｿｽdｿｽm 2007/01/09(ｿｽｿｽ) 23:27:04

ｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB 
ｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽB(^_^)v 

Created by board of various Programming Library.