HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0727
さかリッチエディット 上余白設定2解決


さか

リンク

2019/7/27(Sat) 10:53:25|NO.87956

リッチエディットで上余白の設定はどうしたら良いでしょうか。
よろしくお願いします。


#include "kernel32.as" #define WS_CHILD 0x40000000 ; 子ウインドウ.WS_POPUPとは併用できない #define WS_VISIBLE 0x10000000 ; 初期状態で表示される #define WS_HSCROLL 0x00100000 ; 水平スクロールバーを持つ #define WS_VSCROLL 0x00200000 ; 垂直スクロールバーを持つ #define ES_MULTILINE 0x0004 ; 複数行のエディットコントロール #define ES_AUTOVSCROLL 0x0040 ; テキストを自動的に縦向きにスクロール #define ES_AUTOHSCROLL 0x0080 ; テキストを自動的に横向きにスクロール #define ES_DISABLENOSCROLL 0x00002000 ; スクロールバーが必要ない場合にも、無効状態で表示する。 #define ES_NOHIDESEL 0x0100 ; コントロールがフォーカス持っていない場合も反転表示 #define EM_SETSEL 0x00000B1 #define EM_REPLACESEL 0x0000C2 line 0, 0, ginfo_winx, 0 ; リッチエディット2.0配置 LoadLibrary "RICHED20.DLL" style = WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL | ES_MULTILINE | ES_AUTOVSCROLL | ES_AUTOHSCROLL | ES_DISABLENOSCROLL | ES_NOHIDESEL pos 0, 1: winobj "RichEdit20A","",0,style, ginfo_winx, ginfo_winy hRich = objinfo_hwnd( stat ) ; それぞれに文字を表示 s1="12345あいうえお" sendmsg hRich, EM_REPLACESEL, 1, varptr(s1)



この記事に返信する


さか

リンク

2019/7/27(Sat) 11:20:46|NO.87957

すみません、自己解決しました。

; 余白マージン取得
dim yohaku, 4
sendmsg hRich, $00B2/*EM_GETRECT*/, 0, varptr( yohaku )
yohaku.1 = 50
sendmsg hRich, $00B3/*EM_SETRECT*/, 0, varptr( yohaku )



さか

リンク

2019/7/27(Sat) 11:21:07|NO.87958

解決



ONION software Copyright 1997-2021(c) All rights reserved.