--- Добавлено в 2016-11-14 21:38:19
Оказывается можно и вот так, без сохранения на диск.
Можно внедрить картинку сразу в HTML...
Add(MainForm,1350592,280,196)
{
Width=1003
Height=322
Caption="Библиотека 7 школа"
BorderStyle=1
Position=1
link(onCreate,1412200:doEnum,[])
}
Add(Button,3908359,273,280)
{
Left=20
Top=250
Width=95
Caption="Сохранить"
link(onClick,4648286:doExecute,[])
}
Add(ArrayEnum,1412200,371,210)
{
link(onItem,9459787:doMTString,[])
link(onEndEnum,15435863:doColAction,[(424,223)(424,244)])
link(Array,5483496:Array,[])
}
Add(StrList,5483496,357,140)
{
Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
Point(doInsert)
}
Add(MTStrTbl,11546581,497,154)
{
Left=15
Top=15
Width=450
Height=215
Name="tab"
Columns=#7:Учебник|15:Номер в журнале|6:Ученик|4:Дата|0:|0:|0:|
Grid=0
}
Add(MST_RowAction,11319082,497,196)
{
MSTControl="tab"
}
Add(MT_String,9459787,441,196)
{
link(onResult,11319082:doRowAction,[])
}
Add(MST_ColAction,15435863,497,238)
{
Action=9
MSTControl="tab"
}
Add(MST_HTML,12336260,329,378)
{
TitleText="Библиотека 7-й школы"
TitleFont=[MS Sans Serif,10,1,0,1]
HeadFont=[MS Sans Serif,10,1,0,1]
NoteText="""
MSTControl="tab"
Point(HTMLTab)
link(onTabToHTML,8924692:doString,[])
}
Add(MST_Save,16413624,497,280)
{
FileName="mycsv.csv"
SaveColProp=1
MSTControl="tab"
}
Add(Button,5902944,385,420)
{
Left=405
Top=250
Caption="Печать"
link(onClick,11234646:doPreview,[(481,426)(481,398)])
}
Add(Button,6853432,245,378)
{
Left=325
Top=250
Width=70
Caption="Просмотр"
link(onClick,12336260:doTabToHTML,[])
}
Add(WebBrowser,11234646,497,350)
{
Left=475
Top=15
Width=500
Height=215
Point(doFromText)
Point(doPrint)
Point(doPreview)
}
Add(SDialog,4648286,350,280)
{
Filter="Файлы Excel|*.csv"
link(onExecute,16413624:doSave,[])
}
Add(FormatStr,8924692,378,378)
{
Mask="<CENTER>\r\n<img src="data:image/png;base64,\r\niVBORw0KGgoAAAANSUhEUgAAAGwAAABsCAYAAACPZlfNAAAYpklEQVR42u2deXRc1X3HP2+ZfUYa\r\n7ZstyQtehGVsCxswKYSEkAAlNJg2wYEmPTQ0PqQpKVACJmUJTgIpoUBjmoUAhSZtgxPSBJJwCjSk\r\nELwIjHdZXmRbli1ZspbRrO/Nu/1jFo1mkWZGe9Cd845m0X3v3fu9v+17f/c+SQjBbJk5RZ7tglnA\r\nZsssYLNlFrBZwGbLLGCzZRawWcCmV7EAbsA6C9j0LwogvnjVRwujn1VAmgVs+hUpCo68psD0rZ1v\r\nv9m2psD0jVs+cZk79v0fE2DSDKemZED56Nyy5X093bfMWzL/lgXnLqTtwFEO7Wt9yWy2PPWH3sAb\r\ngAGEZwGbBmA12aXPyrL8zPKLzuOcZQ1oQbDYVQ7t3c/O/2smHA7/bbNPfD8Kmj4L2NSoQAWQmuzS\r\n3Va79YGLPnYxFXPqOLBzH6dOHKO6tp5Fy5fQ1dHO1tfexufxfqvZJ+5LkLQZPUpnnL3653vutDTZ\r\npW+XVJY+8NFPXUFJWRU7freVA3vepayuhH27dtD8u20UlVVxyTWXU1JV9tXzHfLj6y9aVT7TnZGZ\r\nJGESYLq8tvyC/t6eL85bVL/+vIua8Hl13v39NnyhHq664S+orK7iZNthfrvlVzisZay4+HxMVoXd\r\n25ppbz3xG4fT9d03Os6+GlWPxixgE6gGLyg03yyM8L8uv3A5CxqW0nGsk5a9uzHZJD752c/icNgI\r\nawEAvINeXv7pz9H8goUNyyitKeXYgYPs374bSVa+srU/tHkmgjYTAJMBucku3W932jaef+lqyqpq\r\naNl5kKNH9rOk6Vwuu/paJCOEoQdxFrgZHOgDIBwO8+Zrr9PSfIDa+Yupb5hP96kOdv/hPQLewLeb\r\nfWJj1KYZs4CNj1TJN158vrNl13vfLCkr2tB0yRpUs433//A+XV3H+Nj117JizVp0bRBEmNp551C/\r\nYDGnO47Tun8P4XDEKdzz3i5e+/krlJXVsuT8ZQSCXna//S6DvZ4fllZU3v9K64muqLSJWcDG4LJ/\r\nqMx5qRYKfnnugpprGlevxNPvZ+fb7xJikPUbvkhNXT3h0CCKqnDOkkaq5tSimkzomsaZztO07t+F\r\n3zsIQEf7Kf7rh89illwsXd2I1WmhZeceuo53vqEo6mNvdXt/PRM8yOkImAwoFxVZN+i69njj6gbq\r\nFi3g5NEuWlv2U1jq5MZbb8PhtKMFPTidLhYuXkZRaQmyrMRPYhhh+nt7OXroAGe7z0TsmtfLf3z/\r\nRwz0eJi/uIGSmhLaD7dx+P0WQLpj24D2xHRXkdMNMAWQ1rjUh8xW012rLl5BYXEpB3cfor39KOd/\r\neC1XXb8eRZbQggOUVlRSO28hDqcLSUr11IUQeAc9nD55nFMnjmMIA4TMK794iZ1vbqWqZh61S+fR\r\n193F/u170ILad7Z7wndFATNmARsFrOtXNZQfP9T6YFFp4V+vuOg8hFDYs2Mf/YNnuO6vPsfqD12G\r\nMHQMzUtFzVwqqmqw2myjnjjg93O2u4uTx4+i6SEkZN7d2sxLz72Au6CChSsWo+tBDuzYg9/je7a4\r\nvPLrL7ccOzYd6azpAJgEyBcVWa8QwvjKnHlVH1uyYgl9PT72Ne9DWDT+5qsbqZ2/EBHWkAhRVTOX\r\n4tIyVJMp64vomkZf71k6O07g93kBiZMnTvO9h7+FrFlYsHwRzkIbbfsP0n64A9Vk/rN3+oIvTze7\r\nNtWAyVEV+BUkvt3YtJiqurkcP9TBiRPHKKoq5dZ7HqDAXYShB7CYoLSymsJCN5KcO0ljGGE8/f2c\r\n7T7DQN9ZhASBgMETX7+P/s4+Mae2Tpozr5Se9pPs2XkUIaR/2DqgPTadVORUAiYD0mqX8ojVZvn7\r\nFRc0YHcVcnD3Ec6c6eDCj1/ODbf8LaqqEtZ82K0qRaVl2B3OtPYq2xKxa4N4+nvp6+1BGGGQHTz/\r\n/e/y7hu/p6y0kmWNc9B8HrZtbcXn15/c2q/dFtUE4Q8iYBIgXVZTUuMbHLivqKTw5mWrFhHSJfa9\r\n14o/1M9nbv0SH7nqWiQkDM2LzW7GXVSMxTp+E8nBQICBvl4GPf1oIQ3V4uR/Xn6ZLT/4Pk6rm6am\r\nOmwmgx3NR+ns9j5jsdg2/e50X1tU0sQHCTB5tUu9Rhjhl+rPmcP8pfPo6Rygde8RTA748kOP0LB8\r\nFQgDYfiwWkwUFLpzsle52LWBgX783kG0UBBZtdGy/xBP3HsnRkDlvBW1VJbaaGlpZ+/+U8iq+ult\r\n/dqLUcDEtAKsyT5hhPadJpP6yNLzFlBSWUpbawddnaeN8rpq+e5/2kxxaVmkJ3QPFouJgoLCjPaq\r\n+/Qpdr79e1p2v0cwEKCj7QiSLFNVW4/NbmdR40pWrv0TissrMqtIw2BgoJ+g308wGEBRLZw96+fh\r\nf7iVsx1njNo5lfLihSV0nT7L9uZjhLTw3c0+8chU2bTJBqzR4bTtali1EIvFRsueNjyeHi74+BXc\r\nunETFrMZYYQJ6x6sVnNGe3V43x5e+clznD7VSWn9uZTMXYjJbMVVWoUQAk/3KfRQgJ4TrZxp28uc\r\n2rlcdcPnqF+0ZES7FvD7COsakqSiYWXzQ/fS/Mb/UlJUyorGKkIBP9t2HKN/IPAd4PaJBKbZJ6YF\r\nYF+at7juyeLSQg7ubsMQXuNTG/5O/ovPfwFFUTDCOnqwF4fDhtmSaq/Cus7Pnvkee3fvo2bpGmoW\r\nr8RkMmEymVBVFVVVkSQJIQRCCDRNIxgMcmzvNk7seYeVq1fxyZtuRs4gscFAgEHPAAgByCiWIn78\r\nw6f41Y++J0yqU1q5vBqHTeb1Nw/h94fKgTN/7IAphUVFut/nxeGSfV+4/1H7h6+4IuJchEPogV4c\r\nBS5UVU2p6Bv08Ox3vonPsLHkQ9dgs9mwWCzYbDasVitWqxWz2RwHwzAMNE0jEAjg8/no7+vj/ddf\r\nxCYF+Kvb78Fqt2e0a56BfoRhIEkKJlsxr/3mtzyz6e6gfxDLnLklDPrl73aebP/SB0HCqKyy3KZr\r\nwU/8+V2PXXzV1Vc6VVUlrPsR4UGcTldaexXWdZ566F40UzFL1l6J3W7H4XBQUFCA0+nEZrPFpSym\r\nQg3DQNf1OGher5e+vj62vvITlNBZ/mbjgxklTRgGnoF+dE0DScJsK+GXv/wNLz5yx5t6WLnw6htu\r\nWgy05dLuHz/17LgApo4HCBWlOcRBWvBJBZ602J29AtA0L4oUxFEQSSdMd5svPfcDAjg4d+2VOBwO\r\nCgsLKS4uprCwEKvViqqqyLIcByumEsPhMGazOf67LMtcePV63vrFs/z3809z7ee+kMGPlXEWuvF7\r\nBwn4/QR93dichagSH1PV8Kduf/SZY7n0z3gO/nHJ6ejsjhxZlnA8AJUkrCaB3e4ccpSTjuOHDvL+\r\nuztZ8qFrcDgcFBUVUV5eTklJCS6XK64KYzYsdiiKgiRJhMNhDMNAkiRMJhMul4uL/vRG3vrty3S0\r\nHcl4XQkJu8OFw1mQOIpCwH9m69I32aVx11TjmoSTLXDrH3waSZJFYVExZouFjL2G4JfP/4iapWuw\r\n2Ww4nU5KSkpwu93Y7fZhwMiyTGVlZRykYDCI3+8nHI6MDVVVMZlMWCwWnK4CVn38Bl75yb+NeG0Q\r\nWKwWCtxuJElm/YNPM1VAjatKTAfcPc+/OKp2VFQTejDzP7QfPUzXmbOsvewCHA4HbrebgoICrFYr\r\niqLEbVCiZxgIBAgGg3GgIhpORgiBqqoYhoHZbKbhwsv5+ROv0dl+goo5c0fuJJMJmyuism9+7MVJ\r\nUX2TChjAppuu594XtozpHLu2vkVpfQMmkwmn0xm3WclgxewWQCAQwDCGYtrY7zEbpigKqqpiNpup\r\nO3c1O9/5PR+/fv3oAWtCPPizn/0s5feHblw3KblzE5qX+OBn12VBxmY+juzfR0nNfKxWa9wbzARW\r\nMBiMe4fpOjumNmOgKYpCZf1ijrYcGPEeYsdY2zkjAAO4f9TGZLYfXR0ncZVUYrVah4EVAyARLL/f\r\nP6qEJB6yLOMuq+bMqZOj2rGRfIz7JxGsSQEM4B/X59co3+AAVrsTi8WCyWQa5rrHwNJ1nUAgkB0P\r\nlwSazVnAYH//pLdr2gMGsPGGdTnK15DDkBgQJ3OAwWAwrRrMmkzNU74ytWfGOh3pyt2fWcc3/yN7\r\nR8TmcKKHAnHJinmCsaJpGro+tCBlYGCA6urqEc952WWXsXnz5gjYfh9WhzOvdshTlJ2vTvYF7/rM\r\nOh5OBG0EE1FVOx9Pz2lYuCgOViJomqYNk66Ojo6M1zUMg3A4HCeEDcOg70wHFXPqc5rZuusz66Z0\r\nBcmUXPvOT6/LSikubGyiu/1QXJJirIUQIk7uZkWHJQAdAy4cDtN57CALGs7LWikOv++ZAdjmLFs3\r\n6hHwegtHs2ErL/4Ip1t3EQqFCIVC6LoeB07X9axsVyJYMaBi9Y/v28GKtR/O7oYjUj0ebd88WSpx\r\nhd1h2bBsZV12hGHYIKwbaJqOpoXRo381TSesGyiqPLpKnDsXt7uQQzvfpvDSK7FYLPEYStf1uGrM\r\nlJSTTqpiDH7bvmZcLifVdfUEfb1ZtWl5rR1VlTGZFMym4X9VVUZRRjds23Z2bRjwhJ4Ftk20hG0o\r\nr3KPm2hnIx1ayMu6W27n4I7/xev1xmmnUCgUt0MxQJJtXOJviUDFpLVl2+v86Y0b0EO+cbvfbMqc\r\nSgfALROtEp2KIt9SUuaaAK2cWXsYepCF557HvAULeeu/n8Pr9eL3+/H7/SkqMmbf0klTDKhgMEgw\r\nGOQPv/w3auvrWbpqDWE9MKbAOddSWW5HVeWbgcKJBOymkvICFGX8fBQhRFbdFPCd5abbH8Tfc5J3\r\nfv2feL3eFGmLOSUxcJKlKRgMEggECAQCbPvtfxEa6GL9bfcR9PVmb3zGKbtMliWqK+wAn59IG7bh\r\ninXXYbGahoQCMTTuoo0RCe91LYQWDEaykfx+gj4fAb+fUCCAFghGZpazGMDhkB+zRWPDA0/y3a/d\r\nyps/f4aLP/mX8UnJxMnJRLoqJm2J4L3z8gsE+06z4f4nQQ9krQ5j55xTXYXJYsFis2K127DYbNG/\r\nVkwWS9apePNXhfnBE8/fCjw+UYA99cK//GgD0JiLojNENMdZQFgM/3xJIJT1TfoHz1DgruaOR5/j\r\nuUfv5Vc/2MTSCy6nrqEpPieWDrCYWjz8/ju0bH+duXX1bHj4aRQZvP0dOWuEV945jCxFl4RKoEgM\r\n+5xtLF1aXYPF7ng6HwnLKadj4wtbxLXXfIKApz2ni+hakIDPg987gN/bT8A/yIFTVq795NUEBtoR\r\nYnSDLskqjoJKZMXMvua3+cUzTxDUDaoXNlKzcBkFJZVYbJHEmoBvkIHu05w8tIeTrbtw2Cz82c23\r\nsfi8NYT1ID7P6UiKdg7l1d/tZUmlF4vNid3pxuYowGp3oZosOXf6a/+3H10Pu4GMROZ11103Nrd+\r\nY+LcVq76PM18hcjR6xKGjre/A5uzjIamtTQ0raV1dzP7mt9iz+s/5cypE/HVlg5XIWXVc1my8kKu\r\nuOY+5i1dHvc6A4NdedmjiJcY1d+5zL1MFjW1cYyTj9momNHisNQ6Br6BTlSzHau9mHMamzinsYlr\r\nP//lkWNCPUTQ24Ou+cd+v1Nc1Km6sGHk3wF6yMdgyIdqsqKa7SgmO7KiIklyHFgjrKGH/OiaL74V\r\nxETHjdMWsFxHW3JQG6kf8yxFor+ZU9E0P5rmB3ompbMiGlCkJaJzjz1nEPk7VgmbmvudwRI2rh0w\r\nZQt3PsAqcek3zuAJZO71tq8VDlchQsRd+bGoxMksItHDTTiWbOrC48886tq/XjE9JWzBpcuRVSXt\r\nb64SmYDvvWnpdY3ZbgvB/EsaU9sepd7sbjO+vmNTB1g+GiwdNxe3YQknXPnoAJ5g5rMfuieVL52s\r\nOoZhZKaEE50PMfb+Gl8JyzdYFMNvPRO7MZKkustl+roOTUmdiEokzqMOIwEESGK4ZA2hNb7B9dQ5\r\nHSJ3t15AzvYu6zpxARFp60QkSEpbb8g2J345Mb5Unk4HeQtm7JgWXpeIApNFeyITokp6VkpEme0E\r\nAUwcBSn9JSZdwoZfce9XS3C4VZDkjJRSsvYXhsh9fnAsBjTZITAEQhbDRmBK1kaKWy+ntGPvxjIc\r\nbmvGto8ZoYmSsMHe45mpJC2Yhv818sJA5DGuRIZGDFdjpIKXwtakz7sfqe3TJHAWY/j/6PS/YaQM\r\n5+a/d+Iuk0fY6SYV3rzq3O7CXTbEPWZTZ0iFiwn0ASdKwsZBK6Vz6wH6ug7nfD+TUSfRrR9Bc05T\r\nCUvSiY0P944c19ztSNEjsRE7Q5ipIY2Q1I5lD3TiCRjD1W9C/xz/VtXUApapg0eKawrLJfxtzUlJ\r\nLTNrB/KMSUOGwZwLz43vhpqc5+IsceHpOTKVgXOeIpHU0iGqZ+iE5z/mjUiqSEcZCFruKUg57fn/\r\n5EmQ7oT4J/rVwa+lshZND/cN1UnTloP3FWXgEtPTNsIQCEkMi+UmSm+q+fR8PmStSAiRBRBOx9YL\r\nwfw/SeDlYqxB9PfiCoWzpw+mAFl38TJkRRm6kkisY05TB2ovXIakKsOuHbtUcYUtpU7Ehg0F1Ymt\r\niQOWFIAPZZdNNdOR7/UT6omEQDOZkxOGSAtYRnc7PsKTg9f0LnrcpTcSot8kgRPpbFjyjwnaQhjJ\r\nEiuS4+ep9BJF3vIVf6WzYYnqJZneEZkdoLR1ROZK8Q6W0gGWuQ4p8hUBXRhJUpSUtzntJGznHYUU\r\nlCoZ4xohjBS9PzyuEaN3vsgw9gWIsEBIaTy1TGjHATMyi1S6OCyN/dr1QCUFpe4RYrppKmH93UdG\r\nZjqSXkaarCkhRLTzRZI6FBk7VhgRaRVhKdWtzgRGdMDIkpT0P5l175CXmPoaqe3TJA4bm4cYV31J\r\nNmz7HQUUV1gybmiZzuHa8VU3xRWO3OrcU0xxRUFOdTJJ2GQHkXnGYSJniUyRsAxs/dnO1pwbMRl1\r\nhrzE1Nf0ZjrSjKpV3/GMyHTsv8OSxrMypoyPyzdwTuchLr+nI8J0ZFA+bY/OmWqVmH5UjcR0lFRD\r\n++Gtw8akkc/0CrBrTyttxzvybnB9bTXLl52TFzWV3k8UVKxaiiQradg7gbu8jN6u1nHzQSYvDsvA\r\ndOQqX8dOdvLFL92Rd4O/t/kxGvMALDPTEYvBRGbKdSbHYcOnV3IrkiSBEfEGB7sP5NVgRTXnTf6m\r\ntV9GQkyXAZyZyXRk5BJzBE1RxtRgWc6v/mhc4lAWzrSMw8aMV+rynSzLvLq5fPrDK3E63UOxXEI5\r\nNeBnQV0tvt7UDa8HPb3cdOd9eSWlZExzSwRt4vEan/mw7X9np7hCRsqwn4+IcXYJrczXhq1obEDq\r\n2IOrdlEE9KSZ5v0nu3EvrEIJdKXcc8exA8ydX4/I4/nbidRUYvrazm9WU1xROfLDe6YyzS1TB/eM\r\nENdEmI7xXeTttJkxRGrimdkkYzebwGYZ11E+0iL6njziwMmVsHGgOsaa5lZf7Ex7G7utFmqLXQT9\r\nqZt+tSiwoKqCgd6TeanE6UB15BU457NiNmV2fYwNNWeI+RRFQlVkhEkZ/95KNLlTs2J26jJ/h4x0\r\nLqNUGr9ez0vCpr7kx3TkvAIzeeViQl5ijqNUjAdceWUuJ+YlJrZjckVsylZg/tEsN5r+EjY+xZgF\r\nLKWsW7du1Oupo1XesmXLmG9+mDpkaBXmTAMs0zHeYI1JJWZ7olHdhdhe80T2+JlZcI2z35PUv7n0\r\nsZoL+umkLae2ShJIEpIkJ+yEM9HLV8bHdYk9cEciuo26LE+aVOVrwyTyZCliHhVICZufTMgCxUjn\r\n+j3jGkfGzYAkRZcVScO8xXyK1+uVEuQ165Nk3BwsuhokdlIZkLZs2RK66srL6Wrfl9PNhcM6oYCP\r\noH+QgM/D/rYOHIXnMNPK0SOHuaSpAqvNiSV6KEruftt7+06zffuO8k2bNvUnqI1EKiV3pyMBKDNg\r\nAcb0XF5JlpEVNZ6he/mlq4hn6aZTVcl7Mg7PYRv+fZpzjJabmIMej4qBxNEjh1EUNdqOsTnY27dv\r\nd0f7N0zkuWQhQGOU50SPdlUFsAEFgK2jo+PIv//4p/PHOlJDQTMdp44yfEmpGO6BioRUhNj7+BLX\r\nofXRwwBM833y+XP1MBIf/QHw/uEgEGQs2yX5/f4jr776qh2wRkEaBDxRsAyGHliRk0qUolLlBFyA\r\nPQpwNtZWjv6vLXrIiTfw7A+/8WtNlI1q5ONTMAl/E+1GbI4qtnwp/j7R7U7zffL74WHH0CYqIj5Y\r\nhh4d/Pjjj1+ZpIXCQADwRd/nwmEZSYD5o58RGYAZDbBklShn6dwq0cMePRRmsCc/itnQox3tjQKQ\r\n7c6Zsf5IqxIz4pKL05FDFJIItmkqKbDJIG2iHR0azf6MEqtk5XSMBthYQsZEsP/YizHGIFFkyyZJ\r\nM42E/aAXebYLZgGbLbOAzZZY+X8FVcK/VHT6ogAAAABJRU5ErkJggg==">\r\n</CENTER>\r\n<CENTER>\r\n%1\r\n</CENTER>"
link(onFString,11234646:doFromText,[])
}
Редактировалось 1 раз(а), последний 2016-11-14 21:38:19



Поиск
Друзья
Администрация