Конференция VBStreets

**Cryonyx** » 27.01.2005 (Чт) 13:43

Народ, кто знает, как вывести в PictureBox поверх изображения инверсный текст :?:

**GSerg** » 27.01.2005 (Чт) 14:11

...........

Допустим...
beginpath
textout
endpath
pathtoregion
invertregion

**alibek** » 27.01.2005 (Чт) 14:13

Помоему DrawMode относится и к методу .Print. Т.е. просто сделать DrawMode = vbInvert, а потом печатать.

**tyomitch** » 27.01.2005 (Чт) 14:23

alibek писал(а):Помоему DrawMode относится и к методу .Print. Т.е. просто сделать DrawMode = vbInvert, а потом печатать.

Увы, нет.

**alibek** » 27.01.2005 (Чт) 14:26

Тогда... Тогда напечатать текст и наложить (с инвертированием) на него заранее инвертированную картинку.

**GSerg** » 27.01.2005 (Чт) 15:33

Вредный админ

Код: Выделить всё: Private Sub Form_DblClick() Dim h As Long Picture1.FontSize = 48 Picture1.FontName = "Comic Sans MS" Picture1.FontBold = True Picture1.ScaleMode = vbPixels Picture1.AutoRedraw = False BeginPath Picture1.hdc TextOut Picture1.hdc, Picture1.ScaleWidth / 4, Picture1.ScaleHeight / 4, "Гы!", 3 EndPath Picture1.hdc h = PathToRegion(Picture1.hdc) InvertRgn Picture1.hdc, h DeleteObject h End Sub

**A.A.Z.** » 27.01.2005 (Чт) 17:32

2 Cryonyx: только не забудь у Picture1 поставить ScaleMode = 3. А также APIшки объявить.

**GSerg** » 27.01.2005 (Чт) 17:38

Первое я не забыл, а второе я забыл специально

Инверсный цвет?