let DrawText() support CharacterExtra

Got an idea for enhancing PureBasic? New command(s) you'd like to see?
User avatar
gurj
Enthusiast
Enthusiast
Posts: 658
Joined: Thu Jan 22, 2009 3:48 am
Location: china
Contact:

let DrawText() support CharacterExtra

Post by gurj »

let DrawText() support CharacterExtra

Code: Select all

w=OpenWindow(0, 0, 0, 322,150, "CharacterExtra", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
hdc=GetDC_(w)

StartDrawing(WindowOutput(0))
SetTextCharacterExtra_(hdc,46)
DrawingMode(#PB_2DDrawing_Transparent)
TextOut_(hdc, 50, 100, "Hello", 5)
DrawText(22, 22, "Hello World!", #Red)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

StopDrawing()
my pb for chinese:
http://ataorj.ys168.com
User avatar
Mijikai
Addict
Addict
Posts: 1360
Joined: Sun Sep 11, 2016 2:17 pm

Re: let DrawText() support CharacterExtra

Post by Mijikai »

+ 1
mby even add negative spaces/offsets for reverse and flipped text.
Support for rotation and scaling would also be nice.

For effects like this:
Image

Nice fake z axis rotation (would also be possible) ;)
Post Reply