| |
|
|
| Manchmal möchte man nur mal fix den Inhalt eines Speicherbereiches
darstellen:
createHexViewWindow(long m,sz){
long b
string html,tmp="<div style='float:left;width:30px;height:30px;text-align:right;padding-right:7px;padding-top:8px;font-family:Arial;font-size:12px;border:1px solid #DDD' "
whileLoop 0,sz-1 {
b=byte(m,loop)
html=html+tmp+"title='"+str$(loop)+"="+str$(b)+"'>"+hex$(b)+"</div>"
}
long h=create("htmlWin",%hWnd,"mshtml:<body style='padding:0;margin:0'>"+html+"</body>",5,maxx-300,50,290,290)
setText h,"Speicherausgabe"
setStyle h,349118464
setStyle h,1,256
setParent(h,desktop)
}
Demo:
{$cleq}
cls
declare mem#
dim mem#,16
byte mem#,0=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
createHexViewWindow(mem#,16)
waitinput
end
Ausgabe:
|
|
|
| |
|
|