Wenn $key = "middle" wird das Scrollrad "gedrückt",
aber wenn $key <> "middle" welche Taste/n werden dann betätigt?
Und würde es stören die Begriffe wie "middle" durch zahlen zu ersetzen?
Wenn $key = "middle" wird das Scrollrad "gedrückt",
aber wenn $key <> "middle" welche Taste/n werden dann betätigt?
Und würde es stören die Begriffe wie "middle" durch zahlen zu ersetzen?
Sorry hab mich schlecht ausgedrückt.
Das angezeigte Bild ist als übersicht verkleinert,
nun möchte ich schrittweise bis zur Originalauflösung heranzoomen.
Habe per "GUICtrlCreatePic()" ein Bild gelanden und möchte nun daneben, wie mit einer Lupe, nen Ausschnitt vergrößern.
Habe es schon hiermit versucht:
Lupe
Bei stärkerer Vergrößerung verpixelt es aber.
Gibt es eine Möglichkeit die volle Auflösung auszunutzen?
Danke.
Nein ich habe noch nichts umgesetzt.
Aber hier eine Erklärung zu PDF.
Bei Unklarheiten steh ich jederzeit zur Verfügung.
Im Anhang befindet sich eine .PDF und eine .Doc Datei.
Endung bitte wieder anpassen. Ich hoffe das dadurch nichts verloren ging, aber diese Formate kann man nicht hochladen.
@Tam0r Ja es wurde gepostet damit es jeder nutzen kann.
Leider ist die PDF Vorlage (die Ihr nutzt) fehlerhaft und kann mit Programmen wie Foxit Reader nicht gelesen werden. :weinen:
Ich habe das mitlerweile behoben.
Wenn Intresse vorhanden ist, poste ich eine kleine Erklärung.
Bis jetzt ist möglich:
- einzelne Zeichen zu Formatieren
- Linien zeichnen
- Links einfügen
- kleine Bilder einfügen (schwer umsetzbar und unkomprimiert)
- Rechtecke zeichnen
Ja danke.
Wer lesen kann ist klar im Vorteil ,würd ich sagen.
Steht ja alles in der Hilfe. :hammer:
Ist es möglich die aktuelle Position eines Fensters zu ermittel,
ich möchte es dem Nutzer nämlich nicht verbieten das ganze zu verschieben.
Danke.
@Markus einfach nur super :party4:
@DJMANU
wenn du möchtest kannst du die GUI basteln, ich ägere mich derweil weiter mit dem PDF Quellcode rum. :weinen: :weinen: :weinen:
Schriftarten:
Times New Roman, Arial, Courier New und Symbol
Schriftgrößen:
(siehe erstes Script)
Farben sind auch schon möglich (in RGB)
kein muss, natürlich nur wenn du Bock hast
wer mithelfen will, kann sich unter
http://partners.adobe.com/public/develop…eference.html#2
die Erklärung ziehen
(diese erinnert an IKEA, es geht vieles nicht so wie beschrieben)
Hätte das ganze wohl eher in der Hilfe Abteilung schreiben sollen.
PDF ist zwar kein Problem, aber bei _GuiCtrlRichEditCreate habe ich keinen Durchblick.
Wie kann man die Formatierung einzelner Zeichen ändern, bzw.
den Text dann mit kompletter Formatierung auslesen.
Ja danke top idee, ich schreibe nen PDF Writer, heute aber nicht mehr.
Bis jetzt ist leider nur Text drin, später folgt mehr.
Mit ein paar kleinen Änderungen, auf die ich heute keine Lust mehr habe,
kann man zumindest Zeilenweise die Formatierung ändern.
#include <GUIConstants.au3>
GUICreate("PDF-Creator",500,520)
GUICtrlCreateGroup("Seitenformat",10,30,170,70)
GUICtrlCreateGroup("Rand (mm)",190,30,105,70)
GUICtrlCreateGroup("Schriftformat",315,30,175,70)
GUICtrlCreateRadio("Querformat",20,70)
GUICtrlCreateLabel("Autor:",10,475,100,20)
GUICtrlCreateLabel("Titel:",120,475,100,20)
GUICtrlCreateLabel("links:",200,50,30,20)
GUICtrlCreateLabel("oben:",200,75,30,20)
$Start = GUICtrlCreateButton("erzeuge PDF",370,480,120,30)
GUICtrlSetFont(-1,11,600)
$Autor = GUICtrlCreateInput("",10,490,100,20)
$Titel = GUICtrlCreateInput("",120,490,100,20)
$Text = GUICtrlCreateEdit("Bitte geben sie hier Ihren Text ein.",10,120,480,345)
$Schrift = GUICtrlCreateCombo("8",325,48,45,20)
GUICtrlSetData(-1,"9|10|11|12|14|16|18|20|22|24|26|28|36|48|72","12")
$Schriftart = GUICtrlCreateCombo("Times-Roman",380,48,100,20)
GUICtrlSetData(-1,"Helvetica|Courier","Times-Roman")
$Size = GUICtrlCreateCombo("A4",110,60,50,20)
GUICtrlSetData(-1,"A3","A4")
$Format = GUICtrlCreateRadio("Hochformat",20,50)
GUICtrlSetState(-1,$GUI_CHECKED)
$Rand_y = GUICtrlCreateInput("24",240,48,45,20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1,999,0)
$Rand_x = GUICtrlCreateInput("25",240,72,45,20)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1,999,0)
$Fett = GUICtrlCreateCheckbox("Fett",325,73,35,20)
$Kursiv = GUICtrlCreateCheckbox("Kursiv",370,73,60,20)
GUISetState ()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit
If $msg = $Start Then ExitLoop
WEnd
$Pfad = FileSaveDialog("Speichern",@DesktopDir,"PDF (*.pdf)",16)
If StringRight($Pfad,4) = ".pdf" Then
Else
$Pfad = $Pfad & ".pdf"
EndIf
$Fett = GUICtrlRead($Fett)
$Kursiv = GUICtrlRead($Kursiv)
$Schriftart = GUICtrlRead($Schriftart)
$Rand_x = GUICtrlRead($Rand_x)
$Rand_y = GUICtrlRead($Rand_y)
$Format = GUICtrlRead($Format)
$Autor = GUICtrlRead($Autor)
$Titel = GUICtrlRead($Titel)
$Size = GUICtrlRead($Size)
$Text = GUICtrlRead($Text)
$Schrift = GUICtrlRead($Schrift)
FileDelete($Pfad)
$File = FileOpen($Pfad, 1)
$Zeilen = 1
If $Size = "A4" Then
$Size_x = 210
$Size_y = 297
ElseIf $Size = "A3" Then
$Size_x = 297
$Size_y = 420
EndIf
If $Fett = $GUI_CHECKED Or $Kursiv = $GUI_CHECKED Then
If $Schriftart = "Times-Roman" Then
If $Fett = $GUI_CHECKED Then
$Schriftart = "Times-Bold"
ElseIf $Kursiv = $GUI_CHECKED Then
$Schriftart = "Times-Italic"
EndIf
If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Times-BoldItalic"
ElseIf $Schriftart = "Helvetica" Then
If $Fett = $GUI_CHECKED Then
$Schriftart = "Helvetica-Bold"
ElseIf $Kursiv = $GUI_CHECKED Then
$Schriftart = "Helvetica-Oblique"
EndIf
If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Helvetica-BoldOblique"
Else
If $Fett = $GUI_CHECKED Then
$Schriftart = "Courier-Bold"
ElseIf $Kursiv = $GUI_CHECKED Then
$Schriftart = "Courier-Oblique"
EndIf
If $Fett = $GUI_CHECKED And $Kursiv = $GUI_CHECKED Then $Schriftart = "Courier-BoldOblique"
EndIf
EndIf
If $Format = $GUI_UNCHECKED Then
$Size = $Size_x
$Size_x = $Size_y
$Size_y = $Size
EndIf
If $Schrift = 8 Then
$Abstand = 9
ElseIf $Schrift = 9 Then
$Abstand = 11
ElseIf $Schrift = 10 Then
$Abstand = 12
ElseIf $Schrift = 11 Then
$Abstand = 13
ElseIf $Schrift = 12 Then
$Abstand = 15
ElseIf $Schrift = 14 Then
$Abstand = 17
ElseIf $Schrift = 16 Then
$Abstand = 19
ElseIf $Schrift = 18 Then
$Abstand = 21
ElseIf $Schrift = 20 Then
$Abstand = 24
ElseIf $Schrift = 22 Then
$Abstand = 26
ElseIf $Schrift = 24 Then
$Abstand = 28
ElseIf $Schrift = 26 Then
$Abstand = 30
ElseIf $Schrift = 28 Then
$Abstand = 32
ElseIf $Schrift = 36 Then
$Abstand = 41
ElseIf $Schrift = 48 Then
$Abstand = 55
Else
$Abstand = 83
EndIf
If Not StringInStr($Text,@CRLF) = 0 Then
$Text = StringSplit($Text,@CRLF)
$Zeilen = $Text[0] / 2 + 1
EndIf
; Umrechnung
$Wert = 2.834175
$Size_y = Round($Size_y * $Wert)
$Size_x = Round($Size_x * $Wert)
$Rand_x = Round($Rand_x * $Wert)
$Rand_y = Round($Rand_y * $Wert)
FileWriteLine($File,"%PDF-1.2")
FileWriteLine($File,"%âãÏÓ")
FileWriteLine($File,"1 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Author ("&$Autor&")")
FileWriteLine($File,"/CreationDate (D:"&@YEAR&@MON&@MDAY&@HOUR&@MIN&@SEC&")")
FileWriteLine($File,"/Creator (Ahnungslos)")
FileWriteLine($File,"/Producer (Ahnungslos)")
FileWriteLine($File,"/Title ("&$Titel&")")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"4 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Font")
FileWriteLine($File,"/Subtype /Type1")
FileWriteLine($File,"/Name /F1")
FileWriteLine($File,"/Encoding 5 0 R")
FileWriteLine($File,"/BaseFont /"&$Schriftart)
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"5 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Encoding")
FileWriteLine($File,"/BaseEncoding /WinAnsiEncoding")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"6 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File," /Font << /F1 4 0 R >>")
FileWriteLine($File," /ProcSet [ /PDF /Text ]")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"7 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Page")
FileWriteLine($File,"/Parent 3 0 R")
FileWriteLine($File,"/Resources 6 0 R")
FileWriteLine($File,"/Contents 8 0 R")
FileWriteLine($File,"/Rotate 0")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"8 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Length 9 0 R")
FileWriteLine($File,">>")
FileWriteLine($File,"stream")
FileWriteLine($File,"BT")
If $Zeilen = 1 Then
FileWriteLine($File,"/F1 "&$Schrift&" Tf")
FileWriteLine($File,"1 0 0 1 "&$Rand_y&" "&$Size_y - $Rand_x - $Abstand&" Tm")
FileWriteLine($File,"("&$Text&") Tj")
Else
For $Counter = 1 To $Zeilen
FileWriteLine($File,"/F1 "&$Schrift&" Tf")
FileWriteLine($File,"1 0 0 1 "&$Rand_y&" "&$Size_y - $Rand_x - $Abstand * $Counter&" Tm")
FileWriteLine($File,"("&$Text[$Counter * 2 - 1]&") Tj")
Next
EndIf
FileWriteLine($File,"ET")
FileWriteLine($File,"endstream")
FileWriteLine($File,"endobj")
FileWriteLine($File,"9 0 obj")
FileWriteLine($File,"78")
FileWriteLine($File,"endobj")
FileWriteLine($File,"2 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Catalog")
FileWriteLine($File,"/Pages 3 0 R")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"3 0 obj")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Type /Pages")
FileWriteLine($File,"/Count 1")
FileWriteLine($File,"/MediaBox [ 0 0 "&$Size_x&" "&$Size_y&" ]")
FileWriteLine($File,"/Kids [ 7 0 R ]")
FileWriteLine($File,">>")
FileWriteLine($File,"endobj")
FileWriteLine($File,"0 10")
FileWriteLine($File,"0000000000 65535 f ")
FileWriteLine($File,"0000000013 00000 n ")
FileWriteLine($File,"0000000591 00000 n ")
FileWriteLine($File,"0000000634 00000 n ")
FileWriteLine($File,"0000000156 00000 n ")
FileWriteLine($File,"0000000245 00000 n ")
FileWriteLine($File,"0000000307 00000 n ")
FileWriteLine($File,"0000000372 00000 n ")
FileWriteLine($File,"0000000453 00000 n ")
FileWriteLine($File,"0000000576 00000 n ")
FileWriteLine($File,"trailer")
FileWriteLine($File,"<<")
FileWriteLine($File,"/Size 10")
FileWriteLine($File,"/Root 2 0 R")
FileWriteLine($File,"/Info 1 0 R")
FileWriteLine($File,">>")
FileWriteLine($File,"startxref")
FileWriteLine($File,"712")
FileWriteLine($File,"%%EOF")
FileClose($File)
Alles anzeigen
Ich möchte es ändern und nicht auslesen das is ja das problem?
Und ich weiß nicht wie.
Ich möchte per Script die Dateiinfos von MP3's ändern:
Interpret = Ordner indem sich die Datei befindet
Titel = Dateiname
geht das? Habe nämlich keine Lust für ca. 500 Titel das per Hand zumachen.
Lieber doppelt als gar nicht
Danke.
Hat keiner ne Idee???????????????
Und haste ne Idee?
.Visible = "True" oder
.Visible = 1
dürfte gehen
bin leider noch nicht zu hause und kann es deshalb nicht testen.
Excel wird sichtbar mit .visible = 1 ob das bei word geht weiss ich jetzt nicht
ja richtig, und in vb klappts (per Macro), aber da muss man es ja auch nicht öffnen, speichern und schließen
???