Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.472 by h677, Thu Oct 21 16:07:00 2004 UTC revision 1.473 by h677, Sat Oct 23 08:58:16 2004 UTC
# Line 1374  begin Line 1374  begin
1374                  TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;                  TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1375                  TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;                  TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1376                  TreeView.Color := GikoSys.Setting.CabinetBackColor;                  TreeView.Color := GikoSys.Setting.CabinetBackColor;
1377                    {TreeView.Font.Style := [];
1378                  FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;                  if GikoSys.Setting.CabinetFontBold then
1379                  FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;                          TreeView.Font.Style := [fsBold];
1380                  FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;                  if GikoSys.Setting.CabinetFontItalic then
1381                            TreeView.Font.Style := TreeView.Font.Style + [fsItalic];
1382                    }
1383                    //FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1384                    //FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1385                    //FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1386                    FavoriteTreeView.Font.Assign(TreeView.Font);
1387                  FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;                  FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1388    
1389                  ListView.Font.Name := GikoSys.Setting.ListFontName;                  ListView.Font.Name := GikoSys.Setting.ListFontName;
1390                  ListView.Font.Size := GikoSys.Setting.ListFontSize;                  ListView.Font.Size := GikoSys.Setting.ListFontSize;
1391                  ListView.Font.Color := GikoSys.Setting.ListFontColor;                  ListView.Font.Color := GikoSys.Setting.ListFontColor;
1392                    ListView.Font.Style := [];
1393                    if GikoSys.Setting.ListFontBold then
1394                            ListView.Font.Style := [fsbold];
1395                    if GikoSys.Setting.ListFontItalic then
1396                            ListView.Font.Style := ListView.Font.Style + [fsitalic];
1397    
1398                  ListViewBackGroundColor := clWhite;                                                                                             // デフォルトに設定したのち                  ListViewBackGroundColor := clWhite;                                                                                             // デフォルトに設定したのち
1399                  ListViewBackGroundColor := GikoSys.Setting.ListBackColor;       // ユーザ定義に変更                  ListViewBackGroundColor := GikoSys.Setting.ListBackColor;       // ユーザ定義に変更
1400                  FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;                  FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
# Line 1399  begin Line 1411  begin
1411          //ブラウザタブフォント          //ブラウザタブフォント
1412          BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;          BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1413          BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;          BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1414            BrowserTab.Font.Style := [];
1415            if GikoSys.Setting.BrowserTabFontBold then
1416                    BrowserTab.Font.Style := [fsBold];
1417            if GikoSys.Setting.BrowserTabFontItalic then
1418                    BrowserTab.Font.Style := GikoForm.BrowserTab.Font.Style + [fsItalic];
1419          FDragWFirst := false;          FDragWFirst := false;
1420          SetContent(BrowserNullTab);                                                                                                     //ブラウザを空白表示          SetContent(BrowserNullTab);                                                                                                     //ブラウザを空白表示
1421  //      TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く  //      TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く

Legend:
Removed from v.1.472  
changed lines
  Added in v.1.473

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26