PaintPicture + gif

[Q2W]

Рисую PaintPictur'ом gif с прозрачностью, гиф рисуется, прозрачность белая.

Чё делать? Нада срочно!

[GSerg]

Искать контрол Тёмыча? Тока так.

[Q2W]

ЭЭ в поиске запрос "контрол Тёмыча"?

[Q2W]

Нажал "Найти все сообщения пользователя", получил:

Could not delete old search id sessions

DEBUG MODE

SQL Error : 1030 Got error 127 from table handler

DELETE FROM phpbb_search_results WHERE session_id NOT IN ('006e0d65d5042513ff81969e354bc38d', '00c0066da67115f8b70b833556a69ac4', '0175930fdc3307613144e7caf9e3f182', '04816e5b20d1d99ddee69ecee833aeaa', '0610bfb4459b1a2e0531948943de33ac', '07a45ebb772d92f59db005073d7c9cad', '08167625a303afc26e7d35cdb3891791', '099aae7c7f19ce150940507bd22b6f95', '0a1ec1f7766e17c5e55102514f9cd602', '0a9f3b87b33c4a33226f484ee3cf3a78', '0aa3b514d9eb660404543f0e96e15b75', '0d4b55e435367f8ea5730daf8b849800', '0dd4ace8da11a134db2bc8ecb67c57ad', '0f18be12f2d8f3375fe1b08c9f6631b9', '0f709c9ed075e9cbeb7eb92ba039ecd4', '103078ab2238f4ab5b28cbdc18445616', '10312d1c21c7afca712084fbbdbb8d51', '10f3376353b109e49bb36140d9317e15', '1159335e037b7d57ce0ec9838ab9d160', '144da0e183ee7ac65ba3d66e9b09940e', '179c60c0e74f8b45a9959f8515ffe860', '17e46836d5848f71408e1d5e22bfa1ba', '1817dcaaa1fcf171e5bf5057afa5227a', '1abccdc9da39e507ab2fa90161d53768', '1bc6a7671889efed4d5d3c8e7d55226b', '1c79037c8714a04c5ce6874c49424a75', '22d9eeb2fe5c8cdda12afcf28041341e', '23c0759d66b10bb9962ffb33e5c8b3c0', '27013eef99fdc2e33c78d356f3f68c26', '271ab29008e3e01dc25e6b10ded342ff', '2806ccb2b29afb89633d81ecac7f1ad4', '28bb421e19fe17eac81ba402a87ff46d', '2b5acb63cf830c7b4431208dc3b003a5', '2bee75000cc8a8e5e44cd09e22d4740e', '2c1a4bb0a0e72d4953e027ae3532d973', '2d860747fb5f1cf8fc09db1d56598299', '2e8a57efa41dc647751a7e5d419f3192', '30be91995cbc1d09d0c985e64fbbc38b', '310a1887b07f7caa99526cec1ea603a8', '33329ac4032d8b17024bbee940527dc0', '33a6ee5a0cc7445892b6727a827589f6', '359471465ebf3cb9c01462de77ea856e', '36ad718799ab5b53eb21e2316c427db3', '36bd7e6280a0506a58ba9a6d674b7283', '3744f626e8dd6333f2df9d678aa9c3cf', '37e933fa0d4bb9a1ee7309529a18e018', '37fa81b126d4ddf979f3ce6d7774b4b7', '3868f3fdbb5b0bd77cb1afbb89c5f826', '388de9005645e1a3e90ab85a61c3cba7', '3a016b764b14afa529c04bcb1fdc5573', '3ac90d3417fd3d40ee5611785709732f', '3b92769e325b01f0febafd6480cf34fa', '3dce580a91ab1b35fae4aa860deea493', '40625eb744737282aa1bae296e3940b1', '429e22323ca8590560c3538f5aa6ae91', '462096190097c08c38116d6f7a3e22f8', '476a31ba0d4bbed7422d00963fb7bb92', '487230c7c6dfc49cabd62ef033eb9f90', '4909631d7c5d658c723169bb64b48f84', '4a3dc403df0e6c71bc9c93f67f142e9e', '4b7296a386ab9a7ca44bf944e825cbd4', '4cd7d71be650521984e6259d457da6b7', '4ed227cbae58d6e13add4994ce7a57e8', '4fae513ae0c35dabc1193d7b6b4e4cdb', '4fe8782959d8d52a0b7fc384fee4a1e5', '50516be45dfc0aff8f65d92aaa4c72c6', '50a0ba0397a16b3c369b1bb5523cd52d', '50fbc71605d9ebb0a833ad3d0d0ef724', '54098b325853e2be9c8f70191eb3bccd', '54baa92a318f7c08c53205299903d7a9', '564264800e68ef36822b7246aff65512', '5769433cf3f3be7d3f4acaf1abda51b4', '57aaa9d8f1656cb52f16ff353d8387f0', '5947c222e5b763a5d3737c735a1160e7', '5a200fd24a26d80976a92da9b781d2a9', '5c851dc3d7517315e1fbd2ae5ef738ef', '5d0a8a43bd4e8ec61b828e945024d617', '5dea3b77a45b4a42b2fbd7ad10e4b188', '5e7a5c129503b259c53ab5be16d3bc1a', '608005f1383a89f11d5146e43a9ad1f3', '610ba56742de161ab7f3cc61a377372b', '62807d40f9f1ae1e7ecfc60d0391576c', '63329f0c5e7b2772f0031c64c0ed783b', '6562a3d41e35632607870828f809992d', '65aa742c7985cd620f244d795064a2a1', '6957d7d097c9b5ccb211eb39540e6541', '6b840e1f4a6561d6846e03ac1daea176', '6c80d77fa6af0783b91f9287bacae3a9', '6da22ac307f40505a773fd009f51177e', '6e7145cde4b0d2be9b28cebe94ba8d0d', '6ecef5c251e9953cf0da33aa6b952866', '72686d499427147dc1c58e19a99bc7f1', '72a35fa4cd29c28af2d5c234c09580db', '732bcb552739e7e45d2d4a5b1ec6592c', '74770b42ad2e39fef6a7e55f781f1c09', '76e47ca55a6579cef148dc5cc4f7cbc9', '78a656b9fd0ef83c16565bcc05c799b7', '79b649550f4ff513800b368b5fb08e40', '7ada25bdc35710b819a227b12130c435', '7b11dece48b1fe7192789d61748c7021', '7bb119b8e6c28b12d71335a74dff5280', '7c219d899810a53f27d1035ade69430d', '7c81f11d9c314a23a1db1b07b5cbe379', '7c8953f40b2cde41cd6e4ab6b0957319', '7cb4fcd3eb14a4a20d8225b79c3d76f9', '7dca33bbd85f16b9e2ca6eacbeba5df0', '814b773c28b2486c313c76b136e44d15', '81e05dbe9ff991420288def071711c27', '83149ec5eb753aef439b52d25357e888', '84920e4c7aefb95644b11d77ce2c3dfc', '84d6903894b4285fdc45689de3b6c2d0', '875fc886b48f11d74990095b36ae5e31', '89ed6360e7d61e5dfe40ec8ccacade40', '8b8251b84cf81550abf0cff43d4f484f', '8c37ca33bf2ceeb829837aaf97007af6', '8c49cb72c629b4ec97f85f84e7664d9d', '900d5a0a93b449e05257e99229ff0f7b', '9030e86329a5546fb57d6fd3d483bffd', '913820cdb2ed3cef0183690bb1796f75', '91d6d276f3eb8a6b8a530d823f255c05', '9236419d1b9121a05f3521a90147b002', '95fc5c0d8036a2e75f86eaab968da7d2', '96b647170f49958eec4d9b92be84777b', '985da4ddb8f097876e16ed47ee024245', '9a6ae5aa017f64f2df7ba24411af02e6', '9c221a464530b82b23641e5cf4b8ca94', '9e0e281480ecfa76883f5e03e68851fd', '9e6923ddcb0e0c01167522a5b1da33cc', '9f9f23996f2d2b5544f070bde92ff5b0', 'a0403649fce1f276e914473dc7e8d05f', 'a0a8f684557bf419af6022554e094951', 'a0ccb9628df978e03f54ea6d0919ce3c', 'a4698c568a86547d177bb91b66b529a6', 'a4e48e053562cc5ed66b9b87d208a90e', 'a67714cee7ba01b52a60b8f4a10bb0a3', 'a69e844ac3736e5b95e8325fba91a5d9', 'a761fe8bec1a534021df64b9377f0996', 'a76fa557c1fbe06693c868769911b495', 'a7a3e7ceba4e0f2074f90afb02d14732', 'a8e4025e6f1f5bd4cae781b583ad8168', 'ab41b9e4dc9acb4f5ac8dbbe533e6729', 'ac742656c548513cc4ad49cb7223808b', 'ad3199109bc75548c185526ad5af9ad8', 'adf78679521363770c824c456f2775e1', 'adfbdcec3b575fdce68ecf501d7521b1', 'af2335ac6590a512c0d5f4f541865915', 'afe11ae8ec16a595fb117be099e3193f', 'b016077c4ff0b72957b6ec5cc6faaa95', 'b12e7ee6e46bf712888de8742ef86c44', 'b2c45815f0029761087bcbb3e15e1c39', 'b3ead8ad8f26e93ba35eb54a8a280f04', 'b635ea9d78fa0b864093d012174e6140', 'b699c772ad8ff4a3eb537eaf90877dfe', 'b7c2d51eb92085a42cf99336af82a9c7', 'b7d32b0df89cb4bece4def8967443ad7', 'b7e8e1ad562a83d3c28c6b5cf8c6c5fa', 'b8be50fa4aca5469287076ac311254ff', 'b92dbb884fb6c101b6600dec68094c58', 'bb3d59914bf4f5f124e140406c6be67a', 'bd4d9ccfa333849a8e911c8e4b8cca15', 'bdaa85e7791aa38b67619a0be2617151', 'be221ebe75d0fde7785bf3081807be0d', 'c1ba20999754c82327c36bc84b31be8b', 'c3056dc012c4ece7eb4ea7b48b0f62b3', 'c5326ae1490bf94d0d08b043020ea8b8', 'c95303c68ff80611189cf5e883909e95', 'ca1561e63ed08e4853c75b87ea397c8b', 'ca5e426b2f9e4af4465c8e7fae5bfe6b', 'ca70f6e1def611a3124d3bec0ad20a95', 'cf2b5cc4d242cb2f7d084a8f9ed390b0', 'cfe39c1b977055bbb698b9f98dbe0796', 'cff7f0bf4dfbc617aee82b911b0ef0a4', 'd07a86e447088691121656a1b329dcf3', 'd0950c83f6576b5e8068fbbd2611cf5c', 'd095b1c783d25d428132a735314f6cdf', 'd215ada42b129105ef90ddd76f2aed27', 'd4255ebcb20f3112a006a2999fc0eece', 'd46cde05b2322babc4e8e8a6dcec7b2e', 'd52068e7d1f7e6f0e11a1a77fb7e82c3', 'd621358dd70261cf41df48d1391754a6', 'd687c25e7d224174b7709d0485c9b591', 'd7cdaeb3a93e38b69828e47a8418ea95', 'd880929e1d162d994c748f7f744d4e9c', 'd89d8d0dfd018a055e3c1284ff144534', 'db47e47587deaa997d88194a33d28f15', 'dc92a9bef2c0d6245da8cf961b4f372e', 'de92d3977cc4ea189d4b8fb47c671ca4', 'e0bff0fa2c74c291307395452b6326bf', 'e1faad3176ddd24bf399d60d648a2fe6', 'e2a053cbcc404e4f9c27fee88291d8e8', 'e33b54d834b9be594a053c6f293b7072', 'e3e225c725c0c719d5819c12465682d8', 'e4747517439166f8cb3c9d2c1fce02f0', 'e4bb6532b9af20f32ca29c5a3d650725', 'e540fa411901ff11d66bb3ec7b954575', 'e7c1c8afba92edb1ccd7738bf176a1cc', 'e84dff988ab9d8bb46fd6219d4a97452', 'e8d4e46267807d906fb880cf1c7cb1ac', 'e9bb041a3e075f2ea6ec1fb55b145a00', 'ee56eb1bdc434e5f9ef384d0f2d0f47c', 'ee9c488d6e563015b8e6363b3b93e4f5', 'ef60a8a92fdef920bb1b2e737445bc31', 'f0005403095367c32e382f1d91abdbed', 'f1dc02b31f31cf9ec844331ffff96c93', 'f3b90afa47b58507627db37efe542fc3', 'f6896fc30176c2553e3364ce53af655e', 'f6999440cb83f197078d08b1f13c1adf', 'f7745412871d6c0337ae5c7ed8bb2119', 'f976c69975e9254422bbc3d9e5af4f92', 'f9a06c340f1253e3742e88b449556e89', 'fab3e29b00e9445f3c70d3a9f0a1cb87', 'fad428e69660d3c14ec17c65f5fd9229', 'fbdd595158d879f1507f1e2eaf808cb1', 'fbe3b3d3a2c6be0377533c92d74ce69d', 'fdb7933fe558fa316fbb18fdfdaaceaa', 'fded6850f8a7a141b6f216b1b62bfe95', 'fe229b37e8013678310b90a0a555f35b')

