String/矩形

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#include "llmod3/llmod3.hsp"
#module
 
 ;################################################
 ; < GetStrRect >
 ;	文字列の描画される矩形サイズを取得
 ;GetStrRect p1, p2
 ;	p1 ： 幅,高さを受け取る数値型配列変数
 ;	p2 ： 長さを調べる文字列型変数
 ;	【解説】
 ;	p2で指定した１行以上の文字列をmes等で表示する前にその横幅と高さを取得します。
 ;	失敗するとstatに0が返り、成功すると0以外が返される。
 #deffunc GetStrRect var intSize, var szword
     mref outstat, 64
     mref bmscr, 67
 
     dim prm2
     dim tm,56
     prm2.0 = bmscr.4    ;画面のデバイスコンテキスト
     getptr prm2.1, tm
     dllproc "GetTextMetricsA", prm2, 2, D_GDI    ;指定フォントの高さ取得に使用 tm.0
     if stat = 0 : outstat = 0 : goto *@forward
 
     dim prm1, 4
     prm1.0 = prm2.0
     getptr prm1.3, size
     outstat = 1
     intSizeW = 0 : intSizeH = 0
     szTxt = szword
     notesel szTxt
     szTxtMax=noteinfo(0)     ;行数取得
     repeat szTxtMax
         noteget@ szLine,cnt        ;１行づつ読み込み
         getptr prm1.1, szLine    ;対象文字列
         prm1.2=strlen(szLine)     ;文字列の長さ取得
         dllproc "GetTextExtentPoint32A", prm1, 4, D_GDI
         if stat {
             ;文字列の幅
             if intSizeW<size.0 : intSizeW = size.0
         }
         else{
             outstat = stat
             break
         }
         intSizeH += tm.0    ;フォント高さ
     loop
 
     intSize = intSizeW, intSizeH    ;幅と高さ
 
 *@
     return
 
 #global
 ;###モジュールここまで########################################################
 
 
     ;
     ;　実行サンプル
     ;
     font "ＭＳ Ｐゴシック", 36,16
 
     s = "test\nあいうえお\n\n012"
     dim intMojiSize, 2
     GetStrRect intMojiSize, s    ;矩形サイズ取得
 
     color 255,0,0
     boxf ,, intMojiSize.0, intMojiSize.1
     color 255,255,255
     boxf 1,1, intMojiSize.0-1, intMojiSize.1-1
     color 0,0,0
     mes s

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25

;===========================================================
;	文字列の描画領域のサイズを取得する for hsp3.0a
;
;	2006/01/13 ... kz3
;===========================================================
#module
    #uselib "user32.dll"
    #func DrawText "DrawTextA" int,sptr,int,sptr,int
 
    #deffunc getstrrect int p1, str p2, array p3
        rc = 0,0,0,0
        DrawText p1, p2, -1, varptr(rc), $00000400
        p3.0 = rc.2
        p3.1 = rc.3
 
        return
 
#global
 
    dim rc, 2
 
    getstrrect hdc, "Hello\n12345", rc
 
    mes rc.0
    mes rc.1