Scrollbalken, um größere Bitmap in kleinerem Fenster darzustellen

Martin_K

Als Druckvorschau laß ich mir die Seite in ein Speicherbitmap malen und bringe es dann so auf den Bildschirm:

Code

Vorschau& = @Create("Window", %hWnd, "", x%, y%, 690, z%)
    MCls 690,1010, 0
    StartPaint -1
   'hier wird gemalt...
    var tmp& = Create("hpic",0,"&MEMBMP",1024,768)
    bitmap&=@Create("Bitmap",Vorschau&,tmp&,0,0)

Kein Problem beim Neunzehnzöller - doch auf dem kleinen Laptop muß ich das Fenster entsprechend flacher dimensionieren und nun passt meine Bitmap nicht mehr rein. Verkleinern möchte ich die Darstellung nicht, da ich meinen Text sonst nicht mehr lesen kann, ich hab aber denDreh nicht gefunden, wie ich nun Scrollbalken ins Vorschaufenster reinbekomme, um das Bild schieben zu können. Tip?

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

Frank A.

Da dürfte die Scroll-Area interessant sein für dich: http://www.paules-pc-forum.de/forum/dlls-inc…en-control.html

Martin_K

danke, ich probiers aus.

Martin_K

Die Routine macht genau das, was ich brauche, thanx dafür.

Frank A.

:-)Prima.

Martin_K

hättest du ne kurze Erläuterung, was die "$"-Parameter für ne Funktion haben?

Code

area_plus& = FA_CreateArea(640,960,$0,$50300000,1,1,690,z%,Vorschau&)

die Include-Datei ist mir als Gelegenheitsprogrammierer zu technisch, um da was rauszulesen...

Frank A.

Müsste eine Kombination dieser ganz nomalen Windows-Styles sein:

Def &WS_CHILD $40000000
Def &WS_HSCROLL $100000
Def &WS_VISIBLE $10000000
Def &WS_VSCROLL $200000

Hier kannst du die Bedeutung nachlesen:
Window Styles

Martin_K

thanx, wieder ein Mysterium aufgeklärt...

Frank A.

Du kannst ja mal spasseshalber mit den Styles herumspielen. Da entstehen oft lustige Dinge (Rahmen usw.) und das lernt sogar noch.

Martin_K

mit welchem Befehl kann ich die Scrollbalken auf Null setzen?
Wenn ich nun meine Druckvorschauseite nach unten scrolle und mir dann per Tastendruck die nächste Seite als Bitmap in die Area reinlade, dann fängt er mit der Bitmap im sichtbaren Fenster oben links an, anstatt im nicht sichtbaren, weggescrollten Bereich.

Code

tmp& = create("hpic",0,"&MEMBMP")
bitmap& = create("Bitmap",area_plus&, tmp&, 0,0)

Oder gibts ne andere Möglichkeit, die Bitmap reinzuladen?

Frank A.

Hi Martin,

ich hab die Sachen jetzt nicht mehr so im Kopf, aber in der Include müsste ja die Lösung zu finden sein, wenn du dir die Programmierung mal ansiehst. Ich komme heute nicht mehr dazu, vielleicht aber morgen.

THFR

Nach einer Möglichkeit, den Scrollbalken zu positionieren suche ich auch noch.
Bisher behelfe ich mich so:

Code

'
$H windows.ph
$H messages.ph


Cls ~GetSysColor(15)
'
Usefont "MS Sans Serif",10,0,0,0,0
SetDialogFont 1
declare bmp1&,bmp2&


BILD_AUSSCNITT
WaitInput
DeleteObject bmp1&
DeleteObject bmp2&
END


