Umrechnungsfaktor currentsize() zu setmode() [ERLEDIGT]

[Manfred]

Hi,

hat jemand eine Ahnung, ob man currentsize() irgendwie auf Setmode() umrechnen kann? Ich möchte gerne auf allen möglichen Auflösungen im Hybridmodus den Textbildschirm so groß machen, dass er mehr oder weniger immer den ganzen Bildschirm ausfüllt. Jetzt dachte ich mir, wen ich zu Anfang über SetAppwindow():currentsize() mir die maximal Größe ermittel dass ich daraus dann den setmode() Faktor errechnen kann. Muß nicht exact sein, aber so dicht wie möglich? (Bevor ich jetzt anfange etliches auszuprobieren.)

[UliTs]

Kann ich, aber erst ab Montag .

Uli

[Manfred]

=D>

[AUGE_OHR]

hi,
Hubert hat da doch ein Demo gemacht.
http://www.xbaseforum.de/viewtopic.php? ... it=setmode
http://www.xbaseforum.de/viewtopic.php?p=1539#1539

[Manfred]

Wie Demo? Ich finde da nichts.

[AUGE_OHR]

Wie Demo? Ich finde da nichts.

ich meinte das Crtfont.zip von Hubert.
es "berechnet" aber nicht sondern zeigt "nur" die Änderung mit dem neuen Font / Fenstergrösse.

IMHO kann man nur bestimmte Modi wie 43/50 x 132 anzeigen (VESA). Es kommt dabei auch auf die GFK an.

[Manfred]

Ich möchte keinen Font ändern, oder anpassen. Ich möchte einfach nur im Hybrid Modus über setmode() die Größe so einstellen, das der gesamte Bildschirm genutzt werden kann. Mit Fontgrößen habe ich bisher gespielt. (ich hoffe wir reden jetzt von ein und derselben Sache) Das hatte aber oft verzerrte Anzeigen gebracht.
z.B. was müßte man angeben bei 1024*768 oder 1280*1024 oder 1440*900 usw. Da es nun halt etliche Möglichkeiten gibt, wäre es schön, wenn man sie einfach von fall zu fall umrechnen könnte.

[Jan]

Manfred,

der normale Modus ist doch 24x80, wenn ich mich recht erinnere. Und das ist 640x480 Pixel, oder? Damit kannst Du doch ausrechnen, wie breit ein Zeichen in Pixeln ist, und wie hoch. Das kannst Du dann in Relation zur tatsächlich vorhandenen Bildschirmgröße setzen.

Ich könnte mir vorstellen, daß das so funktionieren sollte.

Jan

[Manfred]

Hm,

Du meinst also ich sollte setmode(24,80) machen und hätte ich 640*480 als Currentsize?

[Hans Zethofer]

so mach ich es ...

Code: Alles auswählen

   
   nBreite := 0
   nHoehe  := 0
   if m->aAufloesung[1] <= 820 .and. m->aAufloesung[2] <= 620
     nBreite := 0
     nHoehe  :=  0
   elseif m->aAufloesung[1] <= 925 .and. m->aAufloesung[2] <= 692
     nBreite := 0
     nHoehe  :=  5
   elseif m->aAufloesung[1] <= 1024 .and. m->aAufloesung[2] <= 615
     nBreite := 0
     nHoehe  :=  0
   elseif m->aAufloesung[1] <= 1024 .and. m->aAufloesung[2] <= 640
     nBreite := 0
     nHoehe  :=  4
   elseif m->aAufloesung[1] <= 1024 .and. m->aAufloesung[2] <= 768
     nBreite := 0
     nHoehe  := 10
   elseif m->aAufloesung[1] <= 1024 .and. m->aAufloesung[2] <= 820
     nBreite := 0
     nHoehe  := 13
   elseif m->aAufloesung[1] <= 1108 .and. m->aAufloesung[2] <= 703
     nBreite := 55
     nHoehe  := 7
   elseif m->aAufloesung[1] <= 1120 .and. m->aAufloesung[2] <= 840
     nBreite := 0
     nHoehe  := 13
   elseif m->aAufloesung[1] <= 1280 .and. m->aAufloesung[2] <= 720
     nBreite := 85
     nHoehe  :=  8.5
   elseif m->aAufloesung[1] <= 1280 .and. m->aAufloesung[2] <= 820
     nBreite := 85
     nHoehe  :=  8.5
   elseif m->aAufloesung[1] <= 1344 .and. m->aAufloesung[2] <= 840
     nBreite := 96
     nHoehe  :=  15
   elseif m->aAufloesung[1] >= 1536 .and. m->aAufloesung[2] >= 864
     nBreite := 125
     nHoehe  :=  15
   endif

   @ 3,1 DCBROWSE ::oBrowse ALIAS ::ARTSTAMM SIZE 135+nBreite,27+nHoehe;
         CURSORMODE XBPBRW_CURSOR_ROW;
         PRESENTATION aPres ; //
         ITEMSELECTED {|| DoA_Zeig(::ARTSTAMM,::lNew), ::oBrowse:refreshall() ,DC_SetAppFocus(::eSeek)  };
         WHEN {|| !(::ARTSTAMM)->(Eof())} ;
         SCOPE ;
         USEVISUALSTYLE

