ｿｽ@ ｿｽ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

ｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽ 2010/09/28(ｿｽｿｽ) 14:29:34

ｿｽ@-----------------------------------------
ｿｽP|    ｿｽ`   |   ｿｽa    |    ｿｽb   |    ｿｽc   |
ｿｽ@-----------------------------------------
ｿｽQ|    ｿｽ`   |   ｿｽa    |    ｿｽb   |    ｿｽc   |
ｿｽ@-----------------------------------------
ｿｽsｿｽﾌセｿｽｿｽｿｽ`ｿｽﾆセｿｽｿｽｿｽaｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽrｿｽｿｽｿｽﾄ、ｿｽｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ轤ｻｿｽﾌ行ｿｽｿｽuｿｽﾔゑｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽvｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽFｿｽｿｽﾂゑｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽSｿｽﾌに色ｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽかｿｽｿｽﾃらいｿｽｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽﾎ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

igy 2010/09/28(ｿｽｿｽ) 21:37:06

>ｿｽFｿｽｿｽﾂゑｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽSｿｽﾌに色ｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾇのようｿｽﾈコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH

ｿｽﾛむぽゑｿｽ 2010/09/29(ｿｽｿｽ) 09:54:29

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdFixed in State then Exit;
  // 1 ｿｽｿｽ Aｿｽｿｽ ｿｽﾌセｿｽｿｽ
  // 2 ｿｽｿｽ Bｿｽｿｽ ｿｽﾌセｿｽｿｽ
  if StringGrid1.Cells[1, ARow] <> StringGrid1.Cells[2, ARow] then
  begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2,
      StringGrid1.Cells[ACol, ARow]);
  end;
end;

ｿｽｿｽ 2010/09/29(ｿｽｿｽ) 11:43:51

ｿｽｿｽｿｽﾆゑｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽH

  // 1 ｿｽｿｽ Aｿｽｿｽ ｿｽﾌセｿｽｿｽ
  // 2 ｿｽｿｽ Bｿｽｿｽ ｿｽﾌセｿｽｿｽ
  if (ACol=1) or (ACol=2) then   
    if StringGrid1.Cells[1, ARow] <> StringGrid1.Cells[2, ARow] then
    begin
      StringGrid1.Canvas.Brush.Color := clRed;
      StringGrid1.Canvas.FillRect(Rect);
      StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2,
          StringGrid1.Cells[ACol, ARow]);
    end;

KHE00221 2010/09/29(ｿｽｿｽ) 23:43:05

ｿｽｿｽｿｽsｿｽｿｽｿｽﾉセｿｽｿｽｿｽﾌ編集ｿｽﾍ行ｿｽｿｽｿｽﾌゑｿｽｿｽﾈ？

ｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽ 2010/10/02(ｿｽy) 17:38:20

ｿｽｿｽｿｽﾔ趣ｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾏ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽFｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ回答本ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAstringgridｿｽﾌセｿｽｿｽｿｽSｿｽﾄゑｿｽｿｽﾔゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ@ ｿｽ@ｿｽ`ｿｽ@ ｿｽ@ｿｽaｿｽ@ ｿｽ@ｿｽbｿｽ@ ｿｽ@ｿｽc
ｿｽ@--------------------------
ｿｽP|ｿｽZｿｽｿｽｿｽP|ｿｽZｿｽｿｽｿｽQ|ｿｽZｿｽｿｽｿｽR|ｿｽZｿｽｿｽｿｽS|
ｿｽ@--------------------------

if stringgrid1.cells[1,A(ｿｽZｿｽｿｽｿｽPｿｽﾌ抵ｿｽｿｽg)] <> stringgrid1.cells[1,B(ｿｽZｿｽｿｽｿｽQｿｽﾌ抵ｿｽｿｽg)] then
begin
  ｿｽZｿｽｿｽｿｽPｿｽｿｽﾔゑｿｽｿｽFｿｽtｿｽｿｽ;
  ｿｽZｿｽｿｽｿｽQｿｽｿｽﾔゑｿｽｿｽFｿｽtｿｽｿｽ;
  ｿｽZｿｽｿｽｿｽRｿｽｿｽﾔゑｿｽｿｽFｿｽtｿｽｿｽ;
  ｿｽZｿｽｿｽｿｽSｿｽｿｽﾔゑｿｽｿｽFｿｽtｿｽｿｽ;
end;

ｿｽｿｽｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽLｿｽqｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽxｿｽｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾐ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

TS 2010/10/02(ｿｽy) 18:47:20

>ｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽ 
ｿｽｿｽｿｽｿｽｿｽ艪､ｿｽｿｽｿｽOｿｽﾍ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜとゑｿｽﾈ厄ｿｽｿｽOｿｽｿｽtｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽ]ｿｽｿｽｿｽﾜゑｿｽｿｽB

>ｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ轤ｭｿｽFｿｽｿｽｿｽ質厄ｿｽﾌ難ｿｽeｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

>ｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAstringgridｿｽﾌセｿｽｿｽｿｽSｿｽﾄゑｿｽｿｽﾔゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
igy ｿｽﾌ趣ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾛむぽゑｿｽ ｿｽAｿｽﾘゑｿｽｿｽｿｽﾌ例示ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽ@ｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ轤ｭｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽﾆ厄ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ擾ｿｽ閧ｭｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽがと趣ｿｽｿｽ竄ｳｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾆ。

KHE00221 ｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ進ｿｽﾞと思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

TS 2010/10/02(ｿｽy) 18:49:09