Line : 633
File : search.php

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=10559&start=30

[Q2W]

Мне не контрол нужен.
Мне надо нарисовать прозрачный гиф на PictureBox'е.
Кода с использованием этого PictureBox'а написано уже много, так что менять его на другой контрол слишком геморройно.

[bevaine2000]

этот контрол какраз и делает gif прозрацным, ну и анимирует заодно:)

[tyomitch]

Мне не контрол нужен.
Мне надо нарисовать прозрачный гиф на PictureBox'е.
Кода с использованием этого PictureBox'а написано уже много, так что менять его на другой контрол слишком геморройно.

Сделанный наспех из контрола PaintPicture-с-сохранением-прозрачности выложен на http://users.isnet.ru/tyomitch/PaintGIF.zip (на форум уже боюсь выкладывать - падает через день).
Скорость отдана в жертву максимальной универсальности. Кому слишком медленно, тот пусть переделывает под свои конкретные нужды сам

[Q2W]

А как в твоём модуле сделать чтоб файлик один раз грузился отдельно, а рисовался уже из памяти?

[Q2W]

А вообще было бы гораздо замечательней, если бы мне кто-нить объяснил как рисовать картинку, не обязательно гиф, в котором какой-то определённый цвет обозначает прозрачность.
При этом не обязательно геморроиться с форматом гиф.
Я конечно могу сразу подумать так:

