작성일 2023-03-16 11:40 조회 712회
댓글 0건
좀 오래된 버전이긴한데
테스트환경이나 다른곳에 배포된곳에서는 에러가 뜨지않고
특정사업장 전체에서는 모든 화면에 저 에러가 뜬다하여 디버그까지 걸어보았으나
해결하지 못했습니다
(에러화면 첨부함)
원인과 해결방법 아시는분?
등록된 댓글이 없습니다.
2 답변
작성일 2023-03-17 13:53 댓글 0건
소심한넘 님, 안녕하세요.
그레이프시티입니다.
안녕하세요 그레이프시티입니다.
문의주신 에러 메시지만으로는 문제가 되는 부분을 확인하기 어렵습니다.
저희 쪽에서 해당 이슈를 재현해볼 수 있는 실행 가능한 샘플을 전달해주시면, 어느 부분에서 문제가 발생하는 지 확인하여 회신 드리도록 하겠습니다.
감사합니다.
그레이프시티 드림
등록된 댓글이 없습니다.
작성일 2023-04-12 09:15 댓글 0건
소심한넘 님, 안녕하세요.
그레이프시티입니다.
별도로 공유해주신 샘플 프로젝트를 개발팀에서 확인해본 결과,
해당 이슈는 Spread에서 visual style을 이용하여 요소를 프린트(또는 피트맵에 페인팅)할 때 발생하는 현상으로 보여진다고 합니다.
대안으로는, 조회된 정보를 Spread에 보여줄 때 DateTimeCellType을 사용하고 있는데, 해당 셀 타입 대신 다음과 같이 DateTimeCellType을 사용자 정의하여 사용함으로써 해당 오류를 방지할 수 있습니다.
Public Class CustomDateTimeCellType
Inherits FarPoint.Win.Spread.CellType.DateTimeCellType
Public Overrides Sub PaintCell(ByVal g As Graphics, ByVal r As Rectangle, ByVal appearance As FarPoint.Win.Spread.Appearance, ByVal value As Object, ByVal isSelected As Boolean, ByVal isLocked As Boolean, ByVal zoomFactor As Single)
Dim hdcX As IntPtr = g.GetHdc()
Dim toscreen As Boolean = VisualStyle.GetDeviceCaps(hdcX, VisualStyle.TECHNOLOGY) = VisualStyle.DT_RASDISPLAY
g.ReleaseHdc(hdcX)
Dim visualStyles As VisualStyles = appearance.VisualStyles
If Not toscreen Then
appearance.VisualStyles = visualStyles.Off
End If
MyBase.PaintCell(g, r, appearance, value, isSelected, isLocked, zoomFactor)
appearance.VisualStyles = visualStyles
End Sub
End ClassDateTimeCellType를 사용하는 코드를 위와 같이 정의한 CustomDateTimeCellType으로 변경하여 사용해보시기 바랍니다.
Try
Dim DtTm As New CustomDateTimeCellTypeDim DtCellType As CustomDateTimeCellType = New CustomDateTimeCellType
감사합니다.
그레이프시티 드림
등록된 댓글이 없습니다.
