Beiträge von Gerhard Putschalka

Danke Joerg.

Ich versuchte alle möglichen Eintragungen, offensichtlich nicht Deine Version.
Allerdings wird zwar die Seite angezeigt, aber auswählen kann ich nichts - mit dem Cursor auf einen Link wird auch nicht die Hand angezeigt und ein Klick auf den Link bewirkt nichts.

Hallo,

ich habe hier ein Beispiel (von THFR) wie ich in einem Profanprogramm mithilfe von mshtml ein Bild anzeigen kann.

Kann mir wer helfen wie ich statt des Bildes eine html-Datei anzeigen kann? Laut der Profanhilfe sollte auch das möglich sein. Ist mir aber nicht gelungen.

Declare A$,H&,Verz$,Name$
  Window 0,0 - %MaxX,%MaxY
  AddHotKey 7001, 13, 0     ' Enter Taste
  Name$ = "E:\Bildshow\Test\0002.jpg"   ' Verzeichnis und Name des Bildes
  A$="mshtml:<img src='"+Name$+"'/>"    


  H& = @create("htmlWin",%hWnd,A$,4,0,0,%maxX-20,%maxY-60)
  While 0=0
    waitInput
    case MenuItem(7001) : Break   ' beenden mit der Enter Taste
  EndWhile
  DestroyWindow(H&)
  End

XProfan11 und Windows7

Vielen Dank
Gerhard.

Ganz einfach, aber sehr wirksam.
Vielen Dank.
Gerhard.:-D

Ich hoffe dass ich mit dieser Frage im richtigen Forum bin.

Wie kann ich in einem HTM die Größe der Anzeige eines Bildes von der im PC eingestellten Bildschirmauflösung abhängig machen?
Das Bild sollte auf dem Schirm möglichst groß angezeigt werden ohne über den Bildschirmrand hinauszugehen (ein Scrollen darf nicht erforderlich werden).

Es gibt sicher die Möglichkeit die eingestellte Bildschirmauflösung mit JavaScript zu ermitteln und die gefundenen Werte für die Breite und Höhe der Anzeige zu verwenden.

Beispiel: <img src="bild1.jpg" width="368" height="383">
Statt der hier fixen Werte 368 und 383 sollten die mit JavaScript ermittelten Werte (als Variabble!) verwendet werden.

Hat wer ein einfaches Beispiel wie die Ermittlung aussehen soll und wie diese Werte dann bei width und height einzusetzen sind?

Vielen Dank.
Gerhard.

Hallo Frank,

habe ich dort gefunden. Es hat mich nur verwirrt weil ich nicht vermutet habe LemonEd unter Sonstiges zu suchen.

Vorschlag: entweder die Links auch gleich bei Neuigkeiten einbauen, oder ein Hinweis, dass die Downloads unter "Sonstiges" zu finden sind.

Gruß
Gerhard.

Vielen Dank.
MüllSchlucker: der (neue) Editor ist toll (der Vorgänger hatte mir damals nicht so zugesagt). Damit kann ich wirklich problemlos reine Profansource und auch Xpia-Source bearbeiten.:smile::smile:

Frank: wo kann ich Deine Software herunterladen? LemonEd, WhichMachine und WKey sind zwar auf jeder Seite zu finden aber nirgends ist damit ein Link zum Download zu finden.
Oder geht das mit dem Firefox nicht?

Euch allen vielen Dank, das Problem ist damit gelöst.
Gerhard.

Ich habe zur Dateiendung .prf den XProfed zugeordnet. Dies erlaubt mir mit Doppelklick auf die Sourcedatei diese zu öffnen, zu bearbeiten und zu testen.
Also ein ganz normaler Fall.

Das Problem ist, wenn ich, nach der XPIA-Doku, im XProfed als Interpreter Xpia.exe anstelle des Profan.exe eintrage, so kann ich mit XPIA-Sources normal arbeiten. Möchte ich aber mit einer normalen Profansource (also nicht XPIA) arbeiten bei der der Eintrag $MAKE natürlich nicht vorhanden ist müsste ich wieder Profan.exe als Interpreter eintragen was eher umständlich ist.

Gibt es dafür eine vernünftige Lösung?

Würde ich statt mit Doppelklick auf die Source entweder XProfed.exe (für reine Profansources) oder xpia.exe (für XPIA-Sources) starten laufe ich in das selbe Problem.

Gruß
Gerhard.

Hallo Thomas,

mit HTML bin ich nicht sehr vertraut.

Meine neue Version der BildShow ist jetzt auf meiner HP. Vielleicht kannst Du Teile davon brauchen.

