Source code of file oscpmwin/askupload.pas from the
osCommerce Product Manager for Windows.


0000:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001:   osCommerce Product Manager for Windows (oscpmwin).
0002:   0003:   
0004:   You can contact Mario A. Valdez-Ramirez
0005:   by email at mario@mariovaldez.org or paper mail at
0006:   Olmos 809, San Nicolas, NL. 66495, Mexico.
0007:   
0008:   This program is free software; you can redistribute it and/or modify
0009:   it under the terms of the GNU General Public License as published by
0010:   the Free Software Foundation; either version 2 of the License, or (at
0011:   your option) any later version.
0012:   
0013:   This program is distributed in the hope that it will be useful, but
0014:   WITHOUT ANY WARRANTY; without even the implied warranty of
0015:   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0016:   General Public License for more details.
0017:   
0018:   You should have received a copy of the GNU General Public License
0019:   along with this program; if not, write to the Free Software
0020:   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0021:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0022:   unit askupload;
0023:   
0024:   interface
0025:   
0026:   uses
0027:     SysUtils, Forms,
0028:     Dialogs, StdCtrls, Buttons, ExtCtrls, Controls, Classes;
0029:   
0030:   type
0031:     Topm_Form_UploadImage = class(TForm)
0032:       opm_BitBtn_UploadOk: TBitBtn;
0033:       opm_BitBtn_UploadCancel: TBitBtn;
0034:       opm_BitBtn_UploadSelectFile: TBitBtn;
0035:       opm_Edit_UploadFileName: TEdit;
0036:       opm_Edit_UploadNewName: TEdit;
0037:       opm_label_UploadNewName: TLabel;
0038:       opm_RadioGroup_UploadFormat: TRadioGroup;
0039:       opm_ComboBox_UploadDir: TComboBox;
0040:       opm_label_UploadDir: TLabel;
0041:       procedure FormCreate(Sender: TObject);
0042:       procedure FormShow(Sender: TObject);
0043:       procedure opm_BitBtn_UploadSelectFileClick(Sender: TObject);
0044:       procedure opm_BitBtn_UploadOkClick(Sender: TObject);
0045:       procedure opm_RadioGroup_UploadFormatClick(Sender: TObject);
0046:     private
0047:       FUNCTION PRopm_FixNewName (ImageName : STRING; JPEGWanted : BOOLEAN) : STRING;
0048:     public
0049:       { Public declarations }
0050:     end;
0051:   
0052:   
0053:   VAR
0054:     opm_Form_UploadImage : Topm_Form_UploadImage;
0055:     opm_Selected_FileName : STRING;
0056:   
0057:   
0058:   implementation
0059:   
0060:   {$R *.dfm}
0061:   
0062:   
0063:   Uses gnugettext, dataman, imageman, openpicdlg;
0064:   
0065:   
0066:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0067:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0068:   procedure Topm_Form_UploadImage.FormCreate(Sender: TObject);
0069:   begin
0070:     opm_Selected_FileName := '';
0071:     TranslateComponent (self);
0072:   end;
0073:   
0074:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0075:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0076:   procedure Topm_Form_UploadImage.FormShow(Sender: TObject);
0077:   begin
0078:     opm_Form_UploadImage.Caption := _('Upload product image');
0079:     opm_RadioGroup_UploadFormat.ItemIndex := 0;
0080:     opm_Edit_UploadFileName.Text := '';
0081:     opm_Edit_UploadNewName.Text := '';
0082:     opm_Selected_FileName := '';
0083:   end;
0084:   
0085:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0086:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0087:   procedure Topm_Form_UploadImage.opm_BitBtn_UploadSelectFileClick (Sender: TObject);
0088:   VAR
0089:     OpenDialog : opmT_OpenPictureDialog;
0090:   BEGIN
0091:     TRY
0092:       OpenDialog := opmT_OpenPictureDialog.Create (opm_Form_UploadImage);
0093:       TRY
0094:         OpenDialog.DefaultExt := opmC_Def_UploadExt;
0095:         OpenDialog.FileName := opmC_Def_UploadFilename;
0096:         OpenDialog.Filter := _('Image files') + '|' + opmC_Def_UploadFilter + '|' + _('All files (*.*)');
0097:         OpenDialog.Title := _('Uploading image file...');
0098:         IF (OpenDialog.Execute = TRUE) THEN
0099:           BEGIN
0100:             opm_Selected_FileName := OpenDialog.FileName;
0101:             opm_Edit_UploadFileName.Text := opm_Selected_FileName;
0102:             opm_Edit_UploadNewName.Text := PRopm_FixNewName (FNopm_CleanUploadName (ExtractFileName (opm_Selected_FileName)), (opm_RadioGroup_UploadFormat.ItemIndex = 0));
0103:           END
0104:         ELSE
0105:           BEGIN
0106:             opm_Selected_FileName := '';
0107:             opm_Edit_UploadFileName.Text := '';
0108:             opm_Edit_UploadNewName.Text := '';
0109:           END;
0110:       FINALLY
0111:         OpenDialog.Free;
0112:       END;
0113:     EXCEPT
0114:       opm_Selected_FileName := '';
0115:       opm_Edit_UploadFileName.Text := '';
0116:       opm_Edit_UploadNewName.Text := '';
0117:     END;
0118:   END;
0119:   
0120:   
0121:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0122:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0123:   FUNCTION Topm_Form_UploadImage.PRopm_FixNewName (ImageName : STRING; JPEGWanted : BOOLEAN) : STRING;
0124:   BEGIN
0125:     IF (JPEGWanted = TRUE) THEN
0126:       BEGIN
0127:         IF ((FNopm_ImageNameIsJPEG (ImageName) = FALSE) AND (ImageName <> '')) THEN
0128:           BEGIN
0129:             ImageName := COPY (ImageName, 1, LENGTH (ImageName) - LENGTH (ExtractFileExt (ImageName)));
0130:             ImageName := ImageName + '.jpg';
0131:           END;
0132:       END
0133:     ELSE
0134:       BEGIN
0135:         IF ((FNopm_ImageNameIsPNG (ImageName) = FALSE)  AND (ImageName <> '')) THEN
0136:           BEGIN
0137:             ImageName := COPY (ImageName, 1, LENGTH (ImageName) - LENGTH (ExtractFileExt (ImageName)));
0138:             ImageName := ImageName + '.png';
0139:           END;
0140:       END;
0141:     PRopm_FixNewName := ImageName;
0142:   END;
0143:   
0144:   
0145:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0146:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0147:   procedure Topm_Form_UploadImage.opm_BitBtn_UploadOkClick(Sender: TObject);
0148:   VAR
0149:     TmpStr : STRING;
0150:   begin
0151:     TmpStr := FNopm_CleanUploadName (ExtractFileName (opm_Edit_UploadNewName.Text));
0152:     IF (TmpStr = '') THEN
0153:       TmpStr := FNopm_CleanUploadName (ExtractFileName (opm_Selected_FileName));
0154:       opm_Edit_UploadNewName.Text := PRopm_FixNewName (TmpStr, (opm_RadioGroup_UploadFormat.ItemIndex = 0))
0155:   end;
0156:   
0157:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0158:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0159:   procedure Topm_Form_UploadImage.opm_RadioGroup_UploadFormatClick (Sender: TObject);
0160:   VAR
0161:     TmpStr : STRING;
0162:   begin
0163:     TmpStr := FNopm_CleanUploadName (ExtractFileName (opm_Edit_UploadNewName.Text));
0164:     IF (TmpStr = '') THEN
0165:       TmpStr := FNopm_CleanUploadName (ExtractFileName (opm_Selected_FileName));
0166:       opm_Edit_UploadNewName.Text := PRopm_FixNewName (TmpStr, (opm_RadioGroup_UploadFormat.ItemIndex = 0))
0167:   end;
0168:   
0169:   
0170:   
0171:   
0172:   
0173:   end.
 
 
NA fum/lmd: 2007.07.15
Copyright ©1994-2017 by Mario A. Valdez-Ramírez.
no siga este enlace / do not follow this link