Q&A

  • StringGrid에서 워드랩기능을 구현하려면...

  StringGrid에서 워드랩기능을 구현하려면 어찌해야하는지...

  책에는 컴퍼넌트 방식으로만 있던데...

  기본 컴퍼넌트로 구현한 방법은 없는 것인지...

  궁금합니다...

  
1  COMMENTS
  • Profile
    머슴 2002.07.30 05:14
    이렇게 하면 되는것 같습니다..

    With TStringGrid(Sender) do
       begin
          Canvas.FillRect(Rect);
          InflateRect(Rect, -2, -2);

         i := DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1,
                       Rect, DT_CALCRect or DT_EDITCONTROL or    
                        DT_WORDBREAK );
         if i > RowHeights[ARow] then RowHeights[ARow] := i + 4;

         DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, Rect,
                         DT_EDITCONTROL or DT_MODIFYSTRING or  
                        DT_WORDBREAK);
      end;