"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/proc_miscutils.pas" between
CudaText-1.92.0.tar.gz and CudaText-1.93.0.tar.gz

About: CudaText is a cross-platform text editor (written in Lazarus).

proc_miscutils.pas  (CudaText-1.92.0):proc_miscutils.pas  (CudaText-1.93.0)
skipping to change at line 79 skipping to change at line 79
const AFilename: string; const AIndex: integer = -1): integer; const AFilename: string; const AIndex: integer = -1): integer;
function FormatFileDateAsNiceString(const AFilename: string): string; function FormatFileDateAsNiceString(const AFilename: string): string;
function FormatFilenameForMenu(const fn: string): string; function FormatFilenameForMenu(const fn: string): string;
function AppStrToBool(const S: string): boolean; inline; function AppStrToBool(const S: string): boolean; inline;
function AppStringToAlignment(const S: string): TAlignment; function AppStringToAlignment(const S: string): TAlignment;
function AppAlignmentToString(const V: TAlignment): string; function AppAlignmentToString(const V: TAlignment): string;
function ViewerGotoFromString(V: TATBinHex; SInput: string): boolean; function ViewerGotoFromString(V: TATBinHex; SInput: string): boolean;
procedure ViewerApplyTheme(V: TATBinHex); procedure ViewerApplyTheme(V: TATBinHex);
function ViewerModeString(V: TATBinHex): string;
function ExtractFileName_Fixed(const FileName: string): string; function ExtractFileName_Fixed(const FileName: string): string;
function ExtractFileDir_Fixed(const FileName: string): string; function ExtractFileDir_Fixed(const FileName: string): string;
procedure DoPaintCheckers(C: TCanvas; procedure DoPaintCheckers(C: TCanvas;
ASizeX, ASizeY: integer; ASizeX, ASizeY: integer;
ACellSize: integer; ACellSize: integer;
AColor1, AColor2: TColor); AColor1, AColor2: TColor);
procedure DoFormFocus(F: TForm; AllowShow: boolean); procedure DoFormFocus(F: TForm; AllowShow: boolean);
skipping to change at line 562 skipping to change at line 561
St:= GetAppStyleFromName('Id'); St:= GetAppStyleFromName('Id');
V.TextColorHex:= St.Font.Color; V.TextColorHex:= St.Font.Color;
St:= GetAppStyleFromName('Id1'); St:= GetAppStyleFromName('Id1');
V.TextColorHex2:= St.Font.Color; V.TextColorHex2:= St.Font.Color;
St:= GetAppStyleFromName('Pale1'); St:= GetAppStyleFromName('Pale1');
V.TextColorLines:= St.Font.Color; V.TextColorLines:= St.Font.Color;
end; end;
function ViewerModeString(V: TATBinHex): string;
const
cModes: array[TATBinHexMode] of string = (
'text',
'binary',
'hex',
'unicode',
'unicode/hex'
);
begin
Result:= cModes[V.Mode];
end;
function AppStringToAlignment(const S: string): TAlignment; function AppStringToAlignment(const S: string): TAlignment;
begin begin
case S of case S of
'L': Result:= taLeftJustify; 'L': Result:= taLeftJustify;
'R': Result:= taRightJustify 'R': Result:= taRightJustify
else Result:= taCenter; else Result:= taCenter;
end; end;
end; end;
function AppAlignmentToString(const V: TAlignment): string; function AppAlignmentToString(const V: TAlignment): string;
 End of changes. 2 change blocks. 
14 lines changed or deleted 0 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)