프로그래밍 노트

StringGrid의 셀에 색칠하기 예제 StringGrid의 1열은 녹색으로 표시하고 2행은 적색으로 표시하고 StringGrid의 1열과 2행 외의 다른 셀을 클릭하였을 때, 클릭한 셀을 청색으로 표시한다. procedure TForm1.StringGrid1Click(Sender: TObject); var pntCurPos :TPoint; iCol :integer; iRow :integer; begin with StringGrid1 do begin pntCurPos := ScreenToClient(Mouse.CursorPos); // 마우스가 위치가 어느 셀위에 있는지 정보얻기 MouseToCell(pntCurPos.x, pntCurPos.y, iCol, iRow); // 셀 별 오브젝트가 설정되었는..

[델파이]StringGrid에서 오른쪽 정렬과 가운데 정렬하기 예제 오른쪽 정렬하고자하는 StringGrid의 DrawCell 이벤트에 밑의 소스를 카피해서 정렬을 하고자 하는 열이나 행을 설정한다. StringGrid는 기본적으로 왼쪽 정렬 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var hdcTemp : HDC; crdOrgAlign : Cardinal; begin with Sender as TStringGrid do begin hdcTemp := Canvas.Handle; if ARow = 0 then Canvas.Font.Style := C..

클립보드의 데이터를 StringGrid에 붙이기 엑셀에서 데이터를 카피해서 StringGrid에 붙이기 클립보드의 데이터를 쓰기위해서는 uses절에 Clipbrd 를 추가해야 된다. procedure TfrmCable.PasteToGrid(sgrdPaste: TStringGrid; iCol, iRow: integer); const cTab = #9; cCR = #13; cLF = #10; var iCols : integer; iRows : integer; i : integer; sClip : string; sSubs : string; begin // Col,Row 이 음수 일때는 0으로 if iCol < 0 then iCol := 0; if iRow < 0 then iRow := 0; sClip := C..