unit Unit1;



interface



uses

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

Grids, StdCtrls;



type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

RB_Left: TRadioButton;

RB_Center: TRadioButton;

RB_Right: TRadioButton;

procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;

Rect: TRect; State: TGridDrawState);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure AllAlignClick(Sender: TObject);

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



// StringGrid의 DefaultDrawing 프로퍼티는 True 로 하세요

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;

Rect: TRect; State: TGridDrawState);

var

TW: integer;

begin

with StringGrid1.Canvas do

begin

FillRect(Rect);



TW := TextWidth(StringGrid1.Cells[Col, Row]);

if RB_Right.Checked then // 오른쪽

TextOut(Rect.Right - TW - 2, Rect.Top+2, StringGrid1.Cells[Col,Row])

else if RB_Center.Checked then // 중앙

TextOut((Rect.Left + Rect.Right - TW) div 2, Rect.Top+2, StringGrid1.Cells[Col,Row])

else // 왼쪽

TextOut(Rect.Left+2, Rect.Top+2, StringGrid1.Cells[Col,Row])

end;

end;



procedure TForm1.AllAlignClick(Sender: TObject);

begin

// 정렬이 변경되어 다시 그린다

StringGrid1.RePaint;

end;



procedure TForm1.FormActivate(Sender: TObject);

begin

// 예제 자료

StringGrid1.Cells[1,1] := '1';

StringGrid1.Cells[1,2] := '2';

StringGrid1.Cells[1,3] := '3';



// 세개의 RadioButton 에 click 이벤트 지정

RB_Left.OnClick := AllAlignClick;

RB_Center.OnClick := AllAlignClick;

RB_Right.OnClick := AllAlignClick;

end;



end.