initial commit

2026-10-24 02:12:37 +00:00 · 2024-06-06 00:07:31 +02:00
commit 01f44645d6
13 changed files with 4972 additions and 0 deletions
@@ -0,0 +1,214 @@
+package libui_drawtext
+
+import "core:c"
+import "core:fmt"
+
+import "../../"
+
+mainwin: ^libui.Window
+area: ^libui.Area
+fontButton: ^libui.FontButton
+alignment: ^libui.Combobox
+systemFont: ^libui.Checkbox
+
+attrstr: ^libui.AttributedString
+
+appendWithAttribute :: proc(what: cstring, attr: ^libui.Attribute, attr2: ^libui.Attribute) {
+	start := libui.AttributedStringLen(attrstr^)
+	end := start + len(what)
+	libui.AttributedStringAppendUnattributed(attrstr, what)
+	libui.AttributedStringSetAttribute(attrstr, attr, start, end)
+	if attr2 != nil {
+		libui.AttributedStringSetAttribute(attrstr, attr2, start, end)
+	}
+}
+
+makeAttributedString :: proc() {
+	attrstr = libui.NewAttributedString("Drawing strings with libui is done with the uiAttributedString and uiDrawTextLayout objects.\n" + "uiAttributedString lets you have a variety of attributes: ")
+
+	attr := libui.NewFamilyAttribute("Courier New")
+	appendWithAttribute("font family", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	attr = libui.NewSizeAttribute(18)
+	appendWithAttribute("font size", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	attr = libui.NewWeightAttribute(.Bold)
+	appendWithAttribute("font weight", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	attr = libui.NewItalicAttribute(.Italic)
+	appendWithAttribute("font italicness", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	attr = libui.NewStretchAttribute(.Condensed)
+	appendWithAttribute("font stretch", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	attr = libui.NewColorAttribute(0.75, 0.25, 0.5, 0.75)
+	appendWithAttribute("text color", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	attr = libui.NewBackgroundAttribute(0.5, 0.5, 0.25, 0.5)
+	appendWithAttribute("text background color", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+
+	attr = libui.NewUnderlineAttribute(.Single)
+	appendWithAttribute("underline style", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, ", ")
+
+	libui.AttributedStringAppendUnattributed(attrstr, "and ")
+	attr = libui.NewUnderlineAttribute(.Double)
+	attr2 := libui.NewUnderlineColorAttribute(.Custom, 1.0, 0.0, 0.5, 1.0)
+	appendWithAttribute("underline color", attr, attr2)
+	libui.AttributedStringAppendUnattributed(attrstr, ". ")
+
+	libui.AttributedStringAppendUnattributed(attrstr, "Furthermore, there are attributes allowing for ")
+	attr = libui.NewUnderlineAttribute(.Suggestion)
+	attr2 = libui.NewUnderlineColorAttribute(.Spelling, 0, 0, 0, 0)
+	appendWithAttribute("special underlines for indicating spelling errors", attr, attr2)
+	libui.AttributedStringAppendUnattributed(attrstr, " (and other types of errors) ")
+
+	libui.AttributedStringAppendUnattributed(attrstr, "and control over OpenType features such as ligatures (for instance, ")
+	otf := libui.NewOpenTypeFeatures()
+	libui.OpenTypeFeaturesAdd(otf, 'l', 'i', 'g', 'a', 0)
+	attr = libui.NewFeaturesAttribute(otf)
+	appendWithAttribute("afford", attr, nil)
+	libui.AttributedStringAppendUnattributed(attrstr, " vs. ")
+	libui.OpenTypeFeaturesAdd(otf, 'l', 'i', 'g', 'a', 1)
+	attr = libui.NewFeaturesAttribute(otf)
+	appendWithAttribute("afford", attr, nil)
+	libui.FreeOpenTypeFeatures(otf)
+	libui.AttributedStringAppendUnattributed(attrstr, ").\n")
+
+	libui.AttributedStringAppendUnattributed(attrstr, "Use the controls opposite to the text to control properties of the text.")
+}
+
+handlerDraw :: proc(a: ^libui.AreaHandler, area: ^libui.Area, p: ^libui.AreaDrawParams) {
+	defaultFont: libui.FontDescriptor
+	params: libui.DrawTextLayoutParams
+	useSystemFont := libui.CheckboxChecked(systemFont)
+
+	params.String = attrstr
+
+	if useSystemFont {
+		libui.LoadControlFont(&defaultFont)
+	} else {
+		libui.FontButtonFont(fontButton, &defaultFont)
+	}
+
+	params.DefaultFont = &defaultFont
+	params.Width = p.AreaWidth
+	params.Align = cast(libui.DrawTextAlign)libui.ComboboxSelected(alignment)
+	textLayout := libui.DrawNewTextLayout(&params)
+	libui.DrawText(p.Context, textLayout, 0, 0)
+	libui.DrawFreeTextLayout(textLayout)
+
+	libui.FreeFontButtonFont(&defaultFont)
+}
+
+handlerMouseEvent :: proc(a: ^libui.AreaHandler, area: ^libui.Area, e: ^libui.AreaMouseEvent) {
+	// do nothing
+}
+
+handlerMouseCrossed :: proc(ah: ^libui.AreaHandler, a: ^libui.Area, left: c.int) {
+	// do nothing
+}
+
+handlerDragBroken :: proc(ah: ^libui.AreaHandler, a: ^libui.Area) {
+	// do nothing
+}
+
+handlerKeyEvent :: proc(ah: ^libui.AreaHandler, a: ^libui.Area, e: ^libui.AreaKeyEvent) -> c.int {
+	// reject all keys
+	return 0
+}
+
+onFontChanged :: proc "c" (b: ^libui.FontButton, data: rawptr) {
+	libui.AreaQueueRedrawAll(area)
+}
+
+onComboboxSelected :: proc "c" (b: ^libui.Combobox, data: rawptr) {
+	libui.AreaQueueRedrawAll(area)
+}
+
+onCheckboxToggled :: proc "c" (b: ^libui.Checkbox, data: rawptr) {
+	libui.AreaQueueRedrawAll(area)
+}
+
+onClosing :: proc "c" (w: ^libui.Window, data: rawptr) -> b32 {
+	libui.ControlDestroy(cast(^libui.Control)mainwin)
+	libui.Quit()
+	return false
+}
+
+shouldQuit :: proc "c" (data: rawptr) -> b32 {
+	libui.ControlDestroy(cast(^libui.Control)mainwin)
+	return true
+}
+
+main :: proc() {
+	handler: libui.AreaHandler
+	o: libui.InitOptions 
+
+	handler.Draw = handlerDraw
+	handler.MouseEvent = handlerMouseEvent
+	handler.MouseCrossed = handlerMouseCrossed
+	handler.DragBroken = handlerDragBroken
+	handler.KeyEvent = handlerKeyEvent
+
+	err := libui.Init(&o)
+	if err != nil {
+		fmt.eprintln("error initializing ui: %s", err)
+		libui.FreeInitError(err)
+		return
+	}
+
+	libui.OnShouldQuit(shouldQuit, nil)
+
+	makeAttributedString()
+
+	mainwin = libui.NewWindow("libui Text-Drawing Example", 640, 480, true)
+	libui.WindowSetMargined(mainwin, true)
+	libui.WindowOnClosing(mainwin, onClosing, nil)
+
+	hbox := libui.NewHorizontalBox()
+	libui.BoxSetPadded(hbox, true)
+	libui.WindowSetChild(mainwin, cast(^libui.Control)hbox)
+
+	vbox := libui.NewVerticalBox()
+	libui.BoxSetPadded(vbox, true)
+	libui.BoxAppend(hbox, cast(^libui.Control)vbox, false)
+
+	fontButton = libui.NewFontButton()
+	libui.FontButtonOnChanged(fontButton, onFontChanged, nil)
+	libui.BoxAppend(vbox, cast(^libui.Control)fontButton, false)
+
+	form := libui.NewForm()
+	libui.FormSetPadded(form, true)
+	// on OS X if this is set to 1 then the window can't resize does the form not have the concept of stretchy trailing space?
+	libui.BoxAppend(vbox, cast(^libui.Control)form, false)
+
+	alignment = libui.NewCombobox()
+	// note that the items match with the values of the uiDrawTextAlign values
+	libui.ComboboxAppend(alignment, "Left")
+	libui.ComboboxAppend(alignment, "Center")
+	libui.ComboboxAppend(alignment, "Right")
+	libui.ComboboxSetSelected(alignment, 0)		// start with left alignment
+	libui.ComboboxOnSelected(alignment, onComboboxSelected, nil)
+	libui.FormAppend(form, "Alignment", cast(^libui.Control)alignment, false)
+
+	systemFont = libui.NewCheckbox("")
+	libui.CheckboxOnToggled(systemFont, onCheckboxToggled, nil)
+	libui.FormAppend(form, "System Font", cast(^libui.Control)systemFont, false)
+
+	area = libui.NewArea(&handler)
+	libui.BoxAppend(hbox, cast(^libui.Control)area, true)
+
+	libui.ControlShow(cast(^libui.Control)mainwin)
+	libui.Main()
+	libui.FreeAttributedString(attrstr)
+	libui.Uninit()
+}