Beiträge von BugFix

from functions import CurrentDir
import os, osproc, times, nsiface, strformat, strutils

ClearOutput()
let websearch = CurrentDir().joinPath("websearch.exe")
if not websearch.fileExists():
  OutputConsole(fmt("!> ERROR: Can't find file \"{websearch}\"!"))
  quit(QuitFailure)

let 
  app = getAppFilename().replace("\\", "\\\\")
  time = now().format("[HH:mm:ss]")
OutputConsole(fmt(">> Nim-SciTE-Interface [v{verNSI}] by @BugFix\\n-> {time} Running: {app}"))

# get selected text from SciTE
let sel = LuaFuncGet(LuaGetSelection, ParseLuaSelection, EditorSelection)

# auch möglich mit Default Parser, da nur Text (nicht Länge) benötigt:
# let sel = LuaFuncGet("editor:GetSelText()") 

OutputConsole(fmt("+> Selection: {sel.text}"))

# make cmdLine & execute
let cmd = fmt("\"{websearch}\" {sel.text}")
discard execCmd(cmd)

include winim/[inc\winuser]
import functions        # eigene Procedures ausgelagert
import BinToBase64, res # bin64-Ressourcen & Umwandlungsfunktion
import os, parseopt, parsecfg, tables, strutils
import wNim/[wApp, wFrame, wPanel, wTextCtrl, wComboBox, wStaticText, 
             wCheckBox, wButton, wToolTip, wFont, wImage, wIcon, wBitmap,
             wStaticBitmap]

#========== DEBUG - MODE ============================================
var debug = false                  # für "echo DEBUG" auf true setzen
#====================================================================

#========== cmd-Line auswerten ======================================
# erwartet wird kein oder ein einzelner Parameter (Suchstring)
let cmdLine = commandLineParams()
if debug: echo "cmdLIne: ", cmdLine
var 
  search_item: string
  p = initOptParser(cmdLine)
for kind, key, val in p.getopt(): 
  if kind == cmdArgument: search_item = key
if debug: echo "cmdLine-SearchItem: ", search_item
#====================================================================

#========== ini - initialization ====================================
let ini_file = CurrentDir().joinPath("websearch.ini")
var ini: Config

if not ini_file.fileExists():
  echo "None INI"
  ini = newConfig()
  ini.setSectionKey("engines","Google",r"https://www.google.de/search?q=")
  ini.setSectionKey("engines","Startpage",r"https://www.startpage.com/do/dsearch?query=")
  ini.setSectionKey("sites","AutoIt-DE","autoit.de")
  ini.setSectionKey("sites","AutoIt-EN","autoitscript.com")
  ini.setSectionKey("sites","MSDN",r"msdn.microsoft.com")
  ini.writeConfig(ini_file)

ini = loadConfig(ini_file)
#====================================================================

#========== websearch window ========================================
type
  CtrlID = enum  # Festlegen der ID für Controls 
    idEngines = wIdUser, idSites, idItem, idNewVal

var 
  combo_change: wComboBox       # Combo, in der aktuell neuer Eintrag erfolgte
  ini_has_changed: bool = false # wenn neuer Eintrag -- bei Beenden speichern

let
  wsApp = App()
  ico_frame = Icon(ico_web_bin.Base64ToBin())
  ico_help = Icon(ico_help_bin.Base64ToBin())
  wsFrame = Frame(title="WEB - SUCHE",size=(600,280))
  wsPanel = wsFrame.Panel()
  wsBtnExit = wsPanel.BitmapButton(ico_exit_bin.Base64ToBin(), size=(24,24), 
                                   style=wBorderRaised)
  wsLabelEngine = wsPanel.StaticText(label="Suchmaschine")
  wsCheckSite = wsPanel.CheckBox(label=" Suchen auf Seite [optional]")
  wsLabelItem = wsPanel.StaticText(label="Suchbegriff")
  wsBtnNewVal = wsPanel.Button(label="Speichere neuen Eintrag")
  wsBtnHelp = wsPanel.Button(label="Hilfe")
  wsBtnSearch = wsPanel.Button(label="Suchen")
  wsComboEngines = wsPanel.ComboBox(id=idEngines,style=wCbDropDown)
  wsComboSites = wsPanel.ComboBox(id=idSites,style=wCbDropDown)
  wsItem = wsPanel.TextCtrl(value=search_item,id=idItem,style=wBorderSunken)
  wsNewValue = wsPanel.TextCtrl(id=idNewVal,style=wBorderSunken)
  wsHelp = wsFrame.Frame(title="Hilfe",size=(500,300), 
                         style=wCaption or wPopupWindow)
  wsHelpPanel = wsHelp.Panel()
  text_help = # ACHTUNG! Zeilenumbruch in Windows-Editfeld: \r\n
    "Erfassen neuer Suchmaschinen / Suchseiten\r\n\r\n" &
    "In der entsprechenden Combobox einen neuen Displaynamen für die Suchmaschine oder -seite eintragen und mit <ENTER> bestätigen.\r\n" &
    "Eine Textfeld wird eingeblendet, in dem die suchmaschinenspezifische " & "Adresszeile (z.B. \"www.yandex.com/search/?text=\") oder die Adresse " & "der Webseite eingetragen werden.\r\n" &
    "Abschließend den neuen Eintrag speichern."
  font_courier = Font(faceName="Courier New", pointSize=12)
  wsHelpText = wsHelp.TextCtrl(value=text_help,
                      style=wBorderSunken or wTeMultiLine or wTeReadOnly)

