| Вопрос: DrawTextW + AutoRedraw | Добавлено: 01.09.11 12:47 |
Автор вопроса:  negremd5 | Web-сайт: netlight.kz
|
|
Всем ДД!
Пишу один проект где требуется писать текст через DrawTextW в Picture1 Но возникла проблема когда у Picture1 установлено свойство AutoRedraw= True текст перестает вообще писаться в Picture1 Как только выключаю свойство текст пишится. Пробывал выключать свойство когда пишу а затем заново включать но не получилось..Когда в добавок к тексту рисуешь карандашом в Picture1 текст пропадает.Хотя когда выводил текст в Picture1 через Print все отлично выводилось Но это пол беды..По нажатию на кнопку ОК все что написано и нарисовано должно переходить в picture2 другой формы..Но он перестает отправлять текст которые был написан с отключенным свойством AutoRedraw Передаю переданое в другую форму так: SavePicture Picture1.Image, frmMain.File1.Path & "\" & Label7.Caption & "-" & Label4.Caption & ".bmp" Bmp2Jpg frmMain.File1.Path & "\" & Label7.Caption & "-" & Label4.Caption & ".bmp", frmMain.File1.Path & "\" & Label7.Caption & "-" & Label4.Caption & ".tpf" Kill frmMain.File1.Path & "\" & Label7.Caption & "-" & Label4.Caption & ".bmp" Open frmMain.File1.Path & "\" & Label7.Caption & "-" & Label4.Caption & ".ttf" For Output As #5 Print #5, frmMain.coding(Text5.Text, True) Close #5 frmMain.Enabled = True frmMain.Picture2.PaintPicture Picture1.Image, 0, 0 Текст в Picture1 вывожу так: DrawText2 Picture1.hdc, StrPtr(Text5.Text), -1, R1, DT_LEFT [IMG]http://image.kz/v69cb8ce7fb843a70cff2bcdd817bd58b[/IMG] [IMG]http://image.kz/v982500fd6976a0fc1cc9a17387358eb2[/IMG] [IMG]http://image.kz/vbb6f40bef586a81a34eecca3b6ad052c[/IMG] |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 01.09.11 16:36 |
Чем не нравится
|
||
|
Номер ответа: 2 Автор ответа: negremd5 Вопросов: 4 Ответов: 9 |
Web-сайт: Профиль | | #2 | Добавлено: 02.09.11 07:17 |
|
Никогда не подумал что так все просто)
Picture1.Refresh помогло! |
||
Страница: 1 |