AHK: Отображение текста на полупрозрачном фоне

 ; Example 8: Gdip.Tutorial.8-Write.text.onto.a.gui.ahk    http://www.autohotkey.net/~tic/Gdip.Tutorial.8-Write.text.onto.a.gui.ahk 

#SingleInstance Force 
SetBatchLines -1 


If !pToken := Gdip_Startup()   {
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}

OnExit, Exit
OnMessage(0x201, "WM_LBUTTONDOWN")
 
Width := 400, Height := 250
BackTrans = ba
BackColor = 2943AF
Font = Arial 
FontSize = 42
FontColor = ffffff
Text = Tutorial 8`nThank you for trying this example 

Options = x10p y10p w80p Centre cff%FontColor% r4 s%FontSize% Italic 
 
Gui, +HWNDhGui -Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs -DPIScale
Gui, Show, NA 
 
hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC() 
obm := SelectObject(hdc, hbm), G := Gdip_GraphicsFromHDC(hdc), Gdip_SetSmoothingMode(G, 4) 
pBrush := Gdip_BrushCreateSolid("0x" BackTrans BackColor) 
Gdip_FillRoundedRectangle(G, pBrush, 0, 0, Width, Height, 10) 
Gdip_DeleteBrush(pBrush) 

If !Gdip_FontFamilyCreate(Font)   {
   MsgBox, 48, Font error!, The font you have specified does not exist on the system
   ExitApp
} 
  
Gdip_TextToGraphics(G, Text, Options, Font, Width, Height) 

UpdateLayeredWindow(hGui, hdc, (A_ScreenWidth-Width)//2, (A_ScreenHeight-Height)//2, Width, Height)
 
SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc), Gdip_DeleteGraphics(G)
Return 

WM_LBUTTONDOWN()   {
   PostMessage, 0xA1, 2
}
 

Esc::
Exit: 
GuiClose:
GuiEscape:
    Gdip_Shutdown(pToken)
    ExitApp

 
#SingleInstance Force 

Text1 = Tutorial 8`nThank you for trying this example 
Text2 = 000`n0`n0`n0`n0`n0`n0`n0`n000 
Text3 = ``
FontSize = 28
I = 0

Gui, +AlwaysOnTop +ToolWindow -Caption +DPIScale 
Gui, Color, 2943AF
Gui, Font, s%FontSize% cffffff Italic, Times New Roman 
    
Loop    { 
    DllCall("DestroyWindow", "Ptr", hText), I := ++I > 3 ? 1 : I
    Gui, Add, Text, % "Center hwndhText x" FontSize " y" FontSize / 2, % Text%I%
    Gui, Show, AutoSize Center
    Sleep 1111 
}

Esc::
    ExitApp

Text = Tutorial 8`nThank you for trying this example
Font = Arial 
FontSize = 42
BackTrans = ba
BackColor = 2943AF 
FontColor = ffffff 
Options = x10p y10p w80p Centre s%FontSize% Italic     
    
If !pToken := Gdip_Startup()   {
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}

hdc := CreateCompatibleDC() 
G := Gdip_GraphicsFromHDC(hdc)

 
Data := Gdip_TextToGraphics(G, Text, Options, Font, 3000, 3000) ; 1000 — с запасом, x|y|w|h|кол-во символов|кол-во строк
StringSplit, Arr, Data, |  
 
Width := Arr3, Height := Arr4 
  
Gui, +HWNDhGui -Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs -DPIScale
Gui, Show, NA 
 
hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC() 
obm := SelectObject(hdc, hbm), G := Gdip_GraphicsFromHDC(hdc), Gdip_SetSmoothingMode(G, 4) 
pBrush := Gdip_BrushCreateSolid("0x" BackTrans BackColor) 
Gdip_FillRoundedRectangle(G, pBrush, 0, 0, Width, Height, 10) 
Gdip_DeleteBrush(pBrush) 

If !Gdip_FontFamilyCreate(Font)   {
   MsgBox, 48, Font error!, The font you have specified does not exist on the system
   ExitApp
} 

Gdip_TextToGraphics(G, Text, Options, Font, Width, Height) 

UpdateLayeredWindow(hGui, hdc, (A_ScreenWidth-Width)//2, (A_ScreenHeight-Height)//2, Width, Height)
 
SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc), Gdip_DeleteGraphics(G)
Return 

If !pToken := Gdip_Startup()   {
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}
 
xMargin = 0
yMargin = 30
BackTrans = ba
BackColor = 2943AF
ThisFont = Arial 
Font = s62 Italic
FontColor = ffffff
Text = Tutorial 8`nThank you for trying this example 

 
hdc := CreateCompatibleDC() 
G := Gdip_GraphicsFromHDC(hdc) 
Data := Gdip_TextToGraphics(G, Text, Font, ThisFont) ; x|y|w|h|кол-во символов|кол-во строк
DeleteDC(hdc), Gdip_DeleteGraphics(G)
 
StringSplit, Arr, Data, |  
Width := Ceil(Arr3) + xMargin * 2, Height := Ceil(Arr4) + yMargin * 2
Options = x%xMargin% y%yMargin% Centre cff%FontColor% r4 %Font%
 
Gui, +HWNDhGui -Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs -DPIScale
Gui, Show, NA 
 
hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC() 
obm := SelectObject(hdc, hbm), G := Gdip_GraphicsFromHDC(hdc), Gdip_SetSmoothingMode(G, 4) 
pBrush := Gdip_BrushCreateSolid("0x" BackTrans BackColor) 
Gdip_FillRoundedRectangle(G, pBrush, 0, 0, Width, Height, 10) 
Gdip_DeleteBrush(pBrush) 

If !Gdip_FontFamilyCreate(ThisFont)   {
   MsgBox, 48, Font error!, The font you have specified does not exist on the system
   ExitApp
} 
  
Gdip_TextToGraphics(G, Text, Options, ThisFont, Width, Height) 

UpdateLayeredWindow(hGui, hdc, (A_ScreenWidth-Width)//2, (A_ScreenHeight-Height)//2, Width, Height)
 
SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc), Gdip_DeleteGraphics(G)
Return