wsHelpText.setFont(font_courier) # Font für Hilfetext
wsFrame.disableCloseButton()     # Close-Button Suchfenster deaktivieren
wsFrame.setIcon(ico_frame)
wsHelp.setIcon(ico_help)
wsNewValue.TextCtrlSetCueBanner(
           "Wert für den neuen Combobox-Eintrag hier erfassen")
wsNewValue.hide()
wsBtnNewVal.hide()

proc ComboFill(combo: wComboBox, sec: OrderedTableRef[string,string]) =
  for k, _ in sec.pairs(): combo.append(k) 
  combo.select(0)

wsComboEngines.ComboFill(ini.Section("engines"))
wsComboSites.ComboFill(ini.Section("sites"))  

proc AppExit() =
  if debug: echo "exit - ini_has_changed: ", ini_has_changed
  if ini_has_changed: 
    if debug: echo "Write to INI"
    ini.writeConfig(ini_file)
  wsFrame.delete()

proc KeyByComboSelection(combo: wComboBox, sec: string): string =
  var index = combo.getSelection()
  if index < 0: index = 0 
  result = ini.Section(sec).Key(combo.getText(index))

proc Search() =
  if not wsItem.isEmpty():
    let 
      text = wsItem.getValue()
      engine = wsComboEngines.KeyByComboSelection("engines")
    var site = "%20site:" & wsComboSites.KeyByComboSelection("sites")
    if not wsCheckSite.isChecked(): site = ""
    let cmd = engine & text & site
    if debug: echo "Search: [", text, "] cmd: ", cmd
    MyShellExecute(file=cmd)
    AppExit()
  else: wsItem.setValue("SUCHBEGRIFF FEHLT!")

wsFrame.wEvent_TextEnter do (event: wEvent):  # ENTER in einem Textfeld
  let sender = event.getEventObject()         # wer hat das Event gesendet
  case sender.getId()                         # welche ID hat das Ctrl
  of idEngines: 
    if debug: echo "wEvent_TextEnter - Engines"
    combo_change = wsComboEngines
  of idSites: 
    if debug: echo "wEvent_TextEnter - Sites"
    combo_change = wsComboSites
  of idItem: 
    if debug: echo "wEvent_TextEnter - Search-Item"
    Search()
  else: discard
  wsNewValue.show()
  wsBtnNewVal.show()

wsBtnSearch.wEvent_Button do ():
  Search()

wsBtnHelp.wEvent_Button do ():
  wsHelp.show()

wsBtnNewVal.wEvent_Button do ():
  # Wurde ein Wert erfasst
  let new_val = wsNewValue.getValue()
  if new_val == "": wsFrame.MessageBox("Für den neuen Eintrag wurde kein Wert erfasst!" ,"FEHLER", MB_OK or MB_ICONERROR)
  else:
    # Ini Sektion ermitteln, in der der neue Wert eingetragen wird
    var section = "engines"
    if combo_change.id == idSites: section = "sites"
    # Wert aus Combo, in der geändert wurde, auslesen (wEvent_TextEnter)
    let combo_val = combo_change.getValue() 
    # Prüfen ob der Wert noch nicht existiert (Index von Itemliste abfragen)
    let idx = combo_change.findText(combo_val)
    if debug: echo "gesuchter Eintrag Combo[", section, "]: ", 
                                     combo_val, " - Index: ", idx
    if idx == -1:  # Wert existiert noch nicht
      # der Combo-Liste hinzufügen
      combo_change.append(combo_val)
      # in Ini-Table Displayname und Wert eintragen
      ini.setSectionKey(section, combo_val, new_val)
      # Speichern der Ini bei Beenden veranlassen
      ini_has_changed = true
      if debug: echo "ini_has_changed: ", ini_has_changed
    else: wsFrame.MessageBox("Der Eintrag in der ComboBox \"" & 
                  section.capitalizeAscii() & "\" existiert bereits!",
                  "Achtung!", MB_OK or MB_ICONSTOP)
  wsNewValue.clear()
  wsNewValue.hide()
  wsBtnNewVal.hide()

