- added a NULL pointer test
[vlc.git] / modules / gui / win32 / preferences.cpp
1 /*****************************************************************************\r
2  * preferences.cpp: the "Preferences" dialog box\r
3  *****************************************************************************\r
4  * Copyright (C) 2002-2003 VideoLAN\r
5  *\r
6  * Authors: Olivier Teuliere <ipkiss@via.ecp.fr>\r
7  *          Boris Dores <babal@via.ecp.fr>\r
8  *\r
9  * This program is free software; you can redistribute it and/or modify\r
10  * it under the terms of the GNU General Public License as published by\r
11  * the Free Software Foundation; either version 2 of the License, or\r
12  * (at your option) any later version.\r
13  *\r
14  * This program is distributed in the hope that it will be useful,\r
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
17  * GNU General Public License for more details.\r
18  *\r
19  * You should have received a copy of the GNU General Public License\r
20  * along with this program; if not, write to the Free Software\r
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.\r
22  *****************************************************************************/\r
23 \r
24 #include <vcl.h>\r
25 #pragma hdrstop\r
26 \r
27 #include <stdlib.h>                                      /* malloc(), free() */\r
28 #include <string.h>                                                /* strcmp */\r
29 \r
30 #include <vlc/vlc.h>\r
31 #include <vlc/intf.h>\r
32 \r
33 #include "preferences.h"\r
34 #include "win32_common.h"\r
35 \r
36 //---------------------------------------------------------------------------\r
37 //#pragma package(smart_init)\r
38 #pragma link "CSPIN"\r
39 #pragma resource "*.dfm"\r
40 \r
41 /****************************************************************************\r
42  * A THintWindow with a limited width\r
43  ****************************************************************************/\r
44 void __fastcall TNarrowHintWindow::ActivateHint( const Windows::TRect &Rect,\r
45     const System::AnsiString AHint )\r
46 {\r
47     TRect NarrowRect = CalcHintRect( 300, AHint, NULL );\r
48     NarrowRect.Left = Rect.Left;\r
49     NarrowRect.Top = Rect.Top;\r
50     NarrowRect.Right += Rect.Left;\r
51     NarrowRect.Bottom += Rect.Top;\r
52     THintWindow::ActivateHint( NarrowRect, AHint );\r
53 }\r
54 \r
55 \r
56 /****************************************************************************\r
57  * Just a wrapper to embed an AnsiString into a TObject\r
58  ****************************************************************************/\r
59 __fastcall TObjectString::TObjectString( char * String )\r
60 {\r
61     FString = AnsiString( String );\r
62 }\r
63 //---------------------------------------------------------------------------\r
64 AnsiString __fastcall TObjectString::String()\r
65 {\r
66     return FString;\r
67 }\r
68 \r
69 \r
70 /****************************************************************************\r
71  * A TCheckListBox that automatically disposes any TObject\r
72  * associated with the string items\r
73  ****************************************************************************/\r
74 __fastcall TCleanCheckListBox::~TCleanCheckListBox()\r
75 {\r
76     for( int i = 0 ; i < Items->Count ; i++ )\r
77     {\r
78         if( Items->Objects[i] != NULL )\r
79             delete Items->Objects[i];\r
80     }\r
81 }\r
82 \r
83 \r
84 /****************************************************************************\r
85  * Functions to help components creation\r
86  ****************************************************************************/\r
87 __fastcall TPanelPref::TPanelPref( TComponent* Owner,\r
88     module_config_t *_p_config, intf_thread_t *_p_intf ) : TPanel( Owner )\r
89 {\r
90     p_intf = _p_intf;\r
91     p_config = _p_config;\r
92     BevelInner = bvNone;\r
93     BevelOuter = bvNone;\r
94     BorderStyle = bsNone;\r
95 }\r
96 //---------------------------------------------------------------------------\r
97 TCleanCheckListBox * __fastcall TPanelPref::CreateCleanCheckListBox(\r
98     TWinControl *Parent, int Left, int Width, int Top, int Height )\r
99 {\r
100     TCleanCheckListBox *CleanCheckListBox = new TCleanCheckListBox( Parent );\r
101     CleanCheckListBox->Parent = Parent;\r
102     CleanCheckListBox->Left = Left;\r
103     CleanCheckListBox->Width = Width;\r
104     CleanCheckListBox->Top = Top;\r
105     CleanCheckListBox->Height = Height;\r
106     return CleanCheckListBox;\r
107 }\r
108 //---------------------------------------------------------------------------\r
109 TButton * __fastcall TPanelPref::CreateButton( TWinControl *Parent,\r
110             int Left, int Width, int Top, int Height, AnsiString Caption )\r
111 {\r
112     TButton *Button = new TButton( Parent );\r
113     Button->Parent = Parent;\r
114     Button->Left = Left;\r
115     Button->Width = Width;\r
116     Button->Top = Top;\r
117     Button->Height = Height;\r
118     Button->Caption = Caption;\r
119     return Button;\r
120 }\r
121 //---------------------------------------------------------------------------\r
122 TCheckBox * __fastcall TPanelPref::CreateCheckBox( TWinControl *Parent,\r
123             int Left, int Width, int Top, int Height, AnsiString Caption )\r
124 {\r
125     TCheckBox *CheckBox = new TCheckBox( Parent );\r
126     CheckBox->Parent = Parent;\r
127     CheckBox->Left = Left;\r
128     CheckBox->Width = Width;\r
129     CheckBox->Top = Top;\r
130     CheckBox->Height = Height;\r
131     CheckBox->Caption = Caption;\r
132     return CheckBox;\r
133 }\r
134 //---------------------------------------------------------------------------\r
135 TLabel * __fastcall TPanelPref::CreateLabel( TWinControl *Parent,\r
136             int Left, int Width, int Top, int Height, AnsiString Caption,\r
137             bool WordWrap )\r
138 {\r
139     TLabel *Label = new TLabel( Parent );\r
140     Label->Parent = Parent;\r
141     Label->Caption = Caption;\r
142     Label->Left = Left;\r
143     Label->Width = Width;\r
144     Label->Top = Top;\r
145     Label->Height = Height;\r
146     Label->WordWrap = WordWrap;\r
147     return Label;\r
148 }\r
149 //---------------------------------------------------------------------------\r
150 TEdit * __fastcall TPanelPref::CreateEdit( TWinControl *Parent,\r
151             int Left, int Width, int Top, int Height, AnsiString Text )\r
152 {\r
153     TEdit *Edit = new TEdit( Parent );\r
154     Edit->Parent = Parent;\r
155     Edit->Left = Left;\r
156     Edit->Width = Width;\r
157     Edit->Top = Top;\r
158     Edit->Height = Height;\r
159     Edit->Text = Text;\r
160     return Edit;\r
161 }\r
162 //---------------------------------------------------------------------------\r
163 TCSpinEdit * __fastcall TPanelPref::CreateSpinEdit( TWinControl *Parent,\r
164             int Left, int Width, int Top, int Height,\r
165             long Min, long Max, long Value )\r
166 {\r
167     TCSpinEdit *SpinEdit = new TCSpinEdit( Parent );\r
168     SpinEdit->Parent = Parent;\r
169     SpinEdit->Left = Left;\r
170     SpinEdit->Width = Width;\r
171     SpinEdit->Top = Top;\r
172     SpinEdit->Height = Height;\r
173     SpinEdit->MinValue = Min;\r
174     SpinEdit->MaxValue = Max;\r
175     SpinEdit->Value = Value;\r
176     return SpinEdit;\r
177 }\r
178 //---------------------------------------------------------------------------\r
179 \r
180 #define LIBWIN32_PREFSIZE_VPAD                4\r
181 #define LIBWIN32_PREFSIZE_HPAD                4\r
182 #define LIBWIN32_PREFSIZE_LEFT                16\r
183 #define LIBWIN32_PREFSIZE_EDIT_LEFT           (LIBWIN32_PREFSIZE_LEFT+32)\r
184 #define LIBWIN32_PREFSIZE_WIDTH               375\r
185 #define LIBWIN32_PREFSIZE_EDIT_WIDTH          (LIBWIN32_PREFSIZE_WIDTH-32)\r
186 #define LIBWIN32_PREFSIZE_BUTTON_WIDTH        150\r
187 #define LIBWIN32_PREFSIZE_SPINEDIT_WIDTH      100\r
188 #define LIBWIN32_PREFSIZE_RIGHT               (LIBWIN32_PREFSIZE_LEFT+LIBWIN32_PREFSIZE_WIDTH)\r
189 #define LIBWIN32_PREFSIZE_BUTTON_HEIGHT       25\r
190 #define LIBWIN32_PREFSIZE_LABEL_HEIGHT        26\r
191 #define LIBWIN32_PREFSIZE_CHECKLISTBOX_HEIGHT 120\r
192 #define LIBWIN32_PREFSIZE_EDIT_HEIGHT         21\r
193 #define LIBWIN32_PREFSIZE_CHECKBOX_HEIGHT     17\r
194 #define LIBWIN32_PREFSIZE_SPINEDIT_HEIGHT     21\r
195 \r
196 /****************************************************************************\r
197  * Panel for module management\r
198  ****************************************************************************/\r
199 __fastcall TPanelPlugin::TPanelPlugin( TComponent* Owner,\r
200         module_config_t *p_config, intf_thread_t *_p_intf,\r
201         bool b_multi_plugins ) : TPanelPref( Owner, p_config, _p_intf )\r
202 {\r
203     this->b_multi_plugins = b_multi_plugins;\r
204 \r
205     /* init configure button */\r
206     ButtonConfig = CreateButton( this,\r
207             LIBWIN32_PREFSIZE_RIGHT - LIBWIN32_PREFSIZE_BUTTON_WIDTH,\r
208             LIBWIN32_PREFSIZE_BUTTON_WIDTH,\r
209             LIBWIN32_PREFSIZE_VPAD,\r
210             LIBWIN32_PREFSIZE_BUTTON_HEIGHT,\r
211             "Configure..." );\r
212     ButtonConfig->Enabled = false;\r
213     ButtonConfig->OnClick = ButtonConfigClick;\r
214 \r
215     /* init label */\r
216     AnsiString Text = AnsiString( p_config->psz_text ) + ":";\r
217     Label = CreateLabel( this,\r
218             LIBWIN32_PREFSIZE_LEFT,\r
219             LIBWIN32_PREFSIZE_RIGHT - LIBWIN32_PREFSIZE_BUTTON_WIDTH\r
220              - LIBWIN32_PREFSIZE_HPAD,\r
221             LIBWIN32_PREFSIZE_VPAD,\r
222             LIBWIN32_PREFSIZE_LABEL_HEIGHT,\r
223             Text.c_str(), true );\r
224 \r
225     /* vertical alignement */\r
226     if ( ButtonConfig->Height > Label->Height )\r
227         Label->Top += ( ButtonConfig->Height - Label->Height ) / 2;\r
228     else\r
229         ButtonConfig->Top += ( Label->Height - ButtonConfig->Height ) / 2;\r
230 \r
231     /* init checklistbox */\r
232     CleanCheckListBox = CreateCleanCheckListBox( this,\r
233             LIBWIN32_PREFSIZE_EDIT_LEFT,\r
234             LIBWIN32_PREFSIZE_EDIT_WIDTH,\r
235             max( Label->Top + Label->Height , ButtonConfig->Top\r
236                  + ButtonConfig->Height ) + LIBWIN32_PREFSIZE_VPAD,\r
237                  LIBWIN32_PREFSIZE_CHECKLISTBOX_HEIGHT );\r
238     CleanCheckListBox->OnClick = CheckListBoxClick;\r
239     CleanCheckListBox->OnClickCheck = CheckListBoxClickCheck;\r
240     CleanCheckListBox->Hint = p_config->psz_longtext;\r
241     CleanCheckListBox->ShowHint = true;\r
242 \r
243     /* init up and down buttons */\r
244     if ( b_multi_plugins )\r
245     {\r
246         ButtonUp = CreateButton ( this, LIBWIN32_PREFSIZE_LEFT,\r
247                 CleanCheckListBox->Left - LIBWIN32_PREFSIZE_HPAD\r
248                     - LIBWIN32_PREFSIZE_LEFT,\r
249                 CleanCheckListBox->Top + ( CleanCheckListBox->Height\r
250                     - 2*LIBWIN32_PREFSIZE_BUTTON_HEIGHT ) / 3,\r
251                 LIBWIN32_PREFSIZE_BUTTON_HEIGHT,\r
252                 "+" );\r
253         ButtonUp->Enabled = false;\r
254         ButtonUp->OnClick = ButtonUpClick;\r
255         ButtonUp->Hint = "Raise the plugin priority";\r
256         ButtonUp->ShowHint = true;\r
257 \r
258         ButtonDown = CreateButton ( this, LIBWIN32_PREFSIZE_LEFT,\r
259                 CleanCheckListBox->Left - LIBWIN32_PREFSIZE_HPAD\r
260                     - LIBWIN32_PREFSIZE_LEFT,\r
261                 CleanCheckListBox->Top + ( CleanCheckListBox->Height\r
262                     - 2*LIBWIN32_PREFSIZE_BUTTON_HEIGHT ) * 2 / 3\r
263                     + LIBWIN32_PREFSIZE_BUTTON_HEIGHT,\r
264                 LIBWIN32_PREFSIZE_BUTTON_HEIGHT,\r
265                 "-" );\r
266         ButtonDown->Enabled = false;\r
267         ButtonDown->OnClick = ButtonDownClick;\r
268         ButtonDown->Hint = "Decrease the plugin priority";\r
269         ButtonDown->ShowHint = true;\r
270     }\r
271     else\r
272     {\r
273         ButtonUp = NULL;\r
274         ButtonDown = NULL;\r
275     }\r
276 \r
277     /* panel height */\r
278     Height = CleanCheckListBox->Top + CleanCheckListBox->Height\r
279             + LIBWIN32_PREFSIZE_VPAD;\r
280 };\r
281 //---------------------------------------------------------------------------\r
282 void __fastcall TPanelPlugin::CheckListBoxClick( TObject *Sender )\r
283 {\r
284     module_t *p_parser;\r
285     vlc_list_t list;\r
286     int i_index;\r
287 \r
288     /* check that the click is valid (we are on an item, and the click\r
289      * started on an item */\r
290     if( CleanCheckListBox->ItemIndex == -1 )\r
291     {\r
292         if ( ButtonUp != NULL ) ButtonUp->Enabled = false;\r
293         if ( ButtonDown != NULL ) ButtonDown->Enabled = false;\r
294         return;\r
295     }\r
296 \r
297     AnsiString Name = ((TObjectString*)CleanCheckListBox->Items->\r
298         Objects[CleanCheckListBox->ItemIndex])->String().c_str();\r
299     if( Name == "" )\r
300         return;\r
301 \r
302     /* enable up and down buttons */\r
303     if ( b_multi_plugins && ButtonUp != NULL && ButtonDown != NULL )\r
304     {\r
305         if ( CleanCheckListBox->ItemIndex == 0 )\r
306             ButtonUp->Enabled = false; else ButtonUp->Enabled = true;\r
307         if ( CleanCheckListBox->ItemIndex\r
308             == CleanCheckListBox->Items->Count - 1 )\r
309             ButtonDown->Enabled = false; else ButtonDown->Enabled = true;\r
310     }\r
311 \r
312     /* look for module 'Name' */\r
313     list = vlc_list_find( p_intf, VLC_OBJECT_MODULE, FIND_ANYWHERE );\r
314 \r
315     for( i_index = 0; i_index < list.i_count; i_index++ )\r
316     {\r
317         p_parser = (module_t *)list.p_values[i_index].p_object ;\r
318 \r
319         if( strcmp( p_parser->psz_object_name, Name.c_str() ) == 0 )\r
320         {\r
321             ModuleSelected = p_parser;\r
322             ButtonConfig->Enabled =\r
323                 p_parser->i_config_items ? true : false;\r
324 \r
325             break;\r
326         }\r
327     }\r
328 }\r
329 //---------------------------------------------------------------------------\r
330 void __fastcall TPanelPlugin::CheckListBoxClickCheck( TObject *Sender )\r
331 {\r
332     if ( ! b_multi_plugins )\r
333     {\r
334         /* one item maximum must be checked */\r
335         if( CleanCheckListBox->Checked[CleanCheckListBox->ItemIndex] )\r
336         {\r
337             for( int item = 0; item < CleanCheckListBox->Items->Count; item++ )\r
338             {\r
339                 if( item != CleanCheckListBox->ItemIndex )\r
340                 {\r
341                     CleanCheckListBox->Checked[item] = false;\r
342                 }\r
343             }\r
344         }\r
345     }\r
346 }\r
347 //---------------------------------------------------------------------------\r
348 void __fastcall TPanelPlugin::ButtonConfigClick( TObject *Sender )\r
349 {\r
350     p_intf->p_sys->p_window->\r
351                         CreatePreferences( ModuleSelected->psz_object_name );\r
352 }\r
353 //---------------------------------------------------------------------------\r
354 void __fastcall TPanelPlugin::ButtonUpClick( TObject *Sender )\r
355 {\r
356     if( CleanCheckListBox->ItemIndex != -1 && CleanCheckListBox->ItemIndex > 0 )\r
357     {\r
358         int Pos = CleanCheckListBox->ItemIndex;\r
359         CleanCheckListBox->Items->Move ( Pos , Pos - 1 );\r
360         CleanCheckListBox->ItemIndex = Pos - 1;\r
361         CheckListBoxClick ( Sender );\r
362     }\r
363 }\r
364 //---------------------------------------------------------------------------\r
365 void __fastcall TPanelPlugin::ButtonDownClick( TObject *Sender )\r
366 {\r
367     if( CleanCheckListBox->ItemIndex != -1\r
368         && CleanCheckListBox->ItemIndex < CleanCheckListBox->Items->Count - 1 )\r
369     {\r
370         int Pos = CleanCheckListBox->ItemIndex;\r
371         CleanCheckListBox->Items->Move ( Pos , Pos + 1 );\r
372         CleanCheckListBox->ItemIndex = Pos + 1;\r
373         CheckListBoxClick ( Sender );\r
374     }\r
375 }\r
376 //---------------------------------------------------------------------------\r
377 void __fastcall TPanelPlugin::SetValue ( AnsiString Values )\r
378 {\r
379     int TopChecked = 0;\r
380     while ( Values.Length() != 0 )\r
381     {\r
382         AnsiString Value;\r
383 \r
384         int NextValue = Values.Pos ( "," );\r
385         if ( NextValue == 0 )\r
386         {\r
387             Value = Values.Trim();\r
388             Values = "";\r
389         }\r
390         else\r
391         {\r
392             Value = Values.SubString(1,NextValue-1).Trim();\r
393             Values = Values.SubString ( NextValue + 1\r
394                     , Values.Length() - NextValue );\r
395         }\r
396 \r
397         if ( Value.Length() > 0 )\r
398         {\r
399             for ( int i = TopChecked; i < CleanCheckListBox->Items->Count; i++ )\r
400             {\r
401                 if ( ((TObjectString*)CleanCheckListBox->Items->Objects[i])\r
402                         ->String() == Value )\r
403                 {\r
404                     CleanCheckListBox->Checked[i] = true;\r
405                     CleanCheckListBox->Items->Move ( i , TopChecked );\r
406                     TopChecked++;\r
407                 }\r
408             }\r
409         }\r
410     }\r
411 }\r
412 //---------------------------------------------------------------------------\r
413 void __fastcall TPanelPlugin::UpdateChanges()\r
414 {\r
415     AnsiString Name = "";\r
416 \r
417     /* find the selected plugin (if any) */\r
418     for( int item = 0; item < CleanCheckListBox->Items->Count; item++ )\r
419     {\r
420         if( CleanCheckListBox->Checked[item] )\r
421         {\r
422             if ( Name.Length() == 0 )\r
423             {\r
424                 Name = ((TObjectString*)CleanCheckListBox->Items->Objects[item])\r
425                        ->String();\r
426             }\r
427             else\r
428             {\r
429                 Name = Name + ","\r
430                      + ((TObjectString*)CleanCheckListBox->Items->Objects[item])\r
431                        ->String();\r
432             }\r
433         }\r
434     }\r
435 \r
436     config_PutPsz( p_intf, p_config->psz_name,\r
437                    Name.Length() ? Name.c_str() : NULL );\r
438 }\r
439 \r
440 \r
441 /****************************************************************************\r
442  * Panel for string management\r
443  ****************************************************************************/\r
444 __fastcall TPanelString::TPanelString( TComponent* Owner,\r
445         module_config_t *p_config, intf_thread_t *_p_intf )\r
446         : TPanelPref( Owner, p_config, _p_intf )\r
447 {\r
448     /* init description label */\r
449     AnsiString Text = AnsiString ( p_config->psz_text ) + ":";\r
450     Label = CreateLabel( this,\r
451             LIBWIN32_PREFSIZE_LEFT,\r
452             LIBWIN32_PREFSIZE_WIDTH,\r
453             LIBWIN32_PREFSIZE_VPAD,\r
454             LIBWIN32_PREFSIZE_LABEL_HEIGHT,\r
455             Text.c_str(), true );\r
456 \r
457     /* init edit */\r
458     Edit = CreateEdit( this,\r
459             LIBWIN32_PREFSIZE_EDIT_LEFT,\r
460             LIBWIN32_PREFSIZE_EDIT_WIDTH,\r
461             LIBWIN32_PREFSIZE_VPAD + Label->Height + LIBWIN32_PREFSIZE_VPAD,\r
462             LIBWIN32_PREFSIZE_EDIT_HEIGHT, "" );\r
463     vlc_mutex_lock( p_config->p_lock );\r
464     Edit->Text = p_config->psz_value ? p_config->psz_value : "";\r
465     vlc_mutex_unlock( p_config->p_lock );\r
466     Edit->Hint = p_config->psz_longtext;\r
467     Edit->ShowHint = true;\r
468 \r
469     /* panel height */\r
470     Height = LIBWIN32_PREFSIZE_VPAD + Label->Height + LIBWIN32_PREFSIZE_VPAD\r
471             + Edit->Height + LIBWIN32_PREFSIZE_VPAD;\r
472 };\r
473 //---------------------------------------------------------------------------\r
474 void __fastcall TPanelString::UpdateChanges()\r
475 {\r
476     config_PutPsz( p_intf, p_config->psz_name,\r
477                    Edit->Text.Length() ? Edit->Text.c_str() : NULL );\r
478 }\r
479 \r
480 \r
481 /****************************************************************************\r
482  * Panel for integer management\r
483  ****************************************************************************/\r
484 __fastcall TPanelInteger::TPanelInteger( TComponent* Owner,\r
485         module_config_t *p_config, intf_thread_t *_p_intf )\r
486         : TPanelPref( Owner, p_config, _p_intf )\r
487 {\r
488     /* init description label */\r
489     AnsiString Text = AnsiString ( p_config->psz_text ) + ":";\r
490     Label = CreateLabel( this,\r
491             LIBWIN32_PREFSIZE_LEFT,\r
492             LIBWIN32_PREFSIZE_WIDTH - LIBWIN32_PREFSIZE_SPINEDIT_WIDTH\r
493              - LIBWIN32_PREFSIZE_HPAD,\r
494             LIBWIN32_PREFSIZE_VPAD,\r
495             LIBWIN32_PREFSIZE_LABEL_HEIGHT, Text.c_str(), true );\r
496 \r
497     /* init spinedit */\r
498     SpinEdit = CreateSpinEdit( this,\r
499             LIBWIN32_PREFSIZE_RIGHT - LIBWIN32_PREFSIZE_SPINEDIT_WIDTH,\r
500             LIBWIN32_PREFSIZE_SPINEDIT_WIDTH,\r
501             LIBWIN32_PREFSIZE_VPAD,\r
502             LIBWIN32_PREFSIZE_SPINEDIT_HEIGHT,\r
503             -1, 100000, p_config->i_value );\r
504     SpinEdit->Hint = p_config->psz_longtext;\r
505     SpinEdit->ShowHint = true;\r
506 \r
507     /* vertical alignement and panel height */\r
508     if ( SpinEdit->Height > Label->Height )\r
509     {\r
510         Label->Top += ( SpinEdit->Height - Label->Height ) / 2;\r
511         Height = SpinEdit->Top + SpinEdit->Height + LIBWIN32_PREFSIZE_VPAD;\r
512     }\r
513     else\r
514     {\r
515         SpinEdit->Top += ( Label->Height - SpinEdit->Height ) / 2;\r
516         Height = Label->Top + Label->Height + LIBWIN32_PREFSIZE_VPAD;\r
517     }\r
518 };\r
519 //---------------------------------------------------------------------------\r
520 void __fastcall TPanelInteger::UpdateChanges()\r
521 {\r
522     /* Warning: we're casting from long to int */\r
523     config_PutInt( p_intf, p_config->psz_name, (int)SpinEdit->Value );\r
524 }\r
525 \r
526 \r
527 /****************************************************************************\r
528  * Panel for float management\r
529  ****************************************************************************/\r
530 __fastcall TPanelFloat::TPanelFloat( TComponent* Owner,\r
531         module_config_t *p_config, intf_thread_t *_p_intf )\r
532         : TPanelPref( Owner, p_config, _p_intf )\r
533 {\r
534 #define MAX_FLOAT_CHARS 20\r
535     /* init description label */\r
536     AnsiString Text = AnsiString( p_config->psz_text ) + ":";\r
537     Label = CreateLabel( this,\r
538             LIBWIN32_PREFSIZE_LEFT,\r
539             LIBWIN32_PREFSIZE_WIDTH,\r
540             LIBWIN32_PREFSIZE_VPAD,\r
541             LIBWIN32_PREFSIZE_LABEL_HEIGHT,\r
542             Text.c_str(), true );\r
543 \r
544     /* init edit */\r
545     char *psz_value = (char *)malloc( MAX_FLOAT_CHARS );\r
546     snprintf( psz_value, MAX_FLOAT_CHARS, "%f", p_config->f_value );\r
547     /* we use the spinedit size, to be similar with the integers */\r
548     Edit = CreateEdit( this,\r
549             LIBWIN32_PREFSIZE_RIGHT - LIBWIN32_PREFSIZE_SPINEDIT_WIDTH,\r
550             LIBWIN32_PREFSIZE_SPINEDIT_WIDTH,\r
551             LIBWIN32_PREFSIZE_VPAD,\r
552             LIBWIN32_PREFSIZE_SPINEDIT_HEIGHT,\r
553             psz_value );\r
554     free( psz_value );\r
555     Edit->Hint = p_config->psz_longtext;\r
556     Edit->ShowHint = true;\r
557 \r
558     /* vertical alignement and panel height */\r
559     if ( Edit->Height > Label->Height )\r
560     {\r
561         Label->Top += ( Edit->Height - Label->Height ) / 2;\r
562         Height = Edit->Top + Edit->Height + LIBWIN32_PREFSIZE_VPAD;\r
563     }\r
564     else\r
565     {\r
566         Edit->Top += ( Label->Height - Edit->Height ) / 2;\r
567         Height = Label->Top + Label->Height + LIBWIN32_PREFSIZE_VPAD;\r
568     }\r
569 \r
570 #undef MAX_FLOAT_CHARS\r
571 };\r
572 //---------------------------------------------------------------------------\r
573 void __fastcall TPanelFloat::UpdateChanges()\r
574 {\r
575     /* Warning: we're casting from double to float */\r
576     config_PutFloat( p_intf, p_config->psz_name, atof( Edit->Text.c_str() ) );\r
577 }\r
578 \r
579 \r
580 /****************************************************************************\r
581  * Panel for boolean management\r
582  ****************************************************************************/\r
583 __fastcall TPanelBool::TPanelBool( TComponent* Owner,\r
584         module_config_t *p_config, intf_thread_t *_p_intf )\r
585         : TPanelPref( Owner, p_config, _p_intf )\r
586 {\r
587     /* init checkbox */\r
588     CheckBox = CreateCheckBox( this,\r
589             LIBWIN32_PREFSIZE_LEFT,\r
590             LIBWIN32_PREFSIZE_WIDTH,\r
591             LIBWIN32_PREFSIZE_VPAD,\r
592             LIBWIN32_PREFSIZE_CHECKBOX_HEIGHT, p_config->psz_text );\r
593     CheckBox->Checked = p_config->i_value;\r
594     CheckBox->Hint = p_config->psz_longtext;\r
595     CheckBox->ShowHint = true;\r
596 \r
597     /* panel height */\r
598     Height = LIBWIN32_PREFSIZE_VPAD + CheckBox->Height + LIBWIN32_PREFSIZE_VPAD;\r
599 };\r
600 //---------------------------------------------------------------------------\r
601 void __fastcall TPanelBool::UpdateChanges()\r
602 {\r
603     config_PutInt( p_intf, p_config->psz_name, CheckBox->Checked ? 1 : 0 );\r
604 }\r
605 \r
606 \r
607 /****************************************************************************\r
608  * Callbacks for the dialog\r
609  ****************************************************************************/\r
610 __fastcall TPreferencesDlg::TPreferencesDlg( TComponent* Owner,\r
611     intf_thread_t *_p_intf ) : TForm( Owner )\r
612 {\r
613     p_intf = _p_intf;\r
614     Icon = p_intf->p_sys->p_window->Icon;\r
615     Application->HintHidePause = 0x1000000;\r
616     HintWindowClass = __classid ( TNarrowHintWindow );\r
617     /* prevent the form from being resized horizontally */\r
618     Constraints->MinWidth = Width;\r
619     Constraints->MaxWidth = Width;\r
620 }\r
621 //---------------------------------------------------------------------------\r
622 void __fastcall TPreferencesDlg::FormClose( TObject *Sender,\r
623       TCloseAction &Action )\r
624 {\r
625     Action = caHide;\r
626 }\r
627 \r
628 \r
629 /****************************************************************************\r
630  * CreateConfigDialog: dynamically creates the configuration dialog\r
631  * box from all the configuration data provided by the selected module.\r
632  ****************************************************************************/\r
633 #define ADD_PANEL                               \\r
634 {                                               \\r
635             Panel = new TPanel( this );         \\r
636             Panel->Parent = ScrollBox;          \\r
637             Panel->Caption = "";                \\r
638             Panel->BevelOuter = bvNone;         \\r
639             Panel->Height = 12;                 \\r
640 }\r
641 \r
642 void __fastcall TPreferencesDlg::CreateConfigDialog( char *psz_module_name )\r
643 {\r
644     module_t           *p_parser;\r
645     vlc_list_t          list;\r
646     int                 i_index;\r
647 \r
648     module_config_t    *p_item;\r
649     int                 i_pages, i_ctrl;\r
650 \r
651     TTabSheet          *TabSheet;\r
652     TScrollBox         *ScrollBox = NULL;\r
653     TPanel             *Panel;\r
654     TPanelPlugin       *PanelPlugin;\r
655     TPanelString       *PanelString;\r
656     TPanelInteger      *PanelInteger;\r
657     TPanelFloat        *PanelFloat;\r
658     TPanelBool         *PanelBool;\r
659 \r
660     /* Look for the selected module */\r
661     list = vlc_list_find( p_intf, VLC_OBJECT_MODULE, FIND_ANYWHERE );\r
662 \r
663     for( i_index = 0; i_index < list.i_count; i_index++ )\r
664     {\r
665         p_parser = (module_t *)list.p_values[i_index].p_object ;\r
666 \r
667         if( psz_module_name\r
668              && !strcmp( psz_module_name, p_parser->psz_object_name ) )\r
669         {\r
670             break;\r
671         }\r
672     }\r
673     if( !p_parser || i_index == list.i_count )\r
674     {\r
675         vlc_list_release( &list );\r
676         return;\r
677     }\r
678 \r
679     /*\r
680      * We found it, now we can start building its configuration interface\r
681      */\r
682 \r
683     /* Enumerate config options and add corresponding config boxes */\r
684     p_item = p_parser->p_config;\r
685     if( p_item ) do\r
686     {\r
687         switch( p_item->i_type )\r
688         {\r
689         case CONFIG_HINT_CATEGORY:\r
690 \r
691             /* create a new tabsheet. */\r
692             TabSheet = new TTabSheet( this );\r
693             TabSheet->PageControl = PageControlPref;\r
694             TabSheet->Caption = p_item->psz_text;\r
695             TabSheet->Visible = true;\r
696 \r
697             /* pack a scrollbox into the tabsheet */\r
698             ScrollBox = new TScrollBox( this );\r
699             ScrollBox->Parent = TabSheet;\r
700             ScrollBox->Align = alClient;\r
701             ScrollBox->BorderStyle = bsNone;\r
702             ScrollBox->HorzScrollBar->Tracking = true;\r
703             ScrollBox->VertScrollBar->Tracking = true;\r
704 \r
705             /* add a panel as top margin */\r
706             ADD_PANEL;\r
707 \r
708             break;\r
709 \r
710         case CONFIG_ITEM_MODULE:\r
711 \r
712             /* add new panel for the config option */\r
713             PanelPlugin = new TPanelPlugin( this, p_item, p_intf, true );\r
714             PanelPlugin->Parent = ScrollBox;\r
715 \r
716             /* Look for valid modules */\r
717             for( i_index = 0; i_index < list.i_count; i_index++ )\r
718             {\r
719                 p_parser = (module_t *)list.p_values[i_index].p_object ;\r
720 \r
721                 if( !strcmp( p_parser->psz_capability, p_item->psz_type ) )\r
722                 {\r
723                     AnsiString ModuleDesc;\r
724                     if ( p_parser->psz_longname != NULL ) {\r
725                         ModuleDesc = AnsiString( p_parser->psz_longname ) +\r
726                             " (" + AnsiString( p_parser->psz_object_name ) +\r
727                             ")";\r
728                     }\r
729                     else\r
730                         ModuleDesc = AnsiString( p_parser->psz_object_name );\r
731 \r
732                     PanelPlugin->CleanCheckListBox->Items->AddObject(\r
733                         ModuleDesc.c_str(),\r
734                         new TObjectString( p_parser->psz_object_name ) );\r
735                 }\r
736             }\r
737 \r
738             /* check relevant boxes */\r
739             PanelPlugin->SetValue ( AnsiString ( p_item->psz_value ) );\r
740 \r
741             break;\r
742 \r
743         case CONFIG_ITEM_FILE:\r
744 \r
745         case CONFIG_ITEM_STRING:\r
746 \r
747             /* add new panel for the config option */\r
748             PanelString = new TPanelString( this, p_item, p_intf );\r
749             PanelString->Parent = ScrollBox;\r
750 \r
751             break;\r
752 \r
753         case CONFIG_ITEM_INTEGER:\r
754 \r
755             /* add new panel for the config option */\r
756             PanelInteger = new TPanelInteger( this, p_item, p_intf );\r
757             PanelInteger->Parent = ScrollBox;\r
758 \r
759             break;\r
760 \r
761         case CONFIG_ITEM_FLOAT:\r
762 \r
763             /* add new panel for the config option */\r
764             PanelFloat = new TPanelFloat( this, p_item, p_intf );\r
765             PanelFloat->Parent = ScrollBox;\r
766 \r
767             break;\r
768 \r
769         case CONFIG_ITEM_BOOL:\r
770 \r
771             /* add new panel for the config option */\r
772             PanelBool = new TPanelBool( this, p_item, p_intf );\r
773             PanelBool->Parent = ScrollBox;\r
774 \r
775             break;\r
776         default:\r
777             msg_Warn( p_intf, "unknown config type: %i", p_item->i_type );\r
778             break;\r
779         }\r
780 \r
781         p_item++;\r
782     }\r
783     while( p_item->i_type != CONFIG_HINT_END );\r
784 \r
785     /* Reorder panels inside the tabsheets */\r
786     for( i_pages = 0; i_pages < PageControlPref->PageCount; i_pages++ )\r
787     {\r
788         /* get scrollbox from the tabsheet */\r
789         ScrollBox = (TScrollBox *)PageControlPref->Pages[i_pages]->Controls[0];\r
790 \r
791         /* add a panel as bottom margin */\r
792         ADD_PANEL;\r
793 \r
794         for( i_ctrl = ScrollBox->ControlCount - 1; i_ctrl >= 0 ; i_ctrl-- )\r
795         {\r
796             ScrollBox->Controls[i_ctrl]->Align = alTop;\r
797         }\r
798     }\r
799 \r
800     vlc_list_release( &list );\r
801 \r
802     /* set active tabsheet\r
803      * FIXME: i don't know why, but both lines are necessary */\r
804     PageControlPref->ActivePageIndex = 1;\r
805     PageControlPref->ActivePageIndex = 0;\r
806 }\r
807 #undef ADD_PANEL\r
808 //---------------------------------------------------------------------------\r
809 void __fastcall TPreferencesDlg::ButtonOkClick( TObject *Sender )\r
810 {\r
811     ButtonApplyClick( Sender );\r
812     Hide();\r
813 }\r
814 //---------------------------------------------------------------------------\r
815 void __fastcall TPreferencesDlg::ButtonApplyClick( TObject *Sender )\r
816 {\r
817     TScrollBox *ScrollBox;\r
818     TPanelPref *Panel;\r
819     int i, j;\r
820 \r
821     for( i = 0; i < PageControlPref->PageCount; i++ )\r
822     {\r
823         /* get scrollbox from the tabsheet */\r
824         ScrollBox = (TScrollBox *)PageControlPref->Pages[i]->Controls[0];\r
825 \r
826         for( j = 0; j < ScrollBox->ControlCount ; j++ )\r
827         {\r
828             /* skip the panels */\r
829             if( ScrollBox->Controls[j]->InheritsFrom( __classid( TPanelPref ) ) )\r
830             {\r
831                 Panel = (TPanelPref *)ScrollBox->Controls[j];\r
832                 Panel->UpdateChanges();\r
833             }\r
834         }\r
835     }\r
836 }\r
837 //---------------------------------------------------------------------------\r
838 void __fastcall TPreferencesDlg::ButtonSaveClick( TObject *Sender )\r
839 {\r
840     ButtonApplyClick( Sender );\r
841     config_SaveConfigFile( p_intf, NULL );\r
842 }\r
843 //---------------------------------------------------------------------------\r
844 void __fastcall TPreferencesDlg::ButtonCancelClick( TObject *Sender )\r
845 {\r
846     Hide();\r
847 }\r
848 //---------------------------------------------------------------------------\r