Skip to content

Commit 53a7399

Browse files
DeveloppeurPascalDeveloppeurPascal
committed
added an HTML editor in web pages form (#40)
1 parent 95c8f6b commit 53a7399

File tree

2 files changed

+284
-31
lines changed

2 files changed

+284
-31
lines changed

‎v2_x/fWebPages.fmx‎

Lines changed: 168 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -320,7 +320,7 @@ object frmWebPages: TfrmWebPages
320320
Size.Height = 17.000000000000000000
321321
Size.PlatformDefault = False
322322
Text = 'Page content (for <BODY> tag)'
323-
TabOrder = 4
323+
TabOrder = 5
324324
end
325325
object lblISOCode: TLabel
326326
Align = Top
@@ -350,22 +350,6 @@ object frmWebPages: TfrmWebPages
350350
Size.Height = 22.000000000000000000
351351
Size.PlatformDefault = False
352352
end
353-
object mmoText: TMemo
354-
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
355-
DataDetectorTypes = []
356-
TextSettings.WordWrap = True
357-
Align = Client
358-
Margins.Left = 10.000000000000000000
359-
Margins.Top = 5.000000000000000000
360-
Margins.Right = 10.000000000000000000
361-
Margins.Bottom = 10.000000000000000000
362-
Size.Width = 620.000000000000000000
363-
Size.Height = 227.000000000000000000
364-
Size.PlatformDefault = False
365-
TabOrder = 5
366-
Viewport.Width = 616.000000000000000000
367-
Viewport.Height = 223.000000000000000000
368-
end
369353
object lblTitle: TLabel
370354
Align = Top
371355
Margins.Left = 10.000000000000000000
@@ -378,12 +362,12 @@ object frmWebPages: TfrmWebPages
378362
Size.Height = 17.000000000000000000
379363
Size.PlatformDefault = False
380364
Text = 'Page title (for <TITLE> tag)'
381-
TabOrder = 2
365+
TabOrder = 3
382366
end
383367
object edtTitle: TEdit
384368
Touch.InteractiveGestures = [LongTap, DoubleTap]
385369
Align = Top
386-
TabOrder = 3
370+
TabOrder = 4
387371
Position.X = 10.000000000000000000
388372
Position.Y = 106.000000000000000000
389373
Margins.Left = 10.000000000000000000
@@ -394,6 +378,105 @@ object frmWebPages: TfrmWebPages
394378
Size.Height = 22.000000000000000000
395379
Size.PlatformDefault = False
396380
end
381+
object tcText: TTabControl
382+
Align = Client
383+
Margins.Left = 10.000000000000000000
384+
Margins.Top = 5.000000000000000000
385+
Margins.Right = 10.000000000000000000
386+
Margins.Bottom = 10.000000000000000000
387+
Size.Width = 620.000000000000000000
388+
Size.Height = 227.000000000000000000
389+
Size.PlatformDefault = False
390+
TabIndex = 0
391+
TabOrder = 2
392+
TabPosition = Bottom
393+
OnChange = tcTextChange
394+
Sizes = (
395+
620s
396+
201s
397+
620s
398+
201s)
399+
object tiWYSIWYG: TTabItem
400+
CustomIcon = <
401+
item
402+
end>
403+
TextSettings.Trimming = None
404+
IsSelected = True
405+
Size.Width = 74.000000000000000000
406+
Size.Height = 26.000000000000000000
407+
Size.PlatformDefault = False
408+
StyleLookup = ''
409+
TabOrder = 0
410+
Text = 'W&YSIWYG'
411+
ExplicitSize.cx = 74.000000000000000000
412+
ExplicitSize.cy = 26.000000000000000000
413+
object edtWYSIWYG: THtmlEditor
414+
Align = Client
415+
ClipChildren = True
416+
Margins.Left = 1.000000000000000000
417+
Margins.Top = 1.000000000000000000
418+
Margins.Right = 1.000000000000000000
419+
Margins.Bottom = 1.000000000000000000
420+
Size.Width = 618.000000000000000000
421+
Size.Height = 199.000000000000000000
422+
Size.PlatformDefault = False
423+
StyleLookup = 'ScrollBoxstyle'
424+
TabOrder = 2
425+
Styles.Strings = (
426+
427+
'body {margin: 8 8} td, th {resize: horizontal} img, svg {resize:' +
428+
' both; draggable: true}')
429+
HTML.Strings = (
430+
'<p>&nbsp;</p>')
431+
AutoHeight = False
432+
Active = True
433+
TouchScroll = False
434+
ContentScale = 1.000000000000000000
435+
AdaptiveZoom = False
436+
EnableSelection = False
437+
SelectHandleStyle = shPlatform
438+
WebLoading = False
439+
ScaleMin = 0.100000001490116100
440+
ScaleMax = 100.000000000000000000
441+
BlockHighlightColor = 1350598816
442+
Encoding = heUTF8
443+
Options = [eoCaretVisible, eoAnimateCaret, eoAddColMarks, eoAddRowMarks, eoSelectionToolbar, eoHighlightCurrentBlock, eoContextToolbar]
444+
DefaultParaTag = 'p'
445+
Viewport.Width = 618.000000000000000000
446+
Viewport.Height = 199.000000000000000000
447+
end
448+
end
449+
object tiHTMLSource: TTabItem
450+
CustomIcon = <
451+
item
452+
end>
453+
TextSettings.Trimming = None
454+
IsSelected = False
455+
Size.Width = 91.000000000000000000
456+
Size.Height = 26.000000000000000000
457+
Size.PlatformDefault = False
458+
StyleLookup = ''
459+
TabOrder = 0
460+
Text = '&HTML Source'
461+
ExplicitSize.cx = 91.000000000000000000
462+
ExplicitSize.cy = 26.000000000000000000
463+
object edtSource: TMemo
464+
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
465+
DataDetectorTypes = []
466+
Align = Client
467+
Margins.Left = 1.000000000000000000
468+
Margins.Top = 1.000000000000000000
469+
Margins.Right = 1.000000000000000000
470+
Margins.Bottom = 1.000000000000000000
471+
Size.Width = 618.000000000000000000
472+
Size.Height = 199.000000000000000000
473+
Size.PlatformDefault = False
474+
TabOrder = 2
475+
Viewport.Width = 614.000000000000000000
476+
Viewport.Height = 195.000000000000000000
477+
end
478+
end
479+
end
397480
end
398481
object GridPanelLayout2: TGridPanelLayout
399482
Align = Bottom
@@ -455,4 +538,70 @@ object frmWebPages: TfrmWebPages
455538
end
456539
end
457540
end
541+
object MainMenu1: TMainMenu
542+
Left = 296
543+
Top = 136
544+
object mnuMacOS: TMenuItem
545+
Locked = True
546+
Text = 'mnuMacOS'
547+
end
548+
object mnuEdition: TMenuItem
549+
Text = '&Edit'
550+
object mnuCouper: TMenuItem
551+
Locked = True
552+
ShortCut = 16472
553+
Text = 'Cut'
554+
OnClick = mnuCouperClick
555+
end
556+
object mnuCopier: TMenuItem
557+
Locked = True
558+
ShortCut = 16451
559+
Text = 'Copy'
560+
OnClick = mnuCopierClick
561+
end
562+
object mnuColler: TMenuItem
563+
Locked = True
564+
ShortCut = 16470
565+
Text = 'Paste'
566+
OnClick = mnuCollerClick
567+
end
568+
object mnuToutSelectionner: TMenuItem
569+
Locked = True
570+
ShortCut = 16449
571+
Text = 'Select all'
572+
OnClick = mnuToutSelectionnerClick
573+
end
574+
end
575+
end
576+
object ActionList1: TActionList
577+
Left = 416
578+
Top = 320
579+
object HtActionCopy1: THtActionCopy
580+
Category = 'HtmlEdit'
581+
Text = '&Copy'
582+
Hint = '&Copy'
583+
ImageIndex = 17
584+
ShortCut = 16451
585+
Editor = edtWYSIWYG
586+
ImageIndex = 17
587+
end
588+
object HtActionCut1: THtActionCut
589+
Category = 'HtmlEdit'
590+
Text = '&Cut'
591+
Hint = 'Cut'
592+
ImageIndex = 40
593+
ShortCut = 16472
594+
Editor = edtWYSIWYG
595+
ImageIndex = 40
596+
end
597+
object HtActionPaste1: THtActionPaste
598+
Category = 'HtmlEdit'
599+
Text = '&Paste'
600+
Hint = '&Paste'
601+
ImageIndex = 5
602+
ShortCut = 16470
603+
Editor = edtWYSIWYG
604+
ImageIndex = 5
605+
end
606+
end
458607
end

0 commit comments

Comments
 (0)