[Alex_Noc]

Сори вынужден еще раз отчитаться так как решил проблему неким другим способом и сразу с альфаканалом Вобщем выкину функцию :
Function DrawTextToImage ()
SetBuffer ImageBuffer (img_r) ;устанавливаем буфер картинок
Cls ;очищаем экран
Color 255,0,0 ;чтобы текст был цветным раскрашиваем строки в нужный нам цвет
Text 0,0,Colors(count_color,0) Color 0,255,0 ;пишем текст
Text 0,40,Colors(count_color,1) Color 0,0,255
Text 0,80,Colors(count_color,2) Color 250,250,250
DrawImageRect Img_R,0,0,0,0,30,30 ; снимаем картинку нужного размера
SetBuffer BackBuffer() ;переворачиваем буфер
End Function
;------------- DRAW MOUSE -------------------------------
Function Draw_Mouse ()
If show_mouse=1 Then DrawImage Cursor,MX#,MY# Text 0,50,"show_mouse"
y_img=EntityY(bone_color_menu)
DrawImage Img_R,170,512 -y_img*10000 ; отрисовываем картинку по нужным нам координатам (у меня умножение на 10000 потому что перевожу из своих единиц в 2d координаты экрана)

вот таким образом у меня получился динач\мический текст выезжающий вместе с менюшкой и меняющий значение при таскании ползунка.
Надеюсь кому то это будект полезно

End Function