Gruß
Gerhard.

Hallo Thomas,

ich denke Deine WEB-Version ist die einfachste und erscheint mir als die braubarste Lösung.
Bist Du einverstanden dass ich sie in meiner BidlShow verwende und auf meine H.P. stelle?
Auch vielen Dank an Frank.

Gruß
Gerhard.

Hallo Thomas, hallo Frank,

vorerst vielen Dank. Jetzt habe ich einiges zum Probieren. :smile:

Wenn ich eine brauchbare Lösung gefunden habe melde ich mich wieder.

Gerhard.

Hallo Frank,

ich versuche jetzt einen anderen Weg. Dein Beispiel Grosse_Bitmap-Icons.prf schien mir dazu geeignet.

Zwar kann ich ein Bild 3008x2000 einfügen jedoch gelang es mir nur mit dem hor. Scoll-Balken das Bild in der Breite ganz anzuzeigen. Leider gibt es keinen vertikalen Scoll-Balken um das Bild auch in der Höhe zu verschieben.
Meine Frage: geht das überhaupt? Wenn ja: wie kann ich die Zeilenhöhe (für dieses Beispiel) auf 2000 einstellen?

Es wäre schön wenn das möglich wäre.

Von http://www.gerhard-putschalka.xprofan.com/test1.zip kannst Du meinen Versuch herunterladen.

Vielen Dank (für meine Lästigkeit).

Gerhard

Hallo Frank,
auf meinem Notebook mit W7 funktioniert mein Testprogramm problemlos. Auf einem anderen Notebook und auf einem Tower, beide mit XP, erscheint auch der BlueScreen.

Da die Bildanzeige im endgültigen Programm auch (noch andere) Fehler zeigt werde ich versuchen einen anderen Weg zu finden.

Vorerst vielen Dank.
Gerhard.

Hallo,

Im Prinzip funktioniert es so wie ich möchte.
Leider wird der Schirm zwischen den Bildern immer grau anstatt schwarz zu bleiben.

Ich musste in der Prozedur (Zeile 59/60) das Fenster mit Create erstellen um am Prozedurenende dieses wieder zerstören zu können.
Dabei tritt das Problem auf, dass ich das erstellte Fenster trotz CLS @RGB(0, 0, 0) nicht schwarz setzen kann.

Zum Test muss nur das Programm Test4.prf durch den nachstehenden Code ersetzt werden.

'
' Area-Control
' Beispiel von Detlef Jagolski
'
Set("ErrorLevel",0)


$I AN_AREA.INC


'$I Grossbild.inc
' zeige ein Bild in maximaler Größe an
' Einstiegsprozedur ist:
' Zeige_das_Bild   Parameters Pfad+Name des Bildes
' Return    nichts


'
' Area-Control Beispiel  von Detlef Jagolski
' Beispiel von Detlef Jagolski
'
' Mit Verwendung von an_area.inc von Frabbing für Paules-PC-Forum:
' http://www.paules-pc-forum.de/forum/xprofan/


Proc OnApplicationExit
  SubClass %hwnd, 0
  SubClass Frame1&, 0
EndProc


Proc OnApplicationInit
EndProc


SubClassProc
  SubclassArea
  return
  ' der Teil ist stillgelegt
  If (SubClassMessage(%hwnd, ~WM_SIZE) or SubClassMessage(%hwnd, ~WM_SIZING))
    x&=Width(%hwnd)
    Case x&>800:x&=800  'Darf nicht die maximale Breite überschreiten!
    y&=Height(%hwnd)
    Case y&>800:y&=800  'Darf nicht die maximale Höhe überschreiten!
    SetWindowPos Frame1& = 0,0-x&,y&;0
  EndIf
EndProc


Proc Zeige_das_Bild   ' die Prozedur wird mit der Esc-Taste verlassen
  Parameters Name$
  Declare Wx%,Wy%,Wv%,Ww%,Frame1&,Button1&,appexit%,WndH%
  Wx% = 00
  Wy% = 00
  Wv% = (%MaxX - 0)
  Ww% = (%MaxY - 0)

  Set("TrueColor",1)
  WindowStyle 16 + 64

  traceon   ' hier ist das Fenster noch schwarz (unverändert vom Aufruf)
  Traceoff

