pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

tinyPNG.pas, mckEcmListEdit.pas, mckCCtrls.pas:

Browse Source 
* fixs for UNICODE_CTRLS define

KOLZLibBzip.pas:

* fix missed file (thanks to Awkward)

git-svn-id: https://svn.code.sf.net/p/kolmck/code@144 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2014-12-03 16:20:28 +00:00
parent 3fe3e37c4b
commit 7e8e9d66ff
4 changed files with 1965 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1960
Addons/KOLZLibBzip.pas Normal file
View File

File diff suppressed because it is too large Load Diff

4
Addons/mckCCtrls.pas
View File

@ -35,7 +35,7 @@ type
function AdditionalUnits: string; override; function AdditionalUnits: string; override;
function TabStopByDefault: Boolean; override; function TabStopByDefault: Boolean; override;
procedure SetupFirst(SL: TStringList; const AName, AParent, Prefix: string); override; procedure SetupFirst(SL: TStringList; const AName, AParent, Prefix: string); override;
function SetupParams(const AName, AParent: string): string; override; function SetupParams(const AName, AParent: TDelphiString): TDelphiString; override;
procedure SetupConstruct(SL: TStringList; const AName, AParent, Prefix: string); override; procedure SetupConstruct(SL: TStringList; const AName, AParent, Prefix: string); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -502,7 +502,7 @@ begin
SL.Add(Prefix + AName + '.SelEnd := ' + IntToStr(SelEnd) + ';'); SL.Add(Prefix + AName + '.SelEnd := ' + IntToStr(SelEnd) + ';');
end; end;
function TKOLTrackBar.SetupParams(const AName, AParent: string): string; function TKOLTrackBar.SetupParams(const AName, AParent: TDelphiString): TDelphiString;
var var
S : string; S : string;
begin begin

4
Addons/mckEcmListEdit.pas
View File

@ -46,7 +46,7 @@ type
procedure SetupFirst( SL: TStringList; const AName, AParent, Prefix: String ); override; procedure SetupFirst( SL: TStringList; const AName, AParent, Prefix: String ); override;
procedure SetupLast( SL: TStringList; const AName, AParent, Prefix: String ); override; procedure SetupLast( SL: TStringList; const AName, AParent, Prefix: String ); override;
procedure AssignEvents( SL: TStringList; const AName: String ); override; procedure AssignEvents( SL: TStringList; const AName: String ); override;
function SetupParams( const AName, AParent: String ): String; override; function SetupParams( const AName, AParent: TDelphiString ): TDelphiString; override;
function GetCaption: string; function GetCaption: string;
function GetStyle: TKOLListViewStyle; function GetStyle: TKOLListViewStyle;
function GetOptions: TKOLListViewOptions; function GetOptions: TKOLListViewOptions;
@ -207,7 +207,7 @@ begin
end; end;
end; end;
function TKOLEcmListEdit.SetupParams(const AName, AParent: String): String; function TKOLEcmListEdit.SetupParams(const AName, AParent: TDelphiString): TDelphiString;
begin begin
Result := inherited SetupParams(AName,AParent) Result := inherited SetupParams(AName,AParent)
end; end;

2
Addons/tinyPNG.pas
View File

@ -192,7 +192,7 @@ type
HasPallete: boolean; HasPallete: boolean;
end; end;
TChunkType = array[0..3] of Char; TChunkType = array[0..3] of AnsiChar;
TPNGChunkHeader = packed record TPNGChunkHeader = packed record
Length: cardinal; Length: cardinal;