igy ｿｽｿｽｿｽｿｽｿｽﾄび捨てまゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽvｿｽｿｽｿｽq 2010/10/02(ｿｽy) 20:29:48

ｿｽﾛむぽゑｿｽ ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽｿｽﾉ、FormｿｽｿｽButton1sｿｽｿｽstringGrid1(ColCount ｿｽｿｽ 5ｿｽARowCount ｿｽｿｽ 10ｿｽﾉ設抵ｿｽ)ｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌエｿｽxｿｽｿｽｿｽgｿｽｿｽﾝ定しｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

procedure TForm1.Button1Click(Sender: TObject);
var
  R,C: Integer;
begin
  Randomize;
  for R := 1 to 10 do
    for C := 1 to 4 do
      begin
          StringGrid1.Cells[C, R] := intToStr(Random(5));
      end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdFixed in State then Exit;
  // 1 ｿｽｿｽ Aｿｽｿｽ ｿｽﾌセｿｽｿｽ
  // 2 ｿｽｿｽ Bｿｽｿｽ ｿｽﾌセｿｽｿｽ
  if StringGrid1.Cells[1, ARow] <> StringGrid1.Cells[2, ARow] then
  begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol, ARow]);
  end;
end;

KHE00221 2010/10/03(ｿｽｿｽ) 08:57:25

ｿｽﾙゑｿｽ

  TInplaceEdit = class(Grids.TInplaceEdit);

  TComparisonStyle = (csNone,csENTER,csREAL);

  TStringGrid = class(Grids.TStringGrid)
  private
    FSaveRow: Integer;
    FSaveCol: Integer;
    FComparisonColor: TColor;
    FComparison: TComparisonStyle;
    FComparisonCol1: Integer;
    FComparisonCol2: Integer;
    procedure SetComparisonColor(Value: TColor);
    procedure SetComparison(Value: TComparisonStyle);
    procedure SetComparisonCol1(Value: Integer);
    procedure SetComparisonCol2(Value: Integer);
  protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
    function GetEditText(ACol, ARow: Longint): string; override;
    procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
    procedure KeyPress(var Key: Char); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Comparison: TComparisonStyle read FComparison write SetComparison;
    property ComparisonColor: TColor read FComparisonColor write SetComparisonColor;
    property ComparisonCol1: Integer read FComparisonCol1 write SetComparisonCol1;
    property ComparisonCol2: Integer read FComparisonCol2 write SetComparisonCol2;
  end;

//---------------------------------------

procedure TStringGrid.SetComparisonColor(Value: TColor);
begin
    FComparisonColor := Value;
    Invalidate;
end;

procedure TStringGrid.SetComparison(Value: TComparisonStyle);
begin
    FComparison := Value;
    Invalidate;
end;

procedure TStringGrid.SetComparisonCol1(Value: Integer);
begin
    FComparisonCol1 := Value;
    Invalidate;
end;

procedure TStringGrid.SetComparisonCol2(Value: Integer);
begin
    FComparisonCol2 := Value;
    Invalidate;
end;

procedure TStringGrid.KeyPress(var Key: Char);
var
    C: TColor;
begin

    if (Key = #13) and (FComparison = csENTER) then
    begin
      if (FSaveCol <> -1) and (FSaveRow <> -1) then
      begin
        C := Color;
        if Cells[FComparisonCol1, FSaveRow] <> Cells[FComparisonCol2, FSaveRow] then
        begin
          C := FComparisonColor;
        end;
        TInplaceEdit(InplaceEditor).Color := C;
        InvalidateRow(FSaveRow);
      end;
    end;

    inherited KeyPress(Key);
end;

procedure TStringGrid.SetEditText(ACol, ARow: Longint; const Value: string);
var
    C: TColor;
begin
    inherited;

    if (FComparison = csREAL) then
    begin
      C := Color;
      if Cells[FComparisonCol1, ARow] <> Cells[FComparisonCol2, ARow] then
      begin
        C := FComparisonColor;
      end;
      TInplaceEdit(InplaceEditor).Color := C;
      InvalidateRow(FSaveRow);
    end;

end;

function TStringGrid.GetEditText(ACol, ARow: Longint): string;
var
    C: TColor;
begin

    Result := inherited GetEditText(ACol,ARow);

    if (FComparison <> csNONE) then
    begin
      FSaveCol := ACol;
      FSaveRow := ARow;
      C := Color;
      if Cells[FComparisonCol1, ARow] <> Cells[FComparisonCol2, ARow] then
      begin
        C := FComparisonColor;
      end;
      TInplaceEdit(InplaceEditor).Color := C;
    end;

end;

procedure TStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;AState: TGridDrawState);
begin
    if (FComparison <> csNONE) then
    begin
      if gdFixed in AState then
      begin
        inherited DrawCell(ACol, ARow, ARect, AState);
      end
      else
      begin
        Canvas.Brush.Color := Color;
        if Cells[FComparisonCol1, ARow] <> Cells[FComparisonCol2, ARow] then
        begin
          Canvas.Brush.Color := FComparisonColor;
        end;
      end;
    end;
    inherited DrawCell(ACol, ARow, ARect, AState);
end;


constructor TStringGrid.Create(AOwner: TComponent);
begin
    inherited;
    FSaveCol := -1;
    FSaveRow := -1;
    FComparison := csREAL;
    FComparisonCol1 := 1;
    FComparisonCol2 := 2;
    FComparisonColor := clRed;
end;

ｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽ 2010/10/04(ｿｽｿｽ) 21:13:00

ｿｽFｿｽlｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.