Код: Выделить всё

Dim curColor as Long
For q=0 to picSource.Width-1     ' Обходим рисунок, который
    For w=0 to picSource.Height-1' будем рисовать
        curColor=picSource.point(q,w) ' Берём цвет текущего пикселя
        if curColor<>transColor Then picDestanation.pset(q,w),curColor
            ' Если это не цвет прозрачности, рисуем пиксель на другой картинке
    next w
next q

Но сами понимаете это очень и очень медленно.

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=72122#72122

[Q2W]

GSerg, а как пользоваться твоей фунцией TransparentBlt?
В ней стока дофига параметров.

[AjaxVS]

>> curColor=picSource.point(q,w) ' Берём цвет текущего пикселя
Зря... GetPixel быстрее...

2 Q2W
У самого такое было... После этого порылся по своему винту, нашел СBuilder 6, в нем есть прога ImageEditor - после этого проблемы отпали... Все gif-ы после него рисуються правильно...

А контрол tyomicha подозреваю, хорош... Буду юзать, если закачаю +_+

[Q2W]

AjaxVS, если я правильно понимаю, после юзанья ImageEditor'а, входящего в пакет CBuilder6, на гиф, он рисуется PaintPicture'ом с нормальной прозрачностью.

Если это так, поделись ImageEditor'ом, срочно надо.
Или объясни разницу в обычном гифе и гифе, который на выходе из этой проги. Сделаю в Adobe ImageReady такие гифы.

[GSerg]

GSerg, а как пользоваться твоей фунцией TransparentBlt?
В ней стока дофига параметров.

Ровно столько, сколько нужно. См. хэлп по BitBlt.

[tyomitch]

А как в твоём модуле сделать чтоб файлик один раз грузился отдельно, а рисовался уже из памяти?

Обновил файл по ссылке.
А ты ещё не расстался с желанием юзать GIF-ы?
Есть такое наблюдение - как только я сделаю очередную смотрелку GIF-ов, она оказывается уже никому не нужна

[Q2W]

Тока что заметил, прозрачность твоим кодом тоже белая.
И медленная. Мож у меня гифы кривые?
Вапще я думаю должна быть какаянить апи функция, т.к. винда же в каждом приложении не использует отдельную копию кода, рисующего прозрачный гиф. Она и быстрой должна быть по определению.

Твой пример мне показывает формат файла гиф, а это очень полезная инфа, особенно при наличии кода.

[tyomitch]

Тока что заметил, прозрачность твоим кодом тоже белая.

1. С моим файлом тоже белая? Не может же она мой файл по-разному у меня и у тебя рисовать.
2. А ты хоть правильно смотришь? У меня картинка рисуется два раза - один раз с белым фоном, один раз с прозрачным.

И медленная. Мож у меня гифы кривые?

Медленная - это так задумано. Если работает, тогда можно убыстрять, иначе это пустая потеря времени.

Вапще я думаю должна быть какаянить апи функция, т.к. винда же в каждом приложении не использует отдельную копию кода, рисующего прозрачный гиф. Она и быстрой должна быть по определению.

В GDI+ - есть. В Win2000 и ниже - по умолчанию нету.

Твой пример мне показывает формат файла гиф, а это очень полезная инфа, особенно при наличии кода.

Скажи спасибо BP

[Q2W]

Тока что заметил, прозрачность твоим кодом тоже белая.

1. С моим файлом тоже белая? Не может же она мой файл по-разному у меня и у тебя рисовать.
2. А ты хоть правильно смотришь? У меня картинка рисуется два раза - один раз с белым фоном, один раз с прозрачным.

Твой гиф рисуется нормально. Я в Adobe Image Ready пробовал и такой гиф и сякой - одна фигня.

Вапще я думаю должна быть какаянить апи функция, т.к. винда же в каждом приложении не использует отдельную копию кода, рисующего прозрачный гиф. Она и быстрой должна быть по определению.

В GDI+ - есть. В Win2000 и ниже - по умолчанию нету.

Как сие реализовать. Мне нада тока WinXP.

[tyomitch]

Тока что заметил, прозрачность твоим кодом тоже белая.

1. С моим файлом тоже белая? Не может же она мой файл по-разному у меня и у тебя рисовать.
2. А ты хоть правильно смотришь? У меня картинка рисуется два раза - один раз с белым фоном, один раз с прозрачным.

Твой гиф рисуется нормально. Я в Adobe Image Ready пробовал и такой гиф и сякой - одна фигня.

Дай свой странный GIF мне - посмотрю, что там не так.

Вапще я думаю должна быть какаянить апи функция, т.к. винда же в каждом приложении не использует отдельную копию кода, рисующего прозрачный гиф. Она и быстрой должна быть по определению.

В GDI+ - есть. В Win2000 и ниже - по умолчанию нету.

Как сие реализовать. Мне нада тока WinXP.

Шаг 1: найти мою обёртку для GDI+ на этом форуме
Шаг 2: подключить её к проекту
Шаг 3: написать в нужном месте

Код: Выделить всё

CreateGraphics(Picture1.hDC).DrawImage CreateImage("sample.gif"), 0, 0