Develop and Download Open Source Software

Browse Subversion Repository

Diff of /Unit11.dfm

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

revision 15 by yamat0jp, Fri Aug 5 10:33:26 2016 UTC revision 18 by yamat0jp, Sat Aug 27 11:00:30 2016 UTC
# Line 1  Line 1 
1  object AdminFile: TAdminFile  object AdminFile: TAdminFile
2    Left = 0    Left = 0
3    Top = 0    Top = 0
4    Width = 464    Width = 481
5    Height = 591    Height = 692
6    RenderInvisibleControls = True    RenderInvisibleControls = True
7    AllowPageAccess = True    AllowPageAccess = True
8    ConnectionMode = cmAny    ConnectionMode = cmAny
# Line 19  object AdminFile: TAdminFile Line 19  object AdminFile: TAdminFile
19    DesignLeft = 8    DesignLeft = 8
20    DesignTop = 8    DesignTop = 8
21    object IWGrid1: TIWGrid    object IWGrid1: TIWGrid
22      Left = 60      Left = 63
23      Top = 416      Top = 413
24      Width = 300      Width = 300
25      Height = 150      Height = 150
26      BorderColors.Color = clNone      BorderColors.Color = clNone
# Line 62  object AdminFile: TAdminFile Line 62  object AdminFile: TAdminFile
62      TabOrder = 8      TabOrder = 8
63      OnClick = IWButton2Click      OnClick = IWButton2Click
64    end    end
65      object IWFileUploader1: TIWFileUploader
66        Left = 29
67        Top = 503
68        Width = 400
69        Height = 60
70        TabOrder = 9
71        TextStrings.DragText = 'Drop files here to upload'
72        TextStrings.UploadButtonText = 'Upload a file'
73        TextStrings.CancelButtonText = 'Cancel'
74        TextStrings.UploadErrorText = 'Upload failed'
75        TextStrings.MultipleFileDropNotAllowedText = 'You may only drop a single file'
76        TextStrings.OfTotalText = 'of'
77        TextStrings.RemoveButtonText = 'Remove'
78        TextStrings.TypeErrorText =
79          '{file} has an invalid extension. Only {extensions} files are all' +
80          'owed.'
81        TextStrings.SizeErrorText = '{file} is too large, maximum file size is {sizeLimit}.'
82        TextStrings.MinSizeErrorText = '{file} is too small, minimum file size is {minSizeLimit}.'
83        TextStrings.EmptyErrorText = '{file} is empty, please select files again without it.'
84        TextStrings.NoFilesErrorText = 'No files to upload.'
85        TextStrings.OnLeaveWarningText =
86          'The files are being uploaded, if you leave now the upload will b' +
87          'e cancelled.'
88        Style.ButtonOptions.Alignment = taCenter
89        Style.ButtonOptions.Font.Color = clWebWHITE
90        Style.ButtonOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
91        Style.ButtonOptions.Font.Size = 10
92        Style.ButtonOptions.Font.Style = []
93        Style.ButtonOptions.FromColor = clWebMAROON
94        Style.ButtonOptions.ToColor = clWebMAROON
95        Style.ButtonOptions.Height = 30
96        Style.ButtonOptions.Width = 200
97        Style.ButtonHoverOptions.Alignment = taCenter
98        Style.ButtonHoverOptions.Font.Color = clWebWHITE
99        Style.ButtonHoverOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
100        Style.ButtonHoverOptions.Font.Size = 10
101        Style.ButtonHoverOptions.Font.Style = []
102        Style.ButtonHoverOptions.FromColor = 214
103        Style.ButtonHoverOptions.ToColor = 214
104        Style.ListOptions.Alignment = taLeftJustify
105        Style.ListOptions.Font.Color = clWebBLACK
106        Style.ListOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
107        Style.ListOptions.Font.Size = 10
108        Style.ListOptions.Font.Style = []
109        Style.ListOptions.FromColor = clWebGOLD
110        Style.ListOptions.ToColor = clWebGOLD
111        Style.ListOptions.Height = 30
112        Style.ListOptions.Width = 0
113        Style.ListSuccessOptions.Alignment = taLeftJustify
114        Style.ListSuccessOptions.Font.Color = clWebWHITE
115        Style.ListSuccessOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
116        Style.ListSuccessOptions.Font.Size = 10
117        Style.ListSuccessOptions.Font.Style = []
118        Style.ListSuccessOptions.FromColor = clWebFORESTGREEN
119        Style.ListSuccessOptions.ToColor = clWebFORESTGREEN
120        Style.ListErrorOptions.Alignment = taLeftJustify
121        Style.ListErrorOptions.Font.Color = clWebWHITE
122        Style.ListErrorOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
123        Style.ListErrorOptions.Font.Size = 10
124        Style.ListErrorOptions.Font.Style = []
125        Style.ListErrorOptions.FromColor = clWebRED
126        Style.ListErrorOptions.ToColor = clWebRED
127        Style.DropAreaOptions.Alignment = taCenter
128        Style.DropAreaOptions.Font.Color = clWebWHITE
129        Style.DropAreaOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
130        Style.DropAreaOptions.Font.Size = 10
131        Style.DropAreaOptions.Font.Style = []
132        Style.DropAreaOptions.FromColor = clWebDARKORANGE
133        Style.DropAreaOptions.ToColor = clWebDARKORANGE
134        Style.DropAreaOptions.Height = 60
135        Style.DropAreaOptions.Width = 0
136        Style.DropAreaActiveOptions.Alignment = taCenter
137        Style.DropAreaActiveOptions.Font.Color = clWebWHITE
138        Style.DropAreaActiveOptions.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
139        Style.DropAreaActiveOptions.Font.Size = 10
140        Style.DropAreaActiveOptions.Font.Style = []
141        Style.DropAreaActiveOptions.FromColor = clWebLIMEGREEN
142        Style.DropAreaActiveOptions.ToColor = clWebLIMEGREEN
143        Style.DropAreaActiveOptions.Height = 60
144        Style.DropAreaActiveOptions.Width = 0
145        AutoUpload = False
146        CssClasses.Strings = (
147          'button='
148          'button-hover='
149          'drop-area='
150          'drop-area-active='
151          'drop-area-disabled='
152          'list='
153          'upload-spinner='
154          'progress-bar='
155          'upload-file='
156          'upload-size='
157          'upload-listItem='
158          'upload-cancel='
159          'upload-success='
160          'upload-fail='
161          'success-icon='
162          'fail-icon=')
163        FriendlyName = 'IWFileUploader1'
164        Font.Color = clNone
165        Font.Size = 10
166        Font.Style = []
167      end
168      object IWDBGrid1: TIWDBGrid
169        Left = 93
170        Top = 521
171        Width = 300
172        Height = 150
173        BorderColors.Color = clNone
174        BorderColors.Light = clNone
175        BorderColors.Dark = clNone
176        BGColor = clNone
177        BorderSize = 1
178        BorderStyle = tfDefault
179        Caption = #25215#35469#24453#12385#12524#12467#12540#12489
180        CellPadding = 0
181        CellSpacing = 0
182        Font.Color = clNone
183        Font.Size = 10
184        Font.Style = []
185        FrameBuffer = 40
186        Lines = tlAll
187        UseFrame = True
188        UseSize = True
189        ScrollToCurrentRow = False
190        Columns = <>
191        DataSource = DataSource1
192        FooterRowCount = 0
193        FriendlyName = 'IWDBGrid1'
194        FromStart = True
195        HighlightColor = clNone
196        HighlightRows = False
197        Options = [dgShowTitles]
198        RefreshMode = rmAutomatic
199        RowLimit = 0
200        RollOver = False
201        RowClick = False
202        RollOverColor = clNone
203        RowHeaderColor = clNone
204        RowAlternateColor = clNone
205        RowCurrentColor = clNone
206        TabOrder = -1
207      end
208    object IWRegion1: TIWRegion    object IWRegion1: TIWRegion
209      Left = 1      Left = 1
210      Top = 1      Top = 1
# Line 72  object AdminFile: TAdminFile Line 215  object AdminFile: TAdminFile
215      BorderOptions.BorderWidth = cbwNumeric      BorderOptions.BorderWidth = cbwNumeric
216      BorderOptions.Style = cbsSolid      BorderOptions.Style = cbsSolid
217      BorderOptions.Color = clNone      BorderOptions.Color = clNone
     object IWImage1: TIWImage  
       Left = 284  
       Top = 14  
       Width = 159  
       Height = 181  
       RenderSize = False  
       StyleRenderOptions.RenderSize = False  
       BorderOptions.Width = 0  
       TabOrder = -1  
       UseSize = False  
       Picture.Data = {  
         0954506E67496D61676589504E470D0A1A0A0000000D494844520000009F0000  
         00B50802000000CE4EBAE7000000017352474200AECE1CE90000000467414D41  
         0000B18F0BFC6105000000097048597300000EC300000EC301C76FA864000003  
         504944415478DAEDD841769A40008061BC4BEDA2CF13E0099203E408745937D9  
         65D95D3776198F9003D813C413F8B2487A17AA09C8308CA4B6D03E7FFF7FA502  
         238F0F066552966566D026EA8253979CBAE4D425A72E3975C9A94B4E5D72EA92  
         53979CBAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A9  
         4B4E5D72EA9253979CBAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425  
         A72E3975C9A94B4E5D72EA9253979CBAE406D3FDF17972BDCAF2E5CBE3970FAD  
         0FB375797F75C2403FBFCFA78B4DF5261ACF4E6B60DDC8E34F74FF6E430B1B54  
         375B2EB78BC5AC5151F7FF36ACEEBABC7D9E4F1F6EEACB3742AAAFEF7DFD736E  
         7BC3FD64BD1BF4EE695A6F5EEC964D9B29BC68AD7A98D75B4B524BC39D08772E  
         DAEC6C1B5AF7FE6AFF625B1DB51029FCBC3ACEB3A3C7B0ABBB43A90F79F5F640  
         13AEBC5BF6EDE363783A6DC3D556457CCABC2E0B5FBFBF73E7D3F0BAE1CBE655  
         74FCB22CF1497AB4C4AAED13A50FA3D9B2F3753D8B30778631749BC39D259C93  
         5BF48DD6D54D69674727E7B76BBCF36DCD20AD39B909303B8FA2DBBA53FE53DD  
         57A8BC7D5937843DBA800B35D148BAD5EC99E79BCD6CF899F9A86E0FE13B3333  
         E236DB6934DDC30459247F55453F71FA47FB6DDDC8A9F584A5BDEC6DEFF2E0D7  
         DF2AFAA73E7FBE3DFB0729E3E9D647B038F11F51E259D529F7DDF03B8AF5CBA7  
         AFD11FB4553DF0FAE6E13A1E24B8FB02EEBA97FC9C797F8A3CDD01087BBA20DD  
         EE5F61E64FA9A00BD2BDC0D425A72E3975C9A94B4E5D72EA9253979CBAE4D425  
         A72E3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A94B4E5D72EA9253  
         979CBAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A94B  
         4E5D72EA9253979CBAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425A7  
         2E3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A94B4E5D72EA925397  
         9CBAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A94B4E  
         5D72EA9253979CBAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425A72E  
         3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A94B4E5D72EA9253979C  
         BAE4D425A72E3975C9A94B4E5D72EA9253979CBAE4D425A72E3975C9A94B4E5D  
         72EA9253979CBAE4D425A72E3975C9FD02598B44D3B431312C0000000049454E  
         44AE426082}  
       FriendlyName = 'IWImage1'  
       TransparentColor = clNone  
       JpegOptions.CompressionQuality = 90  
       JpegOptions.Performance = jpBestSpeed  
       JpegOptions.ProgressiveEncoding = False  
       JpegOptions.Smoothing = True  
     end  
