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

fixed compilation of synunihighlighter

Browse Source 
git-svn-id: trunk@8431 -
This commit is contained in:
mattias 2006-01-04 10:46:06 +00:00
parent d452af1ba0
commit c155fb0148
3 changed files with 45 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
components/synunihighlighter/synuni.lpk
View File

@ -1,8 +1,27 @@
<?xml version="1.0"?>
<CONFIG>
<Package>
<Package Version="2">
<Name Value="SynUni"/>
<Author Value="Vit (Vitaly Nevzorov nevzorov@yahoo.com); Fantasist (Kirill Burtsev walking_in_the_sky@yahoo.com)"/>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<IncludeFiles Value="$(LazarusDir)/components/synedit/"/>
<UnitOutputDirectory Value="lib/"/>
</SearchPaths>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Conversion of the UniHighlighter to FPC/Lazarus
Source homepage is:
http://www.delphist.com/UniHighlighter.html
@ -27,11 +46,20 @@ see http://www.mozilla.org/MPL/"/>
</Item3>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="1">
<RequiredPkgs Count="4">
<Item1>
<PackageName Value="IDEIntf"/>
</Item1>
<Item2>
<PackageName Value="SynEdit"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item4>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)/;$(LazarusDir)/;$(LazarusDir)/components/units/"/>
@ -41,23 +69,4 @@ see http://www.mozilla.org/MPL/"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
<CompilerOptions>
<SearchPaths>
<IncludeFiles Value="$(LazarusDir)/components/synedit"/>
<OtherUnitFiles Value="$(LazarusDir);$(LazarusDir)/components/units;$(LazarusDir)/lcl/units;$(LazarusDir)/lcl/units/$(LCLWidgetType)"/>
<UnitOutputDirectory Value="lib/"/>
<LCLWidgetType Value="gtk"/>
</SearchPaths>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

13
components/synunihighlighter/synuni.pas
View File

@ -1,23 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install
the package SynUni 1.0.
}
This source is only used to compile and install the package.
}
unit SynUni;
interface
uses
SynUniDesigner, SynUniHighlighter, SynUniReg, LazarusPackageIntf;
synunidesigner, synunihighlighter, synunireg, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('SynUniHighlighter', @SynUniHighlighter.Register);
RegisterUnit('SynUniReg', @SynUniReg.Register);
RegisterUnit('synunihighlighter', @synunihighlighter.Register);
RegisterUnit('synunireg', @synunireg.Register);
end;
initialization
RegisterPackage('SynUni', @Register)
RegisterPackage('SynUni', @Register);
end.

12
components/synunihighlighter/synunidesigner.pas
View File

@ -64,7 +64,7 @@ uses
QMenus,
{$ELSE}
////TL Windows,
Messages,
LMessages,
Graphics,
Registry,
Controls,
@ -244,7 +244,11 @@ begin
////TL added 2 @ prefixes
f.OnKeyPress:=@FormKeyPress;
{$WARNING TODO Fix UTF8BIDI issue}
{$IFDEF SYN_LAZARUS}
f.OnUTF8KeyPress:=nil;
{$ELSE}
f.OnUTF8KeyPress:=@FormUTF8KeyPress;
{$ENDIF}
f.OnKeyDown:=@FormKeyDown;
f.caption:='Unihighlighter Designer (c) Fantasist, Vit (2002)';
@ -263,7 +267,7 @@ begin
{$ENDIF}
ImageList:=TImageList.create(F);
b:={$IFDEF SYN_LAZARUS}TPixmap{$ELSE}TBitmap{$ENDIF}.create;
b:=TBitmap.create;
b.Width:=16;
b.Height:=16;
{$IFNDEF SYN_LAZARUS}
@ -274,7 +278,7 @@ begin
b.canvas.TextOut(1,1,#52);
ImageList.AddMasked(b, clWhite);
b.free;
b:={$IFDEF SYN_LAZARUS}TPixmap{$ELSE}TBitmap{$ENDIF}.create;
b:=TBitmap.create;
b.Width:=16;
b.Height:=16;
{$IFNDEF SYN_LAZARUS}
@ -285,7 +289,7 @@ begin
b.canvas.TextOut(1,1,#52);
ImageList.AddMasked(b, clWhite);
b.free;
b:={$IFDEF SYN_LAZARUS}TPixmap{$ELSE}TBitmap{$ENDIF}.create;
b:=TBitmap.create;
b.Width:=16;
b.Height:=16;
{$IFNDEF SYN_LAZARUS}