Changeset 166 for trunk/Forms
- Timestamp:
- Jan 19, 2018, 10:32:39 AM (7 years ago)
- Location:
- trunk/Forms
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms
-
Property svn:ignore
set to
*.lrj
-
Property svn:ignore
set to
-
trunk/Forms/UFormMain.lfm
r165 r166 66 66 object PanelParam: TPanel 67 67 Left = 0 68 Height = 3 869 Top = 3 268 Height = 32 69 Top = 38 70 70 Width = 998 71 71 Align = alTop 72 72 BevelOuter = bvNone 73 ClientHeight = 3 873 ClientHeight = 32 74 74 ClientWidth = 998 75 75 TabOrder = 1 … … 101 101 object CoolBar1: TCoolBar 102 102 Left = 0 103 Height = 3 2103 Height = 38 104 104 Top = 0 105 105 Width = 998 … … 108 108 item 109 109 Break = False 110 Control = ToolBar 1110 Control = ToolBarFile 111 111 FixedSize = True 112 112 MinWidth = 40 113 Width = 1 36113 Width = 164 114 114 end 115 115 item 116 116 Break = False 117 Control = ToolBar 2117 Control = ToolBarManage 118 118 FixedSize = True 119 119 MinWidth = 40 120 Width = 1 26120 Width = 149 121 121 end 122 122 item 123 123 Break = False 124 Control = ToolBar 3124 Control = ToolBarOther 125 125 FixedSize = True 126 126 MinWidth = 40 127 Width = 80127 Width = 91 128 128 end 129 129 item 130 130 Break = False 131 Control = ToolBar 4131 Control = ToolBarFilter 132 132 FixedSize = True 133 133 MinWidth = 40 134 Width = 80134 Width = 120 135 135 end> 136 136 Images = Core.ImageList1 137 object ToolBar 1: TToolBar137 object ToolBarFile: TToolBar 138 138 AnchorSideLeft.Control = CoolBar1 139 139 AnchorSideTop.Control = CoolBar1 … … 141 141 Height = 28 142 142 Top = 5 143 Width = 13 2143 Width = 135 144 144 Align = alNone 145 145 AutoSize = True … … 177 177 end 178 178 end 179 object ToolBar 2: TToolBar179 object ToolBarManage: TToolBar 180 180 AnchorSideLeft.Control = CoolBar1 181 181 AnchorSideTop.Control = CoolBar1 182 Left = 1 60182 Left = 188 183 183 Height = 28 184 184 Top = 5 185 Width = 1 17185 Width = 120 186 186 Align = alNone 187 187 AutoSize = True 188 BorderSpacing.Left = 1 58188 BorderSpacing.Left = 186 189 189 BorderSpacing.Top = 3 190 190 EdgeBorders = [] … … 217 217 end 218 218 end 219 object ToolBar 3: TToolBar219 object ToolBarOther: TToolBar 220 220 AnchorSideLeft.Control = CoolBar1 221 221 AnchorSideTop.Control = CoolBar1 222 Left = 286222 Left = 337 223 223 Height = 28 224 224 Top = 5 225 Width = 59225 Width = 62 226 226 Align = alNone 227 227 AutoSize = True 228 BorderSpacing.Left = 284228 BorderSpacing.Left = 335 229 229 BorderSpacing.Top = 3 230 230 EdgeBorders = [] … … 247 247 end 248 248 end 249 object ToolBar 4: TToolBar249 object ToolBarFilter: TToolBar 250 250 AnchorSideLeft.Control = CoolBar1 251 251 AnchorSideTop.Control = CoolBar1 252 Left = 366252 Left = 428 253 253 Height = 28 254 254 Top = 5 255 Width = 88255 Width = 91 256 256 Align = alNone 257 257 AutoSize = True 258 BorderSpacing.Left = 364258 BorderSpacing.Left = 426 259 259 BorderSpacing.Top = 3 260 260 EdgeBorders = [] -
trunk/Forms/UFormMain.pas
r165 r166 80 80 SaveDialog1: TSaveDialog; 81 81 StatusBar1: TStatusBar; 82 ToolBar 1: TToolBar;83 ToolBar 2: TToolBar;84 ToolBar 3: TToolBar;85 ToolBar 4: TToolBar;82 ToolBarFile: TToolBar; 83 ToolBarManage: TToolBar; 84 ToolBarOther: TToolBar; 85 ToolBarFilter: TToolBar; 86 86 ToolButton1: TToolButton; 87 87 ToolButton11: TToolButton; … … 189 189 I: Integer; 190 190 begin 191 for I := 0 to ToolBar 1.ButtonCount - 1 do192 ToolBar 1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;193 for I := 0 to ToolBar 2.ButtonCount - 1 do194 ToolBar 2.Buttons[I].Hint := ToolBar2.Buttons[I].Caption;195 for I := 0 to ToolBar 3.ButtonCount - 1 do196 ToolBar 3.Buttons[I].Hint := ToolBar3.Buttons[I].Caption;197 for I := 0 to ToolBar 4.ButtonCount - 1 do198 ToolBar 4.Buttons[I].Hint := ToolBar4.Buttons[I].Caption;191 for I := 0 to ToolBarFile.ButtonCount - 1 do 192 ToolBarFile.Buttons[I].Hint := ToolBarFile.Buttons[I].Caption; 193 for I := 0 to ToolBarManage.ButtonCount - 1 do 194 ToolBarManage.Buttons[I].Hint := ToolBarManage.Buttons[I].Caption; 195 for I := 0 to ToolBarOther.ButtonCount - 1 do 196 ToolBarOther.Buttons[I].Hint := ToolBarOther.Buttons[I].Caption; 197 for I := 0 to ToolBarFilter.ButtonCount - 1 do 198 ToolBarFilter.Buttons[I].Hint := ToolBarFilter.Buttons[I].Caption; 199 199 PanelMain.ControlStyle := PanelMain.ControlStyle + [csOpaque]; 200 200 PanelParam.ControlStyle := PanelParam.ControlStyle + [csOpaque];
Note:
See TracChangeset
for help on using the changeset viewer.