proc helpLayout() =
  wsHelp.layout:
    wsHelpPanel:
      width = wsHelp.width
      height = wsHelp.height
    wsHelpText:
      left = 15
      top = 15
      width = wsHelpPanel.width - 30
      height = wsHelpPanel.height - 30

proc layout() =
  wsFrame.layout:
    wsPanel:
      width = wsFrame.width
      height = wsFrame.height
    wsBtnExit:
      right = wsFrame.width - 15
      top = 5
    wsLabelEngine:
      left = 15
      top = 15
    wsCheckSite:
      left = wsFrame.width / 2 + 15
      top = 15
    wsComboEngines:
      left = 15
      top = wsLabelEngine.bottom + 10
      width = wsFrame.width / 2 - 30
    wsComboSites:
      left = wsCheckSite.left
      top = wsComboEngines.top
      width = wsComboEngines.width
    wsLabelItem:
      left = 15
      top = wsComboEngines.bottom + 15
    wsItem:
      left = 15
      top = wsLabelItem.bottom + 10
      width = wsFrame.width - 30
    wsNewValue:
      left = 15
      top = wsItem.bottom + 10
      width = wsFrame.width - 30
    wsBtnNewVal:
      left = 15
      top = wsNewValue.bottom + 15
      width = wsBtnNewVal.getBestSize().width
    wsBtnHelp:
      centerX = wsFrame.centerX
      top = wsBtnNewVal.top
      width = wsBtnNewVal.width
    wsBtnSearch:
      right = wsFrame.width - 15
      top = wsBtnNewVal.top
      width = wsBtnNewVal.width

wsBtnSearch.setFocus()

wsFrame.wEvent_Size do ():
  layout()

wsBtnExit.wEvent_CommandLeftClick do ():
  AppExit()

wsFrame.wIdExit do ():  discard

wsHelp.wIdExit do ():
  wsHelp.hide()

wsHelp.minSize = (500,300)
wsHelp.maxSize = (500,300)
wsHelp.center()
helpLayout()

wsFrame.minSize = (600,280)
wsFrame.maxSize = (int(GetSystemMetrics(SM_CXSCREEN)),280)
layout()
wsFrame.center()
wsFrame.show()

wsApp.mainLoop()
#====================================================================

import os, osproc, parseopt, strformat

# EMPFOHLEN:
# Einrichten Benutzervariable
#   Key: ResHack
#   Val: "Pfad\zur\ResourceHacker.exe"

# Syntax:
# setExeIco.exe "Hier\Icon\setzen.exe" "Path\MyIcon.ico" --new: "Unter\anderem\Namen\Speichern.exe" --rh:"Pfad\zur\ResourceHacker.exe" 

# --new und --rh sind optional. Sollte --rh angegeben werden, obwohl Environmentvariable "ResHack" gesetzt ist, wird der Wert von --rh verwendet.

let cmdLine = commandLineParams()
var 
  p = initOptParser(cmdLine)
  rh_path: string = getEnv("ResHack")
  set_exe, ico_path, new_exe: string
  arg_num = 0
  cmd_str: string

for kind, key, val in p.getopt(): 
  case kind
  of cmdArgument:
    arg_num += 1
    if arg_num == 1: set_exe = key
    elif arg_num == 2: ico_path = key
    else: discard
  of cmdLongOption:
    case key
    of "--new": new_exe = val
    of "--rh": rh_path = val
    else: discard
  else: discard

if new_exe == "": new_exe = set_exe

if rh_path == "": 
  echo "Reshacker nicht gefunden"
else:
  cmd_str = fmt("\"{rh_path}\" -open \"{set_exe}\" -save \"{new_exe}\" -action addskip -res \"{ico_path}\" -mask ICONGROUP,MAINICON,")
  discard execCmd(cmd_str)

include winim/[inc\winuser]
from winim/inc\shellapi import ShellExecute

# https://docs.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellexecutea
proc MyShellExecute(hwnd: HWND = 0, operation: string = "", file: string,
                    param: string = "", dir: string = "", 
                    show: INT = SW_SHOW): HINSTANCE {.discardable.} =
  proc PointerOrNil(a: WideCStringObj): LPCWSTR = 
    if a == nil: result = nil
    else: result = cast[LPCWSTR](addr a[0])
  var 
    o_cs: WideCStringObj = nil 
    f_cs: WideCStringObj = newWideCString(file & chr(0),file.len + 1)
    p_cs: WideCStringObj = nil 
    d_cs: WideCStringObj = nil
  if operation != "":o_cs = newWideCString(operation & chr(0),operation.len + 1)
  if param != "": p_cs = newWideCString(param & chr(0),param.len + 1)
  if dir != "": d_cs = newWideCString(dir & chr(0),dir.len + 1)
  result = ShellExecute(hwnd, o_cs.PointerOrNil(), f_cs.PointerOrNil(), 
                        p_cs.PointerOrNil(), d_cs.PointerOrNil(), show)


MyShellExecute(file="https://autoit.de/wcf/")

#include <WindowsConstants.au3>

; Standard: Icon + Titel + MinBox + MaxBox + CloseButton
_GuiStyle()

; WS_CAPTION & WS_SYSMENU & WS_MAXIMIZEBOX & WS_MINIMIZEBOX: wie Standard (WS_SYSMENU muss verwendet werden)
_GuiStyle(BitOR($WS_CAPTION, $WS_SYSMENU, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX))

; WS_CAPTION & WS_POPUPWINDOW: Icon + Titel + CloseButton
_GuiStyle(BitOR($WS_CAPTION, $WS_POPUPWINDOW))

; WS_CAPTION & WS_POPUPWINDOW: Titel
_GuiStyle(BitOR($WS_CAPTION, $WS_POPUP))

; GESUCHT: Icon + Titel + MinBox + MaxBox  OHNE CloseButton

Func _GuiStyle($iStyle=-1)
    Local $hGui = GUICreate('Test',400,300,-1,-1,$iStyle)
    Local $exit = GUICtrlCreateButton('Exit', 50,50,80,25)
    GUISetState()
    While 1
        If GUIGetMsg() = $exit Then Return
    WEnd
EndFunc

# 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)

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()

import os, parsecfg, tables

let ini_file = "ini_test.ini" # Test ini
var ini: Config               # type "Config": table of tables (OrderedTable)

if not ini_file.fileExists():
  echo "INI file will created."
  ini = newConfig()  # leere ini erstellen
  # Daten eintragen
  ini.setSectionKey("Sektion A", "key1", "val1")
  ini.setSectionKey("Sektion A", "key2", "val2")
  ini.setSectionKey("Sektion A", "key3", "val3")
  ini.setSectionKey("Sektion B", "key4", "val4")
  ini.setSectionKey("Sektion B", "key5", "val5")
  # ini schreiben
  ini.writeConfig(ini_file)

# ini Datei laden
ini = loadConfig(ini_file)

# Lesen im direkten Zugriff auf Config-Typ
echo ini["Sektion B"]["key4"]

# Änderung im direkten Zugriff 
# zum Speichern: "ini.writeConfig(ini_file)" erforderlich !!!
ini["Sektion B"]["key4"] = "new value4"
echo ini["Sektion B"]["key4"]

# Funktionen zum Zugriff

# alle Sektionsnamen als String-Sequenz
proc SectionNames(ini: Config): seq[string] =
  var sec_names = newSeq[string]()
  for section, _ in ini.pairs(): sec_names.add(section)
  result = sec_names

# gibt eine Sektion als Table zurück
proc Section(ini: Config, sec: string): OrderedTableRef[string,string] =
  var res = newOrderedTable[string, string]()
  if ini.hasKey(sec): result = ini[sec]
  else: result = res

# gibt den Wert für den Schlüssel einer Sektion zurück
# wenn Schlüssel nicht vorhanden: return Leerstring
# Default - Value: wenn Schlüssel nicht vorhanden - return def_val
proc Key(sec: OrderedTableRef[string,string], key: string, def_val: string = ""): string =
  if sec.hasKey(key): result = sec[key]
  else: result = def_val 

# alle Sektionen:
echo ini.SectionNames

# einzelner Key:
echo ini.Section("Sektion B").Key("key4")
echo ini.Section("Sektion B").Key("key_gibt_es_nicht", "Default_value")

import wNim/[wApp,wFrame,wPanel,wStaticText,wButton]
import asyncdispatch, asyncfutures

var
  bStart: bool = false
  iCount: int = 0

let app = App()
let frame = Frame(title="Test", size=(400, 300))
let panel = Panel(frame)
let idLabel = StaticText(panel, label= $iCount, pos=(10, 10), size=(380, 20))
let idButton = Button(panel, label="Start/Stop", pos=(10, 50), size=(100, 25))

# click wird mit Zielwert aufgerufen, bei dem die Asyn-Proc aktiv werden soll
proc click(b: bool): Future[bool]   # generiert das Future-Objekt

proc is_click(b: bool) {.async.} =  # Aufruf mit Zielwert
  let clicked = await click(b)      # wartet bis Wert von click == b ist
  # echo "do smth."
  iCount += 1
  idLabel.label = $iCount  

proc click(b: bool): Future[bool] {.async.} =
  # echo "proc_click"
  return b


idButton.wEvent_Button do (): 
  discard is_click(true)      # ruft die Async-Proc auf
  bStart = not bStart


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