Skip to content

Commit

Permalink
ideU release v2.6.6.
Browse files Browse the repository at this point in the history
  • Loading branch information
fredvs committed Nov 16, 2021
1 parent 5527c41 commit 6999006
Show file tree
Hide file tree
Showing 8 changed files with 1,013 additions and 1,095 deletions.
3 changes: 1 addition & 2 deletions src/confideu.mfm
Original file line number Diff line number Diff line change
Expand Up @@ -295,7 +295,6 @@ object confideufo: tconfideufo
end
object fontname: tdropdownlistedit
frame.hiddenedges = [edg_right, edg_top, edg_left, edg_bottom]
frame.frameimage_list = mainfo.timagelist3
frame.caption = 'Font name '
frame.captionpos = cp_left
frame.localprops = [frl_hiddenedges, frl_frameimagelist, frl_colorclient]
Expand Down Expand Up @@ -516,7 +515,7 @@ object confideufo: tconfideufo
'iso8859-1'
)
end>
value = 0
value = 1
reffontheight = 15
end
object backupfilecount: tintegeredit
Expand Down
29 changes: 27 additions & 2 deletions src/confideu.pas
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
interface

uses
mseconsts_ide,msestockobjects,msetypes,mseglob,mseguiglob,mseguiintf,
mseconsts_ide,msestockobjects,msetypes,mseglob,mseguiglob,mseguiintf, msefileutils,
mseapplication,msegui,msegraphics,msegraphutils,mseclasses,mseforms,
msegraphedits,msesimplewidgets,mseificomp,mseificompglob,mseifiglob,msemenus,
msescrollbar,msedataedits,mseedit,msestat,msestatfile,msestream,msestrings,
Expand Down Expand Up @@ -75,6 +75,7 @@ tconfideufo = class(tmseform)

var
confideufo: tconfideufo;
hanconf : integer = -1;

implementation

Expand Down Expand Up @@ -730,18 +731,42 @@ procedure tconfideufo.oncloseev(const Sender: TObject);
end;

procedure tconfideufo.onapply(const Sender: TObject);
var
str1: ttextstream;
thedir : string;
begin
messagefo.updateprojectoptions;
onchangefont;
noconfirmdelete := confirmdel.Value;
blinkingcaret := blinkcaret.Value;
//mse_repaintcanvas := brepaintcanvas.value;

if usedefaulteditoroptions.value then
begin
if fileexists(defsynt.text) then begin
if hanconf <> -1 then sourcefo.syntaxpainter.freedeffile(hanconf);
thedir := tosysfilepath(defsynt.Text);
str1 := ttextstream.Create(thedir);
hanconf := sourcefo.syntaxpainter.readdeffile(str1);
sourcefo.activepage.edit.setsyntaxdef(hanconf);
sourcefo.activepage.updatestatvalues;
str1.Destroy();
end;
if fileexists(deflayout.text) then begin
thedir := tosysfilepath(deflayout.Text);
str1:= ttextstream.create(thedir);
debuggerfo.close;
mainfo.loadwindowlayout(str1);
str1.Destroy();
end;
end;

end;

procedure tconfideufo.onok(const Sender: TObject);
begin
onapply(Sender);
Close;
application.processmessages;
end;

procedure tconfideufo.oncreated(const Sender: TObject);
Expand Down
1,752 changes: 875 additions & 877 deletions src/confideu_mfm.pas

Large diffs are not rendered by default.

Loading

0 comments on commit 6999006

Please sign in to comment.