damit fülle ich den Bildschirm auf maximale Breite und Höhe
bei der Höhe bleibt die Statusleiste frei

eventuell muß man noch den einen oder anderten Wert leicht anpassen.

Ist nur als Vorlage zu sehen, einfach bei dir mal einbauen und ausprobieren

[Manfred]

Ich meinte sowas hier

Code: Alles auswählen

PROCEDURE AppSys()
          LOCAL aMaxSize := SetAppWindow():currentSize()                          // wie groß ist die maximale Auflösung
          LOCAL oCrt

           // XbpCRT-Fenster erzeugen
          oCrt := XbpCrt():New ()
          oCrt:title    := AppName()
          oCrt:icon     := 1
          oCrt:Create()

          // Presentation Space initialisieren
          oCrt:PresSpace()

          // XbpCrt wird aktives Fenster und Ausgabegerät

          SetAppWindow ( oCrt )
          IF aMaxSize[1] = 1920 .AND. aMaxSize[2] = 1080 // FullHD
             SetMode(74,238)
          ELSE
             SetMode(52,126)
          ENDIF
          CenterControl(oCrt)
          RETURN

Nur eben statt starrer Vorgaben flexibel.

[brandelh]

Hallo Manfred,
man kann doch (denke ich jetzt) mit currensize() die Größe des aktuellen Fensters ermitteln, und weiß die Zeilen und Spaltenanzahl.
Du weißt die Bildschirmauflösung und musst noch den Rand abziehen. Danach einfach ein Dreisatz.

80 Stellen entspricht z.B. 800 Pixel Breite (weiß ich jetzt nicht, nur ein Beispiel) ...
Du brauchst aber 1024 ...

80 zu 800 wie 1024 zu x => AktuelleFensterBreite / AktuelleStellenAnzahl * NeueFensterBreite => NeueStellenAnzahl

Diese int(NeueStellenAnzahl) solltest du nun eintragen und eventuell die Ränder noch berücksichtigen
Bei der Höhe geht es analog, wobei dort meist der Rand größer ist ... ich hoffe man kann beliebige Verhältnisse bei setmode() eintragen

[Manfred]

Hm,

jaja, der alte Dreisatz.

Ja, man kann so weit ich es probiert habe alle Kombinationen machen von 1,1 bis wasweißich,wasweißich. Das knallt dann nur über die Bildschirmgrenzen hinaus. Ob es jetzt eine obere Grenze gibt habe ich nicht getestet. FullHD hat mir genügt. Das Problem ist nur, z.B. der Vorschlag von Jan ergab ein total krummes Maß, aber auf keinen Fall 640*480. Ich hatte schon einiges probiert, bin aber dann irgendwie nicht dahin gelangt, wo ich dachte hinzukommen. Vielleicht habe ich auch was übersehen. Keine Ahnung.

[Jan]

?

640/80 = 8 Pixel Zeichenbreite
480/24 = 20 Pixel Zeichenhöhe

Was ist denn daran krumm?

Heißt also: Hast Du einen Monito in Full HD, dann ist der 1920x1080. Also
1920/8 = 240
1080 / 20 = 54
Also SetMode(54, 240)

Denk ich mal so.

Jan

[Manfred]

probier doch mal Deinen Vorschlag aus. Setze setmode(24,80) und dann mache mal currentsize() bei mir ergibt das keine 640*480.

