file_type_powerpoint2

- uploadFileSnippet: Control: GroupContainer@1.3.0 Variant: ManualLayout Properties: ContentLanguage: =/*Steve BOURDIN - MOCA by ASI sbourdin@asi.fr Mars 2025*/ DropShadow: =DropShadow.Bold Height: =2*Parent.Height/2 Width: =Parent.Width/2 X: =Parent.Width/4 Children: - btn_uploadfile_save: Control: Button@0.0.44 Properties: OnSelect: | =ForAll(var_uploadFile_listeAttachment, //Mettre ici les enregistrement des pièces jointes ThisRecord.Name // Nom du fichier & ThisRecord.Value // Données binaires du fichier ); ClearCollect(var_uploadFile_listeAttachment,Blank()) //Steve BOURDIN - MOCA by ASI 03/2025 Visible: =false X: =40 Y: =40 - cont_uploadfile: Control: GroupContainer@1.3.0 Variant: ManualLayout Properties: DropShadow: =DropShadow.None Height: =Parent.Height Width: =Parent.Width Children: - btn_fond: Control: Classic/Button@2.2.0 Properties: BorderColor: |- =If(IsBlank(var_uploadFile_primaryColor), RGBA( 0, 134, 208, 1 ),var_uploadFile_primaryColor) Color: =Self.BorderColor DisabledBorderColor: =RGBA(166, 166, 166, 1) Fill: =If(IsBlank( var_uploadFile_secondaryColor),Color.White,var_uploadFile_secondaryColor) Font: =Font.'Open Sans' Height: =pj_piecejointe.Height HoverBorderColor: =ColorFade(Self.BorderColor, 20%) HoverColor: =RGBA(255, 255, 255, 1) HoverFill: =ColorFade(RGBA(56, 96, 178, 1), -20%) PressedBorderColor: =Self.Fill PressedColor: =Self.Fill PressedFill: =Self.Color RadiusBottomLeft: =90 RadiusBottomRight: =90 RadiusTopLeft: =90 RadiusTopRight: =90 Size: =18 Text: =If(Len(var_uploadFile_MSG_Depose)=0,"Drag your file here",var_uploadFile_MSG_Depose) Width: =pj_piecejointe.Width X: =pj_piecejointe.X Y: =pj_piecejointe.Y - pj_piecejointe: Control: Attachments@2.3.0 Properties: AddAttachmentColor: =Blank() AddAttachmentText: ="" AddedItemColor: =Color.Red AddedItemFill: =Color.Red BorderColor: =Blank() BorderThickness: =0 DropTargetBackgroundColor: =RGBA(237, 237, 237, 0.5) DropTargetBorderColor: =Blank() DropTargetBorderThickness: =0 DropTargetTextColor: =RGBA(237, 237, 237, 0.5) Fill: =RGBA(255, 255, 255, 0) FocusedBorderColor: =Blank() FocusedBorderThickness: =0 Font: =Font.'Open Sans' Height: =Parent.Height/4 HoverFill: =RGBA(186, 202, 226, 1) ItemColor: =Blank() ItemDisabledColor: =Blank() ItemDisabledFill: =Blank() ItemErrorColor: =Blank() ItemErrorFill: =Blank() ItemFill: =Blank() ItemHoverColor: =Blank() ItemHoverFill: =Blank() ItemPressedColor: =Blank() ItemPressedFill: =Blank() Items: =Blank() MaxAttachmentsText: =var_uploadFile_MSG_MaxFile NoAttachmentsText: ="" OnAddFile: =Collect(var_uploadFile_listeAttachment, Self.Attachments);Reset(Self) PaddingBottom: =5 PaddingLeft: =If(Self.DisplayMode = DisplayMode.Edit, 5, 0) PaddingRight: =5 PaddingTop: =5 PressedColor: =RGBA(255, 255, 255, 1) PressedFill: =RGBA(0, 18, 107, 1) Tooltip: =Blank() Width: =18*Parent.Width/20 X: =Parent.Width/20 Y: =If(CountRows(var_uploadFile_listeAttachment)>0, Parent.Height/16,Parent.Height/2-Self.Height/2) - gal_files: Control: Gallery@2.15.0 Variant: Vertical Properties: BorderColor: =RGBA(0, 18, 107, 1) Height: =2*Parent.Height/4 Items: =var_uploadFile_listeAttachment TemplatePadding: =0 TemplateSize: =RoundDown((Self.Height/(If(Self.AllItemsCount=0,1,RoundUp(Self.AllItemsCount/2,0)))),0) Visible: =CountRows(var_uploadFile_listeAttachment)>0 Width: =18*Parent.Width/20 WrapCount: =2 X: =Parent.Width/20 Y: = Parent.Height/16+btn_fond.Height+10 Children: - lab_title: Control: Label@2.5.1 Properties: Align: =Align.Center BorderColor: =RGBA(0, 18, 107, 1) Font: =Font.'Open Sans' Height: =gal_files.TemplateHeight/4 OnSelect: =Select(Parent) Size: =Self.Height*16/69 Text: |- =If( "." in ThisItem.Name, First( Split( ThisItem.Name, "." ) ).Value, ThisItem.Name ) Width: =Parent.TemplateWidth Y: =3*gal_files.TemplateHeight/4 - img_file: Control: Image@2.2.3 Properties: BorderColor: =RGBA(0, 18, 107, 1) Height: =3*Parent.TemplateHeight/4 Image: |- =Switch( Lower( Last( Split( ThisItem.Name, "." ) ).Value ), "xlsx", var_uploadFile_Excel, "xls", var_uploadFile_Excel, "ppt", var_uploadFile_PPT, "pptx", var_uploadFile_PPT, "pdf", var_uploadFile_PDF, "doc", var_uploadFile_Word, "docx", var_uploadFile_Word, ThisItem.Value ) OnSelect: =Select(Parent) Visible: =".png" in Lower(ThisItem.Name) || ".jpg" in Lower(ThisItem.Name)|| ".jpeg" in Lower(ThisItem.Name)||".bmp" in Lower(ThisItem.Name)||".gif" in Lower (ThisItem.Name) || Lower(Last(Split(ThisItem.Name,".")).Value) in ["xls","xlsx","pdf","ppt","pptx","doc","docx"] Width: =Parent.TemplateWidth - ico_file: Control: Classic/Icon@2.5.0 Properties: BorderColor: =RGBA(0, 18, 107, 1) Color: =RGBA(0, 18, 107, 1) Height: =img_file.Height Icon: =Icon.DocumentWithContent OnSelect: =Select(Parent) Visible: =img_file.Visible = false Width: =img_file.Width X: =img_file.X Y: =img_file.Y - ico_delete: Control: Classic/Icon@2.5.0 Properties: BorderColor: =RGBA(0, 18, 107, 1) Color: =RGBA(168, 0, 0, 1) Height: =gal_files.TemplateWidth/10 Icon: =Icon.CancelBadge OnSelect: | = Remove( var_uploadFile_listeAttachment, ThisItem ); Width: =gal_files.TemplateWidth/10 X: =9*gal_files.TemplateWidth/10 - tim_initialisation: Control: Timer@2.1.0 Properties: AutoStart: =true BorderColor: =ColorFade(Self.Fill, -15%) Color: =RGBA(255, 255, 255, 1) DisabledBorderColor: =ColorFade(Self.BorderColor, 70%) DisabledColor: =ColorFade(Self.Fill, 90%) DisabledFill: =ColorFade(Self.Fill, 70%) Duration: =600 Fill: =RGBA(56, 96, 178, 1) Font: =Font.'Open Sans' HoverBorderColor: =ColorFade(Self.BorderColor, 20%) HoverColor: =RGBA(255, 255, 255, 1) HoverFill: =ColorFade(RGBA(56, 96, 178, 1), -20%) OnTimerStart: |- =If( IsBlank(var_uploadFile_primaryColor), UpdateContext( { var_uploadFile_primaryColor: RGBA( 0, 134, 208, 1 ) } ) ); If( IsBlank(var_uploadFile_secondaryColor), UpdateContext({var_uploadFile_secondaryColor: Color.White}) ); UpdateContext( { var_uploadFile_Excel: "data:image/svg+xml;utf8, " & EncodeUrl(""), var_uploadFile_PDF: "data:image/svg+xml;utf8, " & EncodeUrl( "" ), var_uploadFile_PPT: "data:image/svg+xml;utf8, " & EncodeUrl(""), var_uploadFile_Word: "data:image/svg+xml;utf8, " & EncodeUrl("") } ); //FRA /* UpdateContext( { var_uploadFile_MSG_Depose: "Glissez vos fichiers ici"; var_uploadFile_MSG_Save: "Enregistrer"; var_uploadFile_MSG_Cancel: "Annuler"; var_uploadFile_MSG_MaxFile: "Le nombre maximal de fichiers est atteint." } )*/ //UK UpdateContext( { var_uploadFile_MSG_Depose: "Drag your file here", var_uploadFile_MSG_Save: "Save", var_uploadFile_MSG_Cancel: "Cancel", var_uploadFile_MSG_MaxFile: "The maximum number of files is reached." } ) PressedBorderColor: =Self.Fill PressedColor: =Self.Fill PressedFill: =Self.Color Start: =true Visible: =false X: =40 Y: =40 - cont_sauvegarde: Control: GroupContainer@1.3.0 Variant: AutoLayout Properties: Height: =Parent.Height-Self.Y LayoutAlignItems: =LayoutAlignItems.Stretch LayoutDirection: =LayoutDirection.Horizontal LayoutJustifyContent: =LayoutJustifyContent.SpaceBetween PaddingBottom: =Self.Height/4 PaddingLeft: =Parent.Width/4 PaddingRight: =Parent.Width/4 PaddingTop: =Self.Height/4 Visible: =CountRows(var_uploadFile_listeAttachment)>0 Width: =Parent.Width Y: =gal_files.Y+gal_files.Height Children: - btn_cancel: Control: Button@0.0.44 Properties: Appearance: ='ButtonCanvas.Appearance'.Primary BasePaletteColor: =RGBA(249, 83, 109, 1) OnSelect: =ClearCollect(var_uploadFile_listeAttachment,Blank());Reset(pj_piecejointe) Text: =var_uploadFile_MSG_Cancel Width: =Parent.Width/6 - btn_confirm: Control: Button@0.0.44 Properties: BasePaletteColor: =RGBA(8, 222, 8, 1) OnSelect: =Select(btn_uploadfile_save) Text: =var_uploadFile_MSG_Save Width: =Parent.Width/6

Upload File with Drag

More Snippets from this Author

Videos from this Author