SubClassProc


  x_plus&=~GetKeyState(1) & $8000
  If x_plus&


    If ( SubClassMessage(area_plus&, ~WM_VSCROLL) and (&sLParam=0) )


      ~GetWindowRect(area_plus&,rect_plus#)
      maxy_plus&=Long(rect_plus#,12)-Long(rect_plus#,4)+1
      x_plus&=&sWParam & $0000ffff
      a_plus&=1


      If x_plus&=~SB_LINEDOWN
        isy_plus&=8
      ElseIf x_plus&=~SB_PAGEDOWN
        isy_plus&=maxy_plus&


      ElseIf x_plus&=~SB_LINEUP
        isy_plus&=-8
      ElseIf x_plus&=~SB_PAGEUP
        isy_plus&=-maxy_plus&


      ElseIf x_plus&=~SB_THUMBTRACK
        so_plus!=yy_plus!
        yy_plus!=&sWParam >> 16
        isy_plus&=-(so_plus!-yy_plus!)
        a_plus&=0
      EndIf


      If a_plus&


        yy_plus!=yy_plus!+isy_plus&
        If yy_plus!<0
          isy_plus&=(isy_plus&+(0-yy_plus!))
          yy_plus!=0
        EndIf
        If yy_plus!>(virty_plus&-maxy_plus&)
          isy_plus&=isy_plus&-(yy_plus!-(virty_plus&-maxy_plus&))
          yy_plus!=virty_plus&-maxy_plus&


        EndIf
      Endif


      Long vs_plus#,0=28
      Long vs_plus#,4=~SIF_ALL
      Long vs_plus#,12=virty_plus&


      Long vs_plus#,16=maxy_plus&


      Long vs_plus#,20=yy_plus!
      ~SetScrollInfo(area_plus&,~SB_VERT,vs_plus#,1)
      ~ScrollWindow(area_plus&,0,-isy_plus&,0,0)
      ~UpdateWindow(area_plus&)


    ElseIf (SubClassMessage(area_plus&, ~WM_HSCROLL) and (&sLParam=0))


      ~GetWindowRect(area_plus&,rect_plus#)
      maxx_plus&=Long(rect_plus#,8)-Long(rect_plus#,0)+1
      x_plus&=&sWParam & $0000ffff
      a_plus&=1


      If x_plus&=~SB_LINERIGHT
        isx_plus&=8
      ElseIf x_plus&=~SB_PAGERIGHT
        isx_plus&=maxx_plus&


      ElseIf x_plus&=~SB_LINELEFT
        isx_plus&=-8
      ElseIf x_plus&=~SB_PAGELEFT
        isx_plus&=-maxx_plus&


      ElseIf x_plus&=~SB_THUMBTRACK
        so_plus!=xx_plus!
        xx_plus!=&sWParam >> 16
        isx_plus&=-(so_plus!-xx_plus!)
        a_plus&=0
      EndIf


      If a_plus&


        xx_plus!=xx_plus!+isx_plus&


        If xx_plus!<0
          isx_plus&=(isx_plus&+(0-xx_plus!))
          xx_plus!=0
        EndIf
        If xx_plus!>(virtx_plus&-maxx_plus&)
          isx_plus&=isx_plus&-(xx_plus!-(virtx_plus&-maxx_plus&))
          xx_plus!=virtx_plus&-maxx_plus&


        EndIf
      Endif


      Long vs_plus#,0=28
      Long vs_plus#,4=~SIF_ALL
      Long vs_plus#,12=virtx_plus&


      Long vs_plus#,16=maxx_plus&


      Long vs_plus#,20=xx_plus!
      ~SetScrollInfo(area_plus&,~SB_HORZ,vs_plus#,1)
      ~ScrollWindow(area_plus&,-isx_plus&,0,0,0)
      ~UpdateWindow(area_plus&)


    EndIf


  EndIf
  Case %sMessage=~WM_COMMAND: SendMessage(%hwnd,%sMessage,&sWParam,&sLParam)


  Case (SubClassMessage(area_plus&, ~WM_HSCROLL) and (&sLParam<>0)): SendMessage(%hwnd,%sMessage,&sWParam,&sLParam)
  Case (SubClassMessage(area_plus&, ~WM_VSCROLL) and (&sLParam<>0)): SendMessage(%hwnd,%sMessage,&sWParam,&sLParam)




EndProc


Proc Blatt_Basis
  ~GetWindowRect(area_plus&,rect_plus#)
  maxy_plus&=Long(rect_plus#,12)-Long(rect_plus#,4)+1
  Long vs_plus#,0=28
  Long vs_plus#,4=~SIF_ALL
  Long vs_plus#,12=virty_plus&
  Long vs_plus#,16=maxy_plus&
  Long vs_plus#,20=yy_plus!
  ~SetScrollInfo(area_plus&,~SB_VERT,vs_plus#,1)
  maxx_plus&=Long(rect_plus#,8)-Long(rect_plus#,0)+1
  Long vs_plus#,0=28
  Long vs_plus#,4=~SIF_ALL
  Long vs_plus#,12=virtx_plus&
  Long vs_plus#,16=maxx_plus&
  Long vs_plus#,20=xx_plus!
  ~SetScrollInfo(area_plus&,~SB_HORZ,vs_plus#,1)
EndProc


Proc BILD_AUSSCNITT


 Declare a_plus&,x_plus&,y_plus&,text$,area_plus&, klasse$,last_plus&


 Declare isx_plus&,isy_plus&,xx_plus!,yy_plus!,maxx_plus&,maxy_plus&,rect_plus#,vs_plus#
 Declare virtx_plus&,virty_plus&,so_plus!,but1_plus&,but2_plus&,but3_plus&,but4_plus&,but5_plus&
 Declare tb.x%


 Dim rect_plus#,16
 Dim vs_plus#,512


 virtx_plus&=400
 virty_plus&=500


 var bild.dlg&=Createdialog(%hwnd,"Bild",300,100,430,600)


 but1_plus&=CreateButton(bild.dlg&,"Bild",8,4,66,26)
 @Create("Tooltip",%hWnd,but1_plus&,"Bild öffnen")


 but3_plus&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54000000, 92, 8, 200, 20, bild.dlg&, 2011, %hInstance, $00010004)
 sendmessage(but3_plus&,$405,100,100)
 but4_plus&=CreateButton(bild.dlg&,"Ende",340,4,62,26)


 klasse$="#32770"
 text$=""
 area_plus&=~CreateWindowEx($20000,addr(klasse$),addr(text$),$50300000,8 ,48 ,400 ,500 ,bild.dlg&,0,%hinstance,0)


 var Hdlg&=control("Dialog","Hauptdialog",$58000000,0,0,2110,2150,area_plus&,5000,0) 'zur Bildaufnahme


 Blatt_Basis


 SubClass area_plus&, 1
 Declare bild.file$


 While 1


  WaitInput


  Case (%key=2) OR GetFocus(but4_plus&):Break
  If GetFocus(but1_plus&)
   bild.file$ = @LoadFile$("ÖFFNE","Bilder|*.bmp;*.jpg;*.png")
    if len(bild.file$)>0
      DeleteObject bmp1&
      x_plus&=SendMessage(but3_plus&,$400,0,0)
      bmp1&=@Create("hPic",-1,bild.file$)
      virtx_plus&=%BmpX
      virty_plus&=%BmpY
      Blatt_Basis
      bmp1&=@Create("hSizedPic",-1,bild.file$,(%BmpX*x_plus&/100),(%BmpY*x_plus&/100),1)
      SetWindowPos bmp2&=0,0-0,0
      bmp2&=@Create("Bitmap", Hdlg&, bmp1&, 0, 0)
    endif


  ElseIf GetFocus(but3_plus&)
    x_plus&=SendMessage(but3_plus&,$400,0,0)


    If (x_plus&<>last_plus&) AND (x_plus&>2)
      last_plus&=x_plus&


      If len(bild.file$)>0
        SetWindowPos bmp2&=0,0-0,0
        DeleteObject bmp1&
        bmp1&=@Create("hPic",-1,bild.file$)
        bmp1&=@Create("hSizedPic",-1,bild.file$,(%BmpX*x_plus&/100),(%BmpY*x_plus&/100),1)
        bmp2&=@Create("Bitmap", Hdlg&, bmp1&, 0, 0)
      EndIf
    EndIf
  EndIf
  ~RedrawWindow(bild.dlg&, 0, 0, ~RDW_FRAME | ~RDW_INVALIDATE |  ~RDW_ALLCHILDREN | ~RDW_UPDATENOW | ~RDW_INTERNALPAINT)


Endwhile


SubClass area_plus&, 0
Dispose rect_plus#
Dispose vs_plus#
DestroyWindow(Hdlg&)
DestroyWindow(Bild.dlg&)
EndProc

Alles anzeigen

Da bleibt das Bild weiterhin an der "Pos. 0,0".
nonights, eine Alternative ist das Bild zu speichern und dann in einem @Create("HTMLWin", H, S, N, X, Y, DX, DY) anzuzeigen.

Gruß Thomas

Frank A.

War heute nicht zuhause und morgen auch nicht viel, hab halt Urlaub. Aber ich schau noch nach.

Frank A.

Ok, hatte grad mal etwas Zeit zum Schauen, aber ist nix bei herum gekommen. Leider gelingt es mir auch nicht, Messages aus der Hauptschleife direkt an das Area zu schicken, zumindest kommt dort nichts an. XProfan's Subclassing scheint irgendwo noch dazwischen zu funken. Bin leider erstmal überfragt.

Frank A.

Der Vorständigkeit halber hier die empfohlene MS-Lösung für eine scrollende Bitmap:

How to Scroll a Bitmap

Martin_K

du liebe Güte, ich wollte das Rad nicht neu erfinden
Bevor ich mich mit diesem Code ernsthaft befasse, behelfe ich mir mit irgendeiner Krücke...

THFR

Dann speicher doch dein gemalten Seiten und lebe mit einem HTMLWin-Control.
Oder Seite für Seite und das alte Control vorher löschen.

Code

Def @Getsyscolor(1) !"USER32","GetSysColor"
declare MYAREA&,bild$[], n%
cls GetSysColor(15)


Bild$[1]= "E:\profan\Bildbetrachter\Testbild.bmp"
Bild$[2]= "E:\profan\Bildbetrachter\Tups.jpg"
n%=2
ZeigeBild
while 1
waitinput
wend


Proc ZeigeBild
  declare a$
  a$="mshtml:"
  Whileloop 1,n%,1
   a$=a$+"<p><img src='"+Bild$[&loop]+"' /></p>"
  wend
  MYAREA&=@create("htmlWin",%hWnd,a$,4,10,10,360,310)
EndProc

Alles anzeigen

Gruß Thomas

Martin_K

nachdem es bei mir saisonbedingt ruhiger wird, komm ich wieder zum programmieren... Thomas, deine Idee mit dem HtmlWin-Control war hervorragend, das macht genau das, was ich brauche, thanx dafür!

Jetzt mitmachen!