"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/formlexerstylemap.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).

formlexerstylemap.pas  (CudaText-1.92.0):formlexerstylemap.pas  (CudaText-1.93.0)
skipping to change at line 62 skipping to change at line 62
function DoDialogLexerStylesMap(an: TecSyntAnalyzer): boolean; function DoDialogLexerStylesMap(an: TecSyntAnalyzer): boolean;
procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil); procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil);
implementation implementation
{$R *.lfm} {$R *.lfm}
const const
cSectionMap = 'map'; cSectionMap = 'map';
var var
LexersAsked: TList = nil; LexersAsked: TFPList = nil;
procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil); procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil);
var var
n: integer; n: integer;
begin begin
if not Assigned(LexersAsked) then exit; if not Assigned(LexersAsked) then exit;
if an=nil then if an=nil then
LexersAsked.Clear LexersAsked.Clear
else else
skipping to change at line 283 skipping to change at line 283
with LabelTh do Caption:= ini.ReadString(section, 'st_th', Caption); with LabelTh do Caption:= ini.ReadString(section, 'st_th', Caption);
with btnSet do Caption:= ini.ReadString(section, 'set_sel', Caption); with btnSet do Caption:= ini.ReadString(section, 'set_sel', Caption);
with btnSetNone do Caption:= ini.ReadString(section, 'set_non', Caption); with btnSetNone do Caption:= ini.ReadString(section, 'set_non', Caption);
with btnClear do Caption:= ini.ReadString(section, 'set_un', Caption); with btnClear do Caption:= ini.ReadString(section, 'set_un', Caption);
finally finally
FreeAndNil(ini); FreeAndNil(ini);
end; end;
end; end;
initialization initialization
LexersAsked:= TList.Create; LexersAsked:= TFPList.Create;
finalization finalization
if Assigned(LexersAsked) then if Assigned(LexersAsked) then
begin begin
LexersAsked.Clear; LexersAsked.Clear;
LexersAsked.Free; LexersAsked.Free;
end; end;
end. end.
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

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