a76e4b4974
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1416 8e941d3f-bd1b-0410-a28a-d453659cc2b4
214 lines
7.1 KiB
PHP
Executable File
214 lines
7.1 KiB
PHP
Executable File
{Version 9.45}
|
|
|
|
{$IFNDEF LCL} //Delphi
|
|
{$ifDef ver150} {Delphi 7}
|
|
{$WARN Unsafe_Type off}
|
|
{$WARN Unsafe_Code off}
|
|
{$WARN Unsafe_Cast off}
|
|
{$endif}
|
|
|
|
{$A+,B-,F-,G+,I+,P+,T-,V+,X+}
|
|
|
|
{$ifdef Win32}
|
|
{$J+} {typed constants are modifiable}
|
|
{$H+} {LongStrings On}
|
|
{$endif}
|
|
|
|
{$ifndef DebugIt}
|
|
{$R-} {Range checking off}
|
|
{$W-} {Stack frames off}
|
|
{$Q-} {overflow checking off}
|
|
{$S-} {stack checking off}
|
|
{$C-} {Assertions off}
|
|
{$ifdef Win32}
|
|
{$O+} {optimization on}
|
|
{$endif}
|
|
{$else}
|
|
{$R+} {Range checking on}
|
|
{$W+} {Stack frames on}
|
|
{$Q+} {overflow checking on}
|
|
{$S+} {stack checking on}
|
|
{$C+} {Assertions on}
|
|
{$ifdef Win32}
|
|
{$O-} {optimization off}
|
|
{$endif}
|
|
{$DEFINE CPU86} // LCL port: Delphi currently only for Intel, 32-bit.
|
|
{$endif}
|
|
|
|
{$ELSE} // LCL
|
|
{$A+,B-,H+,I+,J+,P+,T-,V+,X+}
|
|
{$IFNDEF DebugIt}
|
|
{$C-,Q-,R-,S-}
|
|
{$ELSE}
|
|
{$C+,Q+,R+,S+}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
{$Define ver100_plus}
|
|
{$Define ver120_plus}
|
|
{$Define Delphi6_Plus}
|
|
{$Define Delphi7_Plus}
|
|
|
|
{$ifdef ver90} {Delphi 2}
|
|
{$UnDef ver100_plus}
|
|
{$UnDef ver120_plus}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifdef ver93} {C++Builder 1}
|
|
{$Define CppBuilder}
|
|
{$UnDef ver100_plus}
|
|
{$UnDef ver120_plus}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifdef ver100} {Delphi 3}
|
|
{$UnDef ver120_plus}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifdef ver110} {C++Builder 3}
|
|
{$ObjExportAll On}
|
|
{$Define CppBuilder}
|
|
{$UnDef ver120_plus}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifdef Ver120} {Delphi 4}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifdef ver125} {C++Builder 4}
|
|
{$ObjExportAll On}
|
|
{$Define CppBuilder}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifdef Ver130} {Delphi 5, C++Builder 5}
|
|
{$ifdef BCB} {C++Builder}
|
|
{$Define CppBuilder}
|
|
{$ObjExportAll On}
|
|
{$endif}
|
|
{$UnDef Delphi6_Plus}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifDef ver140} {Delphi 6}
|
|
{$UnDef Delphi7_Plus}
|
|
{$endif}
|
|
|
|
{$ifDef ver150} {Delphi 7}
|
|
{$endif}
|
|
|
|
{$ifdef Delphi6_Plus}
|
|
{$Warn Symbol_Platform Off}
|
|
{$endif}
|
|
|
|
{$IFNDEF LCL}
|
|
{.$Define NoOldPNG} {To eliminate the older PNG image code, define "NoOldPNG" by
|
|
removing the '.'. Only do this if you are sure the gdiplus.dll is present
|
|
or don't care about PNG support}
|
|
{$ELSE}
|
|
{$Define NoOldPNG} //Exclude .obj files, PNGZLIB1 and PngImage1.
|
|
{$ENDIF}
|
|
|
|
{$IFDEF MSWINDOWS}
|
|
{.$Define NoGDIPlus} {The gdiplus.dll provides Alpha transparency support for
|
|
PNG images. If, for some reason the use of the gdiplus.dll is
|
|
undesirable, define "NoGDIPlus" by removing the '.'. Defining both
|
|
NoGDIPlus and NoOldPNG will remove support for PNG images entirely.}
|
|
{$ELSE}
|
|
{$Define NoGDIPlus} //No point in trying to load gdiplus.dll if not Windows.
|
|
{$ENDIF}
|
|
|
|
{$Define NoMetaFile} {Metafiles may be displayed by undefining this constant.
|
|
NoMetaFile is defined by default to emphasize the fact that Metafile
|
|
display and some printing operations are currently incompatible in Win98.
|
|
For applications where printing is unimportant or Win98/95/ME need not
|
|
be supported, undefining this constant will allow Metafiles to be
|
|
displayed.}
|
|
|
|
{.$Define NoTabLink} {To eliminate tabbing between links, define "NoTabLink" by
|
|
removing the '.'. For documents with hundreds of links, tabbing may not
|
|
be desirable and also may cause delays in loading. Even when NoTabLink
|
|
is not defined, there is another constant, MaxTab, which eliminates
|
|
tabbing to MaxTab links. MaxTab is defined in readhtml.pas}
|
|
|
|
{$Define FastRadio}
|
|
{if you have a form with a great many radio buttons, you may want to
|
|
define FastRadio to help speed the action. Note that this option
|
|
changes the way tabbing works. With FastRadio off, tabs move only to
|
|
the next control that is visible. With FastRadio on, tabs move to
|
|
the next control even if it is not visible.}
|
|
|
|
{.$Define Quirk}
|
|
{Defining Quirk makes changes which simulate some of the
|
|
quirks of other browsers. It may be desirable to define this constant
|
|
if you expect to be displaying HTML which might depend on these quirks.
|
|
Currently, Quirk forces the font color and size to return to default
|
|
values in each table cell.}
|
|
|
|
{.$Define OpOnChange}
|
|
{Without this definition, the <select> form controls (TListbox and
|
|
TCombobox) will issue the OnObjectChange event only when the control
|
|
loses the focus which is according to HTML specs. Defining OpOnChange
|
|
simulates the way IExplorer does it, issuing the OnChange event
|
|
immediately when a change is made.}
|
|
|
|
{.$Define UseTNT}
|
|
{Defining UseTNT allows the TNT Unicode controls to be used for HTML Form
|
|
controls in place of the Delphi TEdit, TButton, TListbox, TCombobox, and
|
|
TMemo controls. See "Using Third Party Controls" below.}
|
|
|
|
{.$Define UseElpack}
|
|
{Defining UseElpack allows the Elpack Unicode controls to be used for
|
|
HTML Form controls in place of the Delphi TEdit, TButton, TListbox,
|
|
TCombobox, and TMemo controls. See "Using Third Party Controls" below.}
|
|
|
|
{
|
|
Using Third Party Controls
|
|
|
|
Unfortunately, the VCL controls that come with Delphi do not handle Unicode well.
|
|
In fact, in many cases, they do not work well with multibyte fonts either. For
|
|
this reason, provision had been made to use either the TNT or Elpack third party
|
|
controls.
|
|
|
|
The TNT controls may be obtained at
|
|
http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm. They are
|
|
freeware. They handle Unicode well in Win2000 and WinXP (probably NT also).
|
|
However, with Win95/98 they are not Unicode but do handle multibyte and other
|
|
character sets well with the exception of UTF-8. The TNT controls do not work
|
|
with Delphi 4.
|
|
|
|
The Elpack controls may be purchased at http://www.eldos.org/elpack/elpack.html.
|
|
For use with the HTML Components, the item you will want is the "LMD Elpack 4.0
|
|
Standard VCL". The Elpack controls are fully Unicode for Win95 through WinXP.
|
|
|
|
Either of these control sets may be used by defining the appropriate compile
|
|
time constant, "UseTNT" or "UseElpack". You can define these in htmlcons.inc or
|
|
in the Project|Options dialog, Directories/Conditionals tab. Be sure and do a
|
|
complete Build on your application after changing these compile time constants.
|
|
|
|
htmlsub.pas defines five new symbols to represent the form controls. These are
|
|
ThtEdit, ThtButton, ThtMemo, ThtCombobox, ThtListbox. The definitions of
|
|
these symbols change with the set of controls being used. So, for instance,
|
|
ThtEdit is the same as TEdit for the Delphi controls but becomes TTntEdit when
|
|
UseTNT is defined or TElEdit when UseElpack is defined. If your application
|
|
accesses the form controls for special purposes, it would be best to use these
|
|
new symbols. For example code like,
|
|
|
|
if TFormControlObj(Items[I]).TheControl is TEdit then
|
|
TEdit(TFormControlObj(Items[I]).TheControl).Text := ........
|
|
|
|
might be better written as:
|
|
|
|
if TFormControlObj(Items[I]).TheControl is ThtEdit then
|
|
ThtEdit(TFormControlObj(Items[I]).TheControl).Text := ........
|
|
}
|