' anstelle von Window habe ich ein Fenster mit Create erstellt um am Ende der Prozedur dieses Fenster
' wieder zerstören zu können (DestroyWindow(%Hwnd) beendet das Hauptprogramm!!)
'  Window Wx%,Wy% - Wv%,Ww%
  WndH% = @Create("Window",%Hwnd,"",Wx%,Wy%,Wv%,Ww%)


  Cls @RGB(0, 0, 0)  ' hier sollte das eben erstellte Fenster schwarz werden. Ist aber hellgrau.
  traceon
  Traceoff

  ~SetClassLong(WndH%, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
 
  UseFont "MS Sans Serif",13,0,0,0,0
  SetDialogFont 1
 
  OnApplicationInit


  HPic& = @Create("hPic",-1,Name$)


  ' erstelle Area in der Größe des Bildes
  Frame1& = CreateArea(%BmpX,%BmpY,$20000,$50300000,0,0,Width(WndH%),Height(WndH%),WndH%)

  @Create("Bitmap", Frame1&, HPic&, 0, 0)
  SubClass WndH%, 1
  SubClass Frame1&, 1


  SetWindowPos WndH% = Wx%,Wy% - Wv%,Ww%;0
  WhileNot appexit%
    WaitInput
    If %key = 2
      DeleteObject HPic&
      appexit%=1
    ElseIf (%ScanKey = $1B)   ' Esc
      DeleteObject HPic&
      appexit%=1

    EndIf
  EndWhile
  OnApplicationExit
  DestroyWindow(WndH%)
  Return
EndProc


' ==============
' Programm Start
' ==============


Declare HPic&
Set("TrueColor",1)
Window 0,0 - %MaxX,%MaxY
Cls @RGB(0, 0, 0)


Zeige_das_Bild "0003.jpg"
'messagebox("Zwischen","",0)
Zeige_das_Bild "0002.jpg"
End

Beim Test sind 2 Traceon+Traceoff eingebaut. Diese zeigen, dass das durch Create Window erstellte neue Fenster nicht schwarz gesetzt wird.

Gibt es dafür eine Lösung?

Schönen Feiertag.

Gruß
Gerhard.

Hallo Thomas, hallo Frank,

danke. Das funktioniert wesentlich besser.

Viele Grüße
Gerhard.

Hallo Frank,

Ich möchte eine Prozedur erstellen mit der ich in einem Fenster mithilfe von CreateArea ein JPG-Bild in voller Größe anzeigen kann (mit scrollen).

Grundsätzlich funktioniert es schon.

Da ich bei DrawPic erfolglos ein Neuzeichnen versuchte zeige ich das Bild mit einem

@Create("PicButton",Frame1&,HPic&,1,1,%BmpX,%BmpY)

an.
Nur ruckelt das Bild beim Scrollen.

Da ich meine, dass PicButton nur eine Ausweichlösung ist würde ich DrawPic bevorzugen.
Und möglicherweise würde es mit DrawPic nicht ruckeln.

Das Programm (erstellt mit XProfan11) mit 2 Bildern kann von http://www.gerhard-putschalka.xprofan.com/Test4.zip heruntergeladen werden (Ungef. 5,4MB).

Gruß
Gerhard.

Hallo Frank,

wie immer erfolgte Deine Antwort sehr prompt!

Und sie beantwortet sehr gut meine Anfrage.

Vielen Dank.
Gerhard.

Wie kann ich ein Fenster, viel höher als der Bildschirm, erstellen und das Fenster beliebig in der Höhe mit einer Scroll-Leiste auf- und abschieben?

Geht das überhaupt?

Ähnlich wie das Fenster Arbeitsplatz bzw. Computer.

Schöne Feiertage.
Gruß
Gerhard.

Das war aber sehr prompt! Danke.

Die Frage ist beantwortet.

Hnd& = @Create("hSizedPic", -1,File$, 1240, 700, 1)
  Messagebox(@Str$(%BmpX),@Str$(%BmpY),0)

Und es ist DIE Lösung.

Danke
Gerhard.

Wie kann ich mit reinen Profanbefehlen (evtl. mit API) die Größe einer JPG Grafik ermitteln?

In PrFellow gibt es zwar Beispiele (GrafDim,...Grafikauflösung2) die aber bei JPG manchesmal falsche Werte liefern.
Mit der TwJPeg.dll von Andreas Miethe werden zwar die richtigen Werte geliefert aber nur zur Ermittlung dieser Werte möchte ich nicht extra eine DLL einsetzen.

Vielen Dank.
Gerhard.
XProfan11.2 und Windows7

Horst Deine Version ist schon ok, aber ich wollte eine Übersicht anzeigen. Auch wenn ich die Bilder größer anzeige muss ich viel scrollen.

Frank. Genauso habe ich die Abfrage ja gemacht. Aber erst mit der aktuellen ListView-Version funktioniert es richtig. Ich bin froh, dass ich nicht aufgeben muss.
Vielen Dank.

Gerhard.