SIZE struct
parent
ccb20bd00e
commit
3ecb3a85db
|
@ -287,9 +287,9 @@ C-STRUCT: POINT
|
||||||
{ "LONG" "x" }
|
{ "LONG" "x" }
|
||||||
{ "LONG" "y" } ;
|
{ "LONG" "y" } ;
|
||||||
|
|
||||||
C-STRUCT: SIZE
|
STRUCT: SIZE
|
||||||
{ "LONG" "cx" }
|
{ cx LONG }
|
||||||
{ "LONG" "cy" } ;
|
{ cy LONG } ;
|
||||||
|
|
||||||
C-STRUCT: MSG
|
C-STRUCT: MSG
|
||||||
{ "HWND" "hWnd" }
|
{ "HWND" "hWnd" }
|
||||||
|
|
|
@ -82,7 +82,7 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
|
||||||
: script-string-size ( script-string -- dim )
|
: script-string-size ( script-string -- dim )
|
||||||
ssa>> ScriptString_pSize
|
ssa>> ScriptString_pSize
|
||||||
dup win32-error=0/f
|
dup win32-error=0/f
|
||||||
[ SIZE-cx ] [ SIZE-cy ] bi 2array ;
|
[ cx>> ] [ cy>> ] bi 2array ;
|
||||||
|
|
||||||
: dc-metrics ( dc -- metrics )
|
: dc-metrics ( dc -- metrics )
|
||||||
TEXTMETRICW <struct>
|
TEXTMETRICW <struct>
|
||||||
|
|
Loading…
Reference in New Issue