Discussion :

[Guyt54]

Et tout ça en un seul clic de souris!

Je vous ai fait des captures d'écran des styles disponibles:

http://guytprog.blogspot.ca/2012/04/...ui-ont-de.html

[Mercusyo]

C'est vrai que ça change tout de suite
Il y en a des vraiment sympa et look pro

[Guyt54]

Je suis en train de regarder le "WinMain" d'une application XE2 et que vois-je?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
 try
 {
   Application->Initialize();
   Application->MainFormOnTaskBar = true;
   TStyleManager::TrySetStyle("Aqua Graphite");
   Application->CreateForm(__classid(TfrmMain), &frmMain);
   Application->Run();
 }

Ciel! les possibilités sont énormes, comme par l'exemple changer le look de votre application selon le jour de la semaine!

(si vous me plussoiyez pas avec ça, je me demande ce qu'il vous faut )

[Guyt54]

Le pire, c'est que ça marche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
 
#include <Vcl.Styles.hpp>
#include <Vcl.Themes.hpp>
 
 
USEFORM("Unit2.cpp", Form2);
 
 
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
 void* Mutex = 0 ;
 bool first  ;
 
 Mutex = CreateMutex(NULL, true, L"AquaGraphite");
 first = (Mutex && (GetLastError() != ERROR_ALREADY_EXISTS)) ;
 try
 {
   Application->Initialize();
   Application->MainFormOnTaskBar = true;
   if (first)
       TStyleManager::TrySetStyle("Aqua Graphite");
   else
       TStyleManager::TrySetStyle("Cyan Dusk");
   Application->CreateForm(__classid(TForm2), &Form2);
   Application->Run();
 }
 catch (Exception &exception)
 {
   Application->ShowException(&exception);
 }
 catch (...)
 {
   try
   {
    throw Exception("");
   }
   catch (Exception &exception)
   {
    Application->ShowException(&exception);
   }
 }
 if (Mutex) CloseHandle(Mutex) ;
 return 0;
}

[Gouyon]

Quand je pense que mes collègues de travail trouve déjà que je m'amuse quand je fait des interface un peu fun. Avec Xe2 ils vont carrément me dire que vu comme je m'amuse c'est pas la peine que je sois payé

[DjmSoftware]

Hello
Malheureusement le design sous Xe2 avec sa nouvelle version de la VCL
à un coût énorme en terme de taille de l'executable génère ainsi que de son temps de chargement avec un PC normal
J'ai constaté une augmentation de la taille qui peut aller jusqu'à un facteur de 2.8 en regard de la même application générée sous 2010
Je n'appelle ceci pas un progrès mais une régression
À ce rythme la version future XE4 produira des exécutables > 10 MB
Cdlt