したらばJBBSの板検索のHTMLが変わっていたので対応した。

[gikonavigoeson/gikonavi.git] / FavoriteArrange.dfm

diff --git a/FavoriteArrange.dfm b/FavoriteArrange.dfm
index 6166254..4a5d921 100644 (file)
--- a/FavoriteArrange.dfm
+++ b/FavoriteArrange.dfm
@@ -13,6 +13,7 @@ object FavoriteArrangeDialog: TFavoriteArrangeDialog
   Font.Height = -12
   Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
   Font.Style = []
+  FormStyle = fsStayOnTop
   OldCreateOrder = False
   Position = poOwnerFormCenter
   OnCreate = FormCreate
@@ -86,6 +87,7 @@ object FavoriteArrangeDialog: TFavoriteArrangeDialog
       HideSelection = False
       Images = GikoForm.ItemIcon16
       Indent = 19
+      PopupMenu = SortPopupMenu
       ReadOnly = True
       ShowRoot = False
       TabOrder = 0
@@ -122,4 +124,41 @@ object FavoriteArrangeDialog: TFavoriteArrangeDialog
       end
     end
   end
+  object SortPopupMenu: TPopupMenu
+    Left = 16
+    Top = 160
+    object N1: TMenuItem
+      Caption = #21517#21069#38918#25972#21015
+      object SortAscName: TMenuItem
+        Caption = #26119#38918
+        OnClick = SortAscNameClick
+      end
+      object SortDscName: TMenuItem
+        Caption = #38477#38918
+        OnClick = SortDscNameClick
+      end
+    end
+    object SortURL: TMenuItem
+      Caption = 'URL'#38918#25972#21015
+      object SortAscURL: TMenuItem
+        Caption = #26119#38918
+        OnClick = SortAscURLClick
+      end
+      object SortDscURL: TMenuItem
+        Caption = #38477#38918
+        OnClick = SortDscURLClick
+      end
+    end
+    object SortTitle: TMenuItem
+      Caption = #12479#12452#12488#12523#38918#12477#12540#12488
+      object SortAscTitle: TMenuItem
+        Caption = #26119#38918
+        OnClick = SortAscTitleClick
+      end
+      object SortDscTitle: TMenuItem
+        Caption = #38477#38918
+        OnClick = SortDscTitleClick
+      end
+    end
+  end
 end