paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 10:36:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpWeb: Remove duplicate resource images.

Browse Source 
git-svn-id: trunk@63248 -
This commit is contained in:
juha 2020-05-29 08:45:19 +00:00
parent e5dd3bb2c6
commit 03e92d0d2c
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/fpweb/fpwebtoolsunit.pas
View File

@ -5,7 +5,13 @@ unit fpWebToolsUnit;
interface
uses
Classes, SysUtils, ProjectIntf, LCLType;
Classes, SysUtils,
// LCL
LCLType, LResources, Forms, Controls, Dialogs,
// BuildIntf
ProjectIntf, NewItemIntf,
// IdeIntf
MenuIntf, SrcEditorIntf, IDECommands;
type
@ -88,7 +94,6 @@ procedure ProcHTMLTextHeader3(Sender: TObject);
procedure ProcHTMLTextHeader4(Sender: TObject);
procedure ProcHTMLTextHeader5(Sender: TObject);
procedure ProcHTMLForm(Sender: TObject);
procedure ProcHTMLSelect(Sender: TObject);
procedure ProcHTMLSelectOptions(Sender: TObject);
@ -102,14 +107,13 @@ procedure ProcHTMLInputResetTag(Sender: TObject);
procedure ProcHTMLFormFieldSet(Sender: TObject);
procedure ProcHTMLFormLegend(Sender: TObject);
procedure ProcOtherInsertFileName(Sender: TObject);
procedure InsertTextToCurEditor(const S:string);
implementation
uses LResources, NewItemIntf, Forms, Controls, IDECommands,
MenuIntf, SrcEditorIntf, Dialogs,
uses
//HTML
fpWebNewHTMLFileUnit, fpWebStrConsts, fpWebNewHtmlTableUnit,
fpwebNewHTMLListUnit, fpwebNewHtmlTagTRUnit, fpwebNewHTMLFormUnit,
@ -140,7 +144,6 @@ var
CmdHTMLTextAlignJustify : TIDECommand;
//Span text
CmdHTMLTable : TIDECommand;
CmdHTMLList : TIDECommand;
@ -163,8 +166,6 @@ var
CmdHTMLTextStyleH4 : TIDECommand;
CmdHTMLTextStyleH5 : TIDECommand;
CmdHTMLFrom : TIDECommand;
CmdHTMLFormSelect : TIDECommand;
CmdHTMLFormSelectOpt : TIDECommand;
@ -178,7 +179,6 @@ var
CmdHTMLFormFieldSet : TIDECommand;
CmdHTMLFormLegend : TIDECommand;
CmdOtherInsFileName : TIDECommand;
procedure CreateHTMLToolsMenu;
@ -358,7 +358,6 @@ begin
end;
Procedure InsertHTMLSnippet(Const AText : String);
begin
if Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor) then
With SourceEditorManagerIntf.ActiveEditor do
@ -366,13 +365,11 @@ begin
end;
Function CheckEditor : Boolean;
begin
Result:=Assigned(SourceEditorManagerIntf) and Assigned(SourceEditorManagerIntf.ActiveEditor);
end;
Procedure InsertHTMLTag(Const ATag : String; Const AAttribute : String = '');
begin
If CheckEditor then
With SourceEditorManagerIntf.ActiveEditor do
@ -383,7 +380,6 @@ begin
end;
function ShowEditInputTagForm(const ATagType:string; const ADefValue:string = ''):string;
begin
If Not CheckEditor then Exit;
With TFpwebNewHTMLInputForm.Create(Application) do
@ -435,7 +431,6 @@ begin
InsertHTMLTag('H5');
end;
procedure ProcHTMLTextBold(Sender: TObject);
begin
InsertHTMLTag('strong');
@ -663,7 +658,6 @@ begin
end;
procedure ProcHTMLRadioButton(Sender: TObject);
begin
ShowEditInputTagForm('radio');
end;
@ -874,7 +868,5 @@ begin
//
end;
initialization
{$I fpWeb_images.inc}
end.