[Jan]

Manfred,

ja klar. Nimm doch mal stattdessen :drawingArea:currentSize(). Passt das?

:currentsize() alleine nimmt ja das gesamte Fenster, inkl. Rahmen. Also mußt Du, wenn Du das Maximalmaß nimmst, 1 oder 2 Zeichen in der Breite abziehen für den Rahmen, und 2 oder 3 in der Höhe für Rahmen und Titelleiste.

Könnte sein.

Jan

[Manfred]

Aha,

wie macht man das bei SetAppWindow() ?

[Hans Zethofer]

Code: Alles auswählen

   // Größe vom DeskTop feststellen
   // und Anwendungsfenster dimensionieren
   m->aSizeMax:= SetAppWindow():currentSize() // Maximal PUBLIC
   DC_MsgBox(nil,nil,{str(aSizeMax[1])+" / "+str(aSizeMax[2])},"SetAppWindow()") 

[Manfred]

Hm,

das sollte eigentlich eine Scherzfrage an Jan sein. Ich mache es ja über SetappWindow() wie man in meinem Beispiel sieht. Ich wollte nur wissen, wie er seinen Vorschlag durchführen will. Das geht m.E. so nicht. Und zielt auch an meinem Problem vorbei.

[AUGE_OHR]

Ich möchte keinen Font ändern, oder anpassen. Ich möchte einfach nur im Hybrid Modus über setmode() die Größe so einstellen, das der gesamte Bildschirm genutzt werden kann. Mit Fontgrößen habe ich bisher gespielt. (ich hoffe wir reden jetzt von ein und derselben Sache) Das hatte aber oft verzerrte Anzeigen gebracht.

deshalb solltest du das CrtFont.ZIP dir mal ansehen.

Code: Alles auswählen

   IF aMaxSize[1] = 1920 .AND. aMaxSize[2] = 1080 // FullHD
      SetMode(74,238)
   ELSE
      SetMode(52,126)
   ENDIF

das wird NIE gehen !!! Man kann nicht "beliebige" Werte bei SetMode() verwenden sondern nur "feste" Definition (zumindest in der Höhe)
25x80, 43x80, 50x80, 60x80, 43x132, 50x132 und 60x132 sind IMHO die Werte siehe http://en.wikipedia.org/wiki/VESA_BIOS_Extensions die man im Textmodus verwenden kann.

[UliTs]

Jimmy,

Es geht nicht um den Text- sondern um den Hybridmodus .

Uli

[AUGE_OHR]

Es geht nicht um den Text- sondern um den Hybridmodus .

uuupps ...

ok dann probiere mal das hier

Code: Alles auswählen

#include "BOX.CH"
PROCEDURE MAIN
LOCAL aMode := {0,0}
LOCAL aSize  := {0,0}
LOCAL aFont  := {0,0}
LOCAL aDesk  := AppDesktop():currentsize()

   aFont[1] := SetAppWindow():FontWidth
   aFont[2] := SetAppWindow():FontHeight
   // "Umrechnung"
   aMode[2]  := INT(aDesk[1]/aFont[1])-1
   aMode[1]  := INT(aDesk[2]/aFont[2])-3  // 2.13
   // SetMode setzten
   SetMode(aMode[1],aMode[2])

   CenterControl(SetAppWindow())
   aSize  := SetAppWindow():currentsize()
   CLS
   @ 0,0,Maxrow(),MaxCol() BOX B_SINGLE
   @ Maxrow()/2,MaxCol()/3 SAY " Rows "+Var2Char(MaxRow())+;
                               " Cols "+Var2Char(MaxCol())+;
                               " Size "+Var2Char(aSize)   +;
                               " Font "+Var2Char(aFont)   +;
                               " S/F  "+;
            Var2Char({aSize[1]/aFont[1],aSize[2]/aFont[2]})

   @ Maxrow()-1,1 SAY ""
   WAIT
RETURN

[Manfred]

Danke Uli,

ich hatte es zwar direkt anfangs erwähnt.....

[Hans Zethofer]

@jimmy

FontWidth -> bringt einen Error -> Member-Variable für dieses Objekt unbekannt (Base/2240)

[Manfred]

Das gibt es ja auch nur für XbpCrt.