218      object IWDBText1: TIWDBText      object IWDBText1: TIWDBText
219        Left = 148        Left = 148
220        Top = 17        Top = 17
# Line 139  object AdminFile: TAdminFile Line 233  object AdminFile: TAdminFile
233      end      end
234      object IWDBNavigator1: TIWDBNavigator      object IWDBNavigator1: TIWDBNavigator
235        Left = 43        Left = 43
236        Top = 335        Top = 327
237        Width = 300        Width = 300
238        Height = 28        Height = 28
239        Confirmations.Delete = 'Are you sure you want to delete this record?'        Confirmations.Delete = 'Are you sure you want to delete this record?'
# Line 151  object AdminFile: TAdminFile Line 245  object AdminFile: TAdminFile
245        ImageWidth = 24        ImageWidth = 24
246        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
247        Orientation = orHorizontal        Orientation = orHorizontal
248          OnEdit = IWDBNavigator1Edit
249        OnInsert = IWDBNavigator1Insert        OnInsert = IWDBNavigator1Insert
250        OnDelete = IWDBNavigator1Post        OnDelete = IWDBNavigator1Delete
251        OnPost = IWDBNavigator1Post        OnPost = IWDBNavigator1Post
252        OnBeforeAction = IWDBNavigator1BeforeAction        OnBeforeAction = IWDBNavigator1BeforeAction
253      end      end
# Line 166  object AdminFile: TAdminFile Line 261  object AdminFile: TAdminFile
261        Font.Style = []        Font.Style = []
262        FriendlyName = 'IWDBEdit6'        FriendlyName = 'IWDBEdit6'
263        SubmitOnAsyncEvent = True        SubmitOnAsyncEvent = True
264        TabOrder = 1        TabOrder = 0
265        AutoEditable = False        AutoEditable = False
266        DataField = 'WEIGHT'        DataField = 'WEIGHT'
267        PasswordPrompt = False        PasswordPrompt = False
# Line 258  object AdminFile: TAdminFile Line 353  object AdminFile: TAdminFile
353      end      end
354      object IWButton1: TIWButton      object IWButton1: TIWButton
355        Left = 284        Left = 284
356        Top = 144        Top = 145
357        Width = 75        Width = 59
358        Height = 25        Height = 25
359        Caption = 'IWButton1'        Caption = #35501#12415#36796#12415
360        Color = clBtnFace        Color = clBtnFace
361        Font.Color = clNone        Font.Color = clNone
362        Font.Size = 10        Font.Size = 10
# Line 342  object AdminFile: TAdminFile Line 437  object AdminFile: TAdminFile
437        FriendlyName = 'IWLabel6'        FriendlyName = 'IWLabel6'
438        Caption = #21830#21697#37325#37327        Caption = #21830#21697#37325#37327
439      end      end
440        object IWImage1: TIWImage
441          Left = 296
442          Top = 17
443          Width = 96
444          Height = 64
445          RenderSize = False
446          StyleRenderOptions.RenderSize = False
447          BorderOptions.Width = 0
448          TabOrder = -1
449          UseSize = False
450          FriendlyName = 'IWImage1'
451          TransparentColor = clNone
452          JpegOptions.CompressionQuality = 90
453          JpegOptions.Performance = jpBestSpeed
454          JpegOptions.ProgressiveEncoding = False
455          JpegOptions.Smoothing = True
456        end
457        object IWButton3: TIWButton
458          Left = 360
459          Top = 145
460          Width = 45
461          Height = 25
462          Caption = #21066#38500
463          Color = clBtnFace
464          Font.Color = clNone
465          Font.Size = 10
466          Font.Style = []
467          FriendlyName = 'IWButton3'
468          TabOrder = 10
469          OnClick = IWButton3Click
470        end
471        object IWDBCheckBox1: TIWDBCheckBox
472          Left = 80
473          Top = 280
474          Width = 121
475          Height = 21
476          Caption = #12450#12463#12486#12451#12502
477          Editable = True
478          Font.Color = clNone
479          Font.Size = 10
480          Font.Style = []
481          SubmitOnAsyncEvent = True
482          Style = stNormal
483          TabOrder = 11
484          AutoEditable = False
485          DataField = 'ACTIVATE'
486          DataSource = DataModule3.view
487          FriendlyName = 'IWDBCheckBox1'
488          ValueChecked = 'true'
489          ValueUnchecked = 'false'
490        end
491    end    end
492    object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML    object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
493      TagType = ttIntraWeb      TagType = ttIntraWeb
# Line 349  object AdminFile: TAdminFile Line 495  object AdminFile: TAdminFile
495      Left = 288      Left = 288
496      Top = 432      Top = 432
497    end    end
   object FDGUIxLoginDialog1: TFDGUIxLoginDialog  
     Provider = 'Forms'  
     Left = 184  
     Top = 120  
   end  
498    object FileOpenDialog1: TFileOpenDialog    object FileOpenDialog1: TFileOpenDialog
499      FavoriteLinks = <>      FavoriteLinks = <>
500      FileTypes = <      FileTypes = <>
       item  
         DisplayName = 'png'  
         FileMask = '*.png'  
       end>  
501      Options = []      Options = []
502      Left = 336      Left = 337
503      Top = 232      Top = 113
504      end
505      object FDQuery1: TFDQuery
506        Connection = DataModule3.FDConnection1
507        SQL.Strings = (
508          'select * from item_Data where agree = false;')
509        Left = 424
510        Top = 600
511      end
512      object DataSource1: TDataSource
513        DataSet = FDQuery1
514        Left = 368
515        Top = 600
516    end    end
517  end  end

Legend:
Removed from v.15  
changed lines
  Added in v.18

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