FiveTech Support Forums

#define DT_WORDBREAK         16
function MetroMsgInfo2( cTitel, cAnzeige1 )

   local  lVar        := .f.
   local  oDlg, oBTNNaviWeiter
   local  nWidth      := GetSysMetrics( 0 )
   local  nHeight     := GetSysMetrics( 1 )
   local  nLine       := 0
   local  nRowSpace   := 20
   local  nRowOffset  := 20

   local  hOldFont
   local  nTop           := 0
   local  nLeft      := 0
   local  nBottom        := 0
   local  nRight         := nWidth 
   *----------------------------------------------------------
    
    nLeft   := nWidth/7/2.05
    nHeight := (nHeight - 100)/ 3 * 2 - nLine
    
   nLine := 16
      DEFINE DIALOG oDlg ;
           TITLE "Auswahl" ;
            FROM 100, -6 ;
              TO nHeight, nWidth + 6 ;
           PIXEL ;
           STYLE nOr( DS_MODALFRAME, WS_POPUP ) ;
           COLOR CLR_WHITE, CLR_GREEN ;
            FONT Setup():oFntMedium


   nLine := 1
   @ nRowOffset * nLine , nLeft ;
      SAY cTitel ;
      OF oDlg ;
      PIXEL ;
      FONT Setup():oFntMetroGross ;
      COLOR CLR_WHITE, CLR_GREEN

   nLine   := 9
   nTop    := nRowOffset * nLine
   nBottom := nTop + 420/2.05
   nRight  := nLeft + nWidth/2

   *----------------------------------------------------------
   nLine := 9
   @ nRowOffset + nRowSpace * nLine, nLeft  ;
      FLATBTN oBTNNaviWeiter ;
      PROMPT "OK" ;
      FONT Setup():oFntMedium ;
      SIZE 76/2.05, ( 24 ) /2.05 ;
      OF oDlg ;
      ACTION ( lVar := .t., oDlg:End() ) ;
      COLOR CLR_GREEN, RGB( 210, 210, 210 )

   nLeft := nLeft * 2.05
   ACTIVATE DIALOG oDlg ;
          ON PAINT ( SetBkMode( oDlg:hDC, 1 ),;
          hOldFont := SelectObject( oDlg:hDC, Setup():oFntMetroCombo:hFont ),;
          SetTextColor( oDlg:hDC, CLR_WHITE ),;
          DrawTextEx( oDlg:hDC, cAnzeige1, {nTop, nLeft, nBottom, nRight }, DT_WORDBREAK ),;
          SelectObject( oDlg:hDC, hOldFont ) )

RETURN NIL
//--------------------------------------------------------------------

Have you a function to justify a text of a say on a dialog
sample
#include "Fivewin.ch"
#include "constant.ch"

#define LIGHTCYAN nRGB( 203, 225, 252 )

Functiopn test()

Local nBottom := 20
Local nRight := 42
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H

DEFINE DIALOG oDlg ;
SIZE nWidth, nHeight PIXEL ;
TITLE 'Donazione' ;
GRADIENT { { 1,CLR_WHITE, LIGHTCYAN } } TRANSPARENT
oDlg:lHelpIcon := .F.
oDlg:nStyle := nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, 4 )

cMessage:= 'Per poter utilizzare il pacchetto è ora necessario indicare la Chiave di Attivazione Procedura. La versione gratuita '+;
'del programma non permette la stampa dei listati, sarà possibile usare la procedura in modo dimostrativo '+;
'non nella completezza delle sue funzionalità. Premi Attiva per indicare la chiave di attivazione. ';

@ 50, 50 SAY oSay VAR cMessage OF oDlg FONT oFont PIXEL

Activate dialog oDlg

Did you searching that:

viewtopic.php?f=6t=19174

&

As any type designer will tell you, the space between letters is just as important as the letter shapes. Kerning (mentioned in the first rule), applies spacing adjustments between specific pairs of letters to improve the letter spacing. We recommend that you apply it to all of your content.

Tracking, on the other hand, adds (or removes) space between all the letters in a string equally. As a font’s default letter spacing is often optimized for readability at a particular size, there are times when it might be appropriate to slightly widen the spacing. Tracking values of .01em or .02em may be helpful.

Using justified text makes it difficult to have good spacing. When text is forced to fit a container through justification, its spacing always suffers. Justified text usually has "rivers" of white space (large gaps between words) running through the content. Avoid fully-justified text and stick with left alignment whenever possible, and apply hyphenation to keep the right edge of the text from appearing too ragged.

http://msdn.microsoft.com/en-us/library ... 53415.aspx

Otto,

I re-read the thread and now I get it. You were talking about left-justifying multi-line text in a SAY. Others posted about right-justifying--thus my confusion.

Your example is not compiling due to the missing setup() function. Could we get that?

James

Otto,

This brings up an issue that I have been meaning to post about. The current TMetropanel and TMetrobutton are only useful for emulating the Windows 8 start screen. Windows 8 apps need much more flexibility such as different button sizes and different alignment. I note that the metrobutton class already has a drawMulitline() method but it depends on CRLF's already in the string. It would be very useful to have a method that would handle long strings automatically similar to your routine.

Otto, I am curious as to how you are building metro style apps without these classes?

I will start another topic about metro app design. I am very interested in this.

Regards,
James

Dear James,
Setup() is a function I initially got from you and I use now everywhere.
In this case I only ask the FONT and size.

DEFINE FONT ::oFntMetroMedium NAME cFontName SIZE 0,-26 * ::nFaktor
I calculate a factor for different screen resolutions. As I code all Dialogs “hardcoded” I use the factor for example like this:
nRowOffset := 20 * nFaktor
nRowSpace := 20 * nFaktor
nLine := 2
@ nRowOffset + nRowSpace * nLine, nWidth/5/2.05 * nSpalte;
COMBOMETRO oCbx ;
VAR cCombo ;
PROMPTS aItems ;
OF oDlg ;

I am very confused about Metro. You only read negative news. Users do not like, Start button comes back, …

Best regards,
Otto

Dear James,
… BTW, do you know how you can insert a desktop connection in WINDOWS 8 to start metro style Internet explorer or other RT programs.
Best regrads,
Otto

I am very confused about Metro. You only read negative news. Users do not like, Start button comes back, …

James, totally agree
My experience with Windows 8 is very good, it is fast and does not give any problem
regards

James, totalmente de acuerdo
Mi experiencia con Windows 8 es muy buena, es rápido y no da ningun problema
Saludos