在 Haskell 中 GTK 的 DrawingArea 上绘制文本

Question

我有一个 DrawingArea ，可以使用诸如 drawRectangle 和 drawLine 等基元在其上进行绘制。如何在该区域上绘制文本？我最感兴趣的是快速输出一行文本的东西。

Graphics.UI.Gtk.Gdk.Drawable.layoutLine 似乎是我想要的，但它需要一个 Graphics.Rendering.Pango.Layout.LayoutLine 作为输入。如何构建 LayoutLine？

还有比这样做更好的选择吗？

谢谢！

Answer 1

我不知道你是否会考虑使用开罗。如果是这样，我认为函数 showText 可能就是您正在寻找的。在写入文本之前，使用 cairo 函数 moveTo 移动到特定位置。这是我能制作的最简单的工作示例之一：

import Graphics.UI.Gtk
import Graphics.Rendering.Cairo

main :: IO ()
main = do
    initGUI
    window      <- windowNew
    drawingArea <- drawingAreaNew
    containerAdd window drawingArea

    drawingArea `onExpose` (\_ -> renderScene drawingArea)
    window `onDestroy` mainQuit

    windowSetDefaultSize window 640 480
    widgetShowAll window
    mainGUI

renderScene :: DrawingArea -> IO Bool
renderScene da = do
    dw <- widgetGetDrawWindow da
    renderWithDrawable dw $ do setSourceRGBA 0.5 0.5 0.5 1.0
                               moveTo 100.0 100.0
                               showText "HelloWorld"
    return True

我发现以下内容是一个很好的指南，尽管它不适用于 Haskell：

Answer 2

我已经找到了用 Pango 来做到这一点的方法。

layout <- widgetCreateLayout drawAreaWidget stringToDraw

然后，您可以将这个新创建的布局与 drawLayout 和 drawLayoutWithColors 等函数一起使用。