Beiträge von Ilse

gui ist schon klar.
Aber wie kann man die System-Fonts und Größen verarbeiten.
Gibt es da irgendwas mit api...

Hallo m-obi,

ja genau so. Super!
Darf ich nochwas fragen?

Gibt es wie.Z.B. wie bei Word die Möglichkeit
in einer Combo alle Schriftarten und Größen anzuzeigen.
So daß man vorher per Laufzeit das ändern kann?
Kannst du mir da einen Tip geben?

Ich habe nichts gefunden.

Ilse

Hallo m-obi,

hatte ich auch schon probiert.
Dann wird einfach nur das Originalbild unter neuem Namen gespeichert.

Aber es sollte ja mit dem Text abgespeichert werden.
Und das geht nicht...

Grüße Ilse

Hallo,

ich habe folgendes Problem:

1. Ich öffne ein Bild
2, Ich zeichne darauf Text

und dann sollte alles unter einem neuen Namen abgespeichert werden.
Aber das klappt nicht!

Liebe Grüße
Ilse

@ RR04,

Danke nochmals, sieht gut aus.
Muß jetzt leider schon wieder los.
Ich hoffe daß ich am Wochenende alles hinbekomme.

Schönes Wochenende
und viele Grüße

Ilse

Hallo RR04,

danke für dein Beispiel.
Ich bin noch am probieren und kämpfen. Muß da einiges ändern.
Es gibt bei mir keine feste Größe.

For $i = 0 To 24 ;

melde mich wieder.
Kann etwas dauern...

Viele Grüße Ilse

...muß mich wieder melden.

Die Arrays machen mir mal wieder das leben schwer!

Wenn mein Loop so aussieht,
wie kann ich daraus ein zweidimensionales array machen?
ubound kann ich nicht verwenden

Sieht so aus:

For $i = 1 To $Split[0] - 1

$chkName = StringTrimLeft($Split[$i], 3)

$Checkbox[$i][0] = GUICtrlCreateCheckbox('', $Links + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 13, 13)
$Checkbox[$i][1] = GUICtrlCreateLabel($chkName[$i][1], $Links + 20 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 200, 50)
next

Ilse

@ alle
erstmal merci für eure Hilfe

Das Beispiel v. $Var löst genau das Problem
...zweidimensionales Array

Liebe Grüße
an alle

Ilse

Hallo $Var,

muß mich kurz wieder melden.
Wenn ich die checkboxen so erzeuge

For $i = 1 To $Split[0] - 1

$chkName = StringTrimLeft($Split[$i], 3)

$Checkbox[$i] = GUICtrlCreateCheckbox($chkName...

next

bedeutet das, ich kann $chkName nachträglich nicht mehr beeinflussen?
Es geht mir nur um den "Bezeichner"

Das heißt also, beim erzeugen müsste ich einmal die Checkbox ohne Bezeichner anlegen
und dann die Positionen für das Label berechnen und erzeugen...?

Grüße Ilse

Hallo,

ich möchte gerne für meine Checkboxen
wenn sie angewählt sind, für die "Beschriftung" die Farbe ändern.

Also:
Es gibt eine Function.
Beim aufrufen, werden betreffende Checkboxen abgehakt.

Func _Auswahl()
GUICtrlSetState($Checkbox[9], $gui_checked)
GUICtrlSetState($Checkbox[5], $gui_checked)
GUICtrlSetState($Checkbox[19], $gui_checked)
endfunc

Soweit ok.

Die Checkboxen wurden vorher so erzeugt

$Checkbox[$i] = GUICtrlCreateCheckbox($chkname, 10, 10, 120, 20)

Die Frage:
Wie kann ich $chkname farblich ändern, wenn die Funktion aufgerufen wird
bzw. wenn geklickt wird.
1 = blau und 0 = schwarz

Das checken kann ich per Loop beeinflussen

For $i = 1 To $Split[0] - 1
GUICtrlSetState($Checkbox[$i], $gui_unchecked)

next

aber ich komm nicht an $chkname!

Liebe Grüße
Ilse

Hallo,

ich konnte das Problem jetzt so lösen:

_GUICtrlTab_SetCurFocus($Tab1,2)
_GUICtrlTab_SetCurFocus($Tab1,0)

Grüße
Ilse

Guten Morgen m-obi,

das ist die Checkbox Func()

Global $language = ''
Global $spaltenNr = 0
Global $reihenAnzahl = 5
Global $oben = 60
Global $TabSheet1, $Form1_1
Global $Checkbox, $CheckboxText

$Split = StringSplit($lang, "|")
Dim $Checkbox[$Split[0]]
Dim $CheckboxText[$Split[0]]

Func _Checkbox()
For $i = 1 To $Split[0] - 1
If $i > 2 Then
If Mod($i - 1, $reihenAnzahl) = 0 Then $spaltenNr += 1
EndIf
$chkName = StringTrimLeft($Split[$i], 3)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox[$i] = GUICtrlCreateCheckbox($chkName & "-" & $i, 40 + 40 * $spaltenNr, $oben * $i - $spaltenNr * $oben * $reihenAnzahl, 35, 30)

Next
EndFunc

ist alles viel Code, deswegen nur das wichtigste.

Wie gesagt, wird alles erzeugt aber nicht gleich in der Gui angezeigt.
Also:
Beim Starten v. Scite F5 (run Script) ist TAB1 aktiv aber leer.
Wird der Tab gewechselt und dann wieder TAB1 geklickt sind sie da!

Hier wird die _Checkbox() aufgerufen

Grüße
Ilse

Hallo,

Ich lasse per Funktion Objekte auf der Gui in z.B. Tab1 erzeugen.
Alles gut soweit

Func _Felder()
If IsInt($TabSheet1) Then

GUISwitch($Form1_1, $TabSheet1); Per GuiSwitch auf das Tab umschalten, auf welchem die Controls erstellt werden sollen
_Checkbox() ; hier werden die Controls erstellt

EndIf

EndFunc ;==>_Felder

Aber folgendes Problem tritt auf:
Die Objekte werden danach nicht direkt in TAB1 gezeigt.
Wechsele ich auf TAB 2 und dann Auf TAB1 zurück, dann sind sie da.

Gibt es irgendein Befehl der nach dem erstellen der Controls sofort die Gui aktualisiert?

Liebe Grüße
Ilse

m-obi,
schon gut...

_GDIPlus_GraphicsDrawStringCustom ($h_Graphics, 'Dein String', 20, 50, 11.5, 0xFFFF0000)
_GDIPlus_GraphicsDrawStringCustom ($h_Graphics, '_GDIPlus_GraphicsDrawStringCustom', 20, 100, 9, 0xFF333333, 0, 1, 'Arial')

Die 2. Zeile hat mich etwas verwirrt. Ich dachte wieso wird
'_GDIPlus_GraphicsDrawStringCustom' nochmal aufgerufen

Daß das String wie die Func heißt hat mich aufs Glatteis geführt.

Dein 2. String ... und der Groschen wäre gleich gefallen. So kanns gehen...

Ilse

ok...,

war heute ein wenig zu viel für mich.
Ich übe mal etwas und gehe alles nochmal in Ruhe durch.

Dank euch für die Geduld mit mir
Ich schließe mal den Thread
kämpfe mich durch und melde mich wieder.

Liebe Grüße
Ilse

Hallo m-obi,

hm... das ist mir schon klar.

Beispiel: $nSize ändert die Größe

$n_Size - Font size to use for drawing

OK
Muß ich dann z.B.

$nSize = 22
außerhalb der Funktion Global deklarieren
oder muß ich das in die Funktion ändern?.

$n_Size
ist in der Funktion drin. Muß ich den Wert 22
z.B. so ändern

Func _GDIPlus_GraphicsDrawStringCustom ($h_Graphics, $s_String, $i_X, $i_Y, $n_Size = 22, $b_Color,

Steh etwas auf dem Schlauch
Muß mal ne Paue machen...

Grüße Ilse

Hallo,

danke für die Info!

Also ich meinte diese Funktion von $Var

Er meinte daß man damit die Stringattribute u.v.m. einfach ändern kann.
Und meine Frage war, was ich an der Func ändern muß?

Wenn ich z.B. die Schriftart und Größe ändern will
was muß ich da an der Funktion ändern?

Grüße Ilse

Hallo $Var,

noch kurz ne Frage:

Die Funktion verwirrt mich noch etwas:
Wo genau muß ich was ändern?

; $s_Font - Name of the Font Family

Muß ich das aktivieren? Oder die Zeile in die Funktion einbauen?

$s_Font = "Arial"

Ilse

Hallo $Var,

merci für deine Hilfe!
Und den GDI Link...

Naja, sieht alles mächtig aus...ich melde mich dann nächstes Jahr wieder.

Mach mich gleich dran und arbeite mich mal rein.

Vielen Dank

Liebe Grüße
Ilse

Hallo $Var,

super das klappt.
Eine GDI Frage noch:

Wie kann man die Schriftattribute ändern?
Hab das in der Hilfe gefunden

$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFamily, 12, 2)
$tLayout = _GDIPlus_RectFCreate(140, 110, 100, 20)

Wenn ich z.B. diese Zeile habe

Local $hImage = WTOB($iFile, Clipget(), "Arial", 40, 200, 200, 2, 2)

Wo finde ich, daß die Schrift z.B. rot, blau...ausgefüllt wird?
Bin in der Hilfe noch nicht so ganz durchgestiegen...

Gibt es vielleicht irgendwo ein GDIPlus Tutorial?

Grüße Ilse