Problem: Button mit Icon - Icon ist verschoben

**BugFix**

Mir ist aufgefallen, dass immer, wenn ich Icon auf Button setze, diese nach rechts versetzt platziert werden und zusätzlich auch der rechte Rand beschnitten wird.

Dabei ist es egal, ob ich das Icon direkt aus der Datei oder aus einem IconImage erstelle. Wie kann man das korrigieren?

Die Icon Datei ist im Anhang - nur noch umbenennen.

Code

import os
import wNim/[wApp, wFrame, wPanel, wButton, wIcon]

proc CurrentDir(): string =
  result = getAppFilename().splitPath().head


let 
  icon = Icon(CurrentDir().joinPath("exit.ico"), size=(32,32))
  app = App()
  frame = Frame(title="Test Icon-Button", size=(300,200))
  panel = frame.Panel()
  btExit = panel.Button(pos=(20,20), size=(32,32))

btExit.setIcon(icon)

btExit.wEvent_Button do (): frame.delete()

frame.wIdExit do (): frame.delete()

frame.center()
frame.show()
app.mainLoop()

Alles anzeigen

**Oscar**

Das mit dem Button hat wohl etwas mit dem Rand zu tun. Jedenfalls wird es zentriert, wenn man die Size vom Button auf 38,38 setzt, aber dann hat man einen Rand um das Icon.

Mit StaticBitmap kann man aber auch einen (randlosen) Button erzeugen:

Code

import os
import wNim

proc CurrentDir(): string =
  result = getAppFilename().splitPath().head


let 
  icon = Icon(CurrentDir().joinPath("exit.ico"), size=(32,32))
  bmp = Bitmap(icon)
  app = App()
  frame = Frame(title="Test Icon-Button", size=(300,200))
  panel = frame.Panel()
  btExit = panel.StaticBitmap(pos=(20,20), size=(32,32), bitmap=bmp)

btExit.wEvent_CommandLeftClick do (): frame.delete()

frame.wIdExit do (): frame.delete()

frame.center()
frame.show()
app.mainLoop()

Alles anzeigen

**BugFix**

Zitat von Oscar

Mit StaticBitmap kann man aber auch einen (randlosen) Button erzeugen

Danke.

Daraus habe ich gleich mal eine allgemeine Funktion erstellt, die mit allen Bildquellen arbeitet. Der Funktionsname ist eigentlich nicht exakt, da kein Button im eigentlichen Sinn, sondern ein StaticBitmap erstellt wird.

Interessant ist, dass nicht alle Angaben des Window-Style zum erwarteten Verhalten führen. "wBorderRaised" zeigt keinen Effekt, dafür erzeugt "wBorderDouble" diesen Effekt und Double gibt es nicht.

Ich habe deshalb umgeroutet, sodass bei "Raised" auch der Button erhaben dargestellt wird. "Double" habe ich auf "Simple" umgeleitet, ergibt noch den meisten Sinn.

Code

# works with: *.ico / *.png / *.bmp / *.jpg
# Styles:
#   wBorderStatic:  leicht abgesenkt
#   wBorderSimple:  dünner Rand
#   wBorderRaised:  erhaben (intern: wBorderDouble)
#   wBorderSunken:  abgesenkt
proc BitmapButton(hwnd: wWindow, source: string, pos: wPoint=wDefaultPoint, 
                  size: wSize=wDefaultSize, style: wStyle=wSbAuto): wStaticBitmap =
  let bmp = source.Image().scale(size=size).Bitmap()
  var used_style = style
  if style == wBorderRaised: used_style = wBorderDouble
  elif style == wBorderDouble: used_style = wBorderSimple
  result = hwnd.StaticBitmap(pos=pos, size=size, bitmap=bmp, style=used_style)

Alles anzeigen