1. Я хулиганством не занимаюсь. Поэтому для начала удостоверюсь, что эта стена принадлежит мне или её владелец не против, что на ней что-либо рисовали :)
2. Проверю, мой ли баллончик с краской :) Если в моих руках оказался чужой баллончик, постараюсь отдать владельцу :)
3. Если же баллончик - мой и на стене писать можно, напишу что-то вроде следующего:
#PB_Function = 7
;{ Преобразователь ANSI в Юникод.
CompilerIf Defined(Ansi2Uni, #PB_Function) = 0
Procedure Ansi2Uni(st$)
Protected blen
Protected wbuf
blen = (Len(st$)*2)+2
wbuf = AllocateMemory(blen)
MultiByteToWideChar_(#CP_ACP, 0, st$, -1, wbuf, blen)
ProcedureReturn wbuf
EndProcedure
CompilerEndIf
;}
;{ Константы для прогресс-диалога.
#CLSCTX_INPROC_SERVER = 1
#PROGDLG_NORMAL = 0
#PROGDLG_AUTOTIME = 2
#PDTIMER_RESET = 1
#IDA_COPY_ANIMATION = 160
;}
Define ProgressLimit = 100
Define hr
Define ProgressDialog.IProgressDialog
Define *Title
Define hShell
Define *Line1
Define dwCompleted
Define *Line2
CoInitialize_(0)
hr = CoCreateInstance_(?CLSID_ProgressDialog, #Null, #CLSCTX_INPROC_SERVER, ?IID_IProgressDialog, @ProgressDialog.IProgressDialog)
If hr = #S_OK
;{ Настройка прогресс-диалога.
*Title = Ansi2Uni("Заголовок системного прогресс-диалога")
ProgressDialog\SetTitle(*Title) ; Заголовок окна прогресс-диалога.
hShell = OpenLibrary(0, "shell32.dll")
If hShell
ProgressDialog\SetAnimation(hShell, #IDA_COPY_ANIMATION) ; Настройка анимации, отображаемой в прогресс-диалоге.
EndIf
*Line1 = Ansi2Uni("Надпись в диалоге")
ProgressDialog\SetLine(1, *Line1, #True, 0) ; Настройка надписи в прогресс-диалоге.
;}
ProgressDialog\StartProgressDialog(#Null, 0, #PROGDLG_AUTOTIME | #PROGDLG_NORMAL, 0)
ProgressDialog\Timer(#PDTIMER_RESET, 0)
Repeat
If ProgressDialog\HasUserCancelled()
MessageRequester("", "Операция отменена пользователем. ", #MB_ICONEXCLAMATION)
Break
Else
ProgressDialog\SetProgress(dwCompleted, ProgressLimit)
If dwCompleted>=ProgressLimit
MessageRequester("", "Операция успешно завершена. ", #MB_ICONINFORMATION)
Break
Else
dwCompleted+1
*Line2 = Ansi2Uni("Процент выполнения: "+Str(dwCompleted))
ProgressDialog\SetLine(2, *Line2, #True, 0)
FreeMemory(*Line2)
EndIf
EndIf
Delay(100)
ForEver
ProgressDialog\StopProgressDialog()
ProgressDialog\Release()
FreeMemory(*Title)
FreeMemory(*Line1)
If hShell:CloseLibrary(0):EndIf
Else
Debug "Ошибка инициализации прогресс-диалога: " + Hex(hr)
EndIf
CoUninitialize_()
;{
DataSection
CLSID_ProgressDialog:
Data.l $f8383852
Data.w $fcd3, $11d1
Data.b $a6, $b9, 0, $60, $97, $df, $5b, $d4
IID_IProgressDialog:
Data.l $ebbc7c04
Data.w $315e, $11d2
Data.b $b6, $2f, 0, $60, $97, $df, $5b, $d4
EndDataSection
;}
Прочие дела домашние
Перед тобой белая стена и баллончик краски, что напишешь или нарисуешь?? Салют народ!!
Много динозавров нарисую и надпись-"ВСЯ ВЛАСТЬ--РЕПТИЛИЯМЪ!!! "
Ничего !!!С дождичком вас !!!А у нас солнышко вовсю
А я на стенах не рисую, не приучена с детства.
Слово из трёх букв!
Peace, Love, Freedom and Music .
.
.
"Все будет ХОРОШО!... "
ой, раньше б какую-нибудь нарисовала, даже знаю, какую именно, а сейчас - название любимой группы
"Продам баллончик с краской"
Напишу: Баллончик стырила стена =D
нуууууууу.. . наверно домик. облака. солнышко) я везде эту муть рисую)
Напишу "ВСЯ ВЛАСТЬ СОВЕТАМ!!! "
"С Днем Победы", конечно же!!!! а у нас снег прошел)))))
Краска то хоть не белая?))))) )
Напишу: "Если хочешь зделать ЗЛО, помни: что все возвращаеться к тебе или к детям твоим! "....
Напишу: "Если хочешь зделать ЗЛО, помни: что все возвращаеться к тебе или к детям твоим! "....
Море, а на море сушу, а на суше пальму, а на пальме... .
ничего не напишу. у нас в районе все дома исписанные, дворники закрашивают надписи краской какого попало цвета. вот и похожи дома на шалаши бедуинов, все в заплатках и цветных пятнах.
оставлю стену белой. так она красивее.
Синее море, голубое небо, парус и в далеке два маленьких облачка, один чуть больше другого. И солнце такое теплое-теплое.... отражается на волнах.... Ох,... я уже вся там...
I am sexy and i know it)))
Георгиевскую ленточку и букетик гвоздик!!!! С днём победы!!!!
Похожие вопросы
- Что написано или нарисовано на Вашей любимой кружке?
- Какая реклама Вас бесит больше всего? салют народ!!
- Что у вас висит на стенах дома?Картины висят?Что на них нарисовано?
- у нас вподъезде жэу красит стены и потолки и они написали чтобы жильцы мыли после ремонта полы окна и плафоны .Скажите п
- Если бы у вас были волшебные Краски, что бы вы ими Нарисовали?...
- Вы уже считали, сколько хлопков от салютов за вашими окнами прогремело? Веселиться народ:) ) С Новым годом, СДДши:))
- У вас возникало желание взять кисти, краски и нарисовать картину?
- Польша. Салюты в каждом дворе. Не бенгальские огни, а настоящие салюты, поднимающиеся выше домов.
- Почему, если негра покрасить белой краской, он смотрится как негр, покрашенный белой краской, а не как белый человек?..
- а если я плачу от того что ребенок на обоях краской нарисовал и все обои испортил мне надо к психологу?