"Fossies" - the Fresh Open Source Software Archive  

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

formmain_bottompanel.inc  (CudaText-1.92.0):formmain_bottompanel.inc  (CudaText-1.93.0)
skipping to change at line 41 skipping to change at line 41
end; end;
SCaption:= ''; SCaption:= '';
for i:= 0 to ToolbarSideLow.ButtonCount-1 do for i:= 0 to ToolbarSideLow.ButtonCount-1 do
begin begin
Btn:= ToolbarSideLow.Buttons[i]; Btn:= ToolbarSideLow.Buttons[i];
Btn.Checked:= Btn=Sender; Btn.Checked:= Btn=Sender;
if Btn.Checked then if Btn.Checked then
begin begin
SCaption:= Btn.Caption; SCaption:= Btn.Caption;
Break;
end; end;
end; end;
if SCaption<>'' then if SCaption<>'' then
UpdateBottomPanels(SCaption, true) UpdateBottomPanels(SCaption, true)
else else
ShowBottom:= false; ShowBottom:= false;
end; end;
procedure TfmMain.DoBottom_AddonsClick(Sender: TObject); procedure TfmMain.DoBottom_AddonsClick(Sender: TObject);
skipping to change at line 69 skipping to change at line 70
bShown:= Assigned(fmFind) and fmFind.Visible; bShown:= Assigned(fmFind) and fmFind.Visible;
if bShown then if bShown then
DoDialogFind_Hide DoDialogFind_Hide
else else
DoDialogFind(false); DoDialogFind(false);
UpdateStatus; UpdateStatus;
end; end;
procedure TfmMain.UpdateBottomPanels(const ACaption: string; AndFocus: boolean); procedure TfmMain.UpdateBottomPanels(const ACaption: string; AndFocus: boolean);
var var
bConsole, bListboxOut, bListboxVal: boolean;
Ctl: TWinControl; Ctl: TWinControl;
i: integer; i: integer;
begin begin
FLastBottomPanel:= ACaption; FLastBottomPanel:= ACaption;
ShowBottom:= true; ShowBottom:= true;
if FloatBottom then if FloatBottom then
FFormFloatBottom.Caption:= ACaption + ' - ' + msgTitle; FFormFloatBottom.Caption:= DoBottom_TranslatedCaption(ACaption) + ' - ' + ms
gTitle;
//hide std panels
fmConsole.Hide;
ListboxOut.Hide;
ListboxVal.Hide;
//hide panels from proc_bottompanel_add //hide panels from proc_bottompanel_add
for i:= 0 to AppBottomPanels.Count-1 do for i:= 0 to AppBottomPanels.Count-1 do
begin begin
Ctl:= TAppSidePanel(AppBottomPanels[i]).ItemControl; Ctl:= TAppSidePanel(AppBottomPanels[i]).ItemControl;
if Assigned(Ctl) then if Assigned(Ctl) then
Ctl.Hide; Ctl.Hide;
end; end;
if SameText(ACaption, msgPanelConsole_Init) then bConsole:= SameText(ACaption, msgPanelConsole_Init);
bListboxOut:= SameText(ACaption, msgPanelOutput_Init);
bListboxVal:= SameText(ACaption, msgPanelValidate_Init);
fmConsole.Visible:= bConsole;
ListboxOut.Visible:= bListboxOut;
ListboxVal.Visible:= bListboxVal;
if bConsole then
begin begin
fmConsole.Show;
if AndFocus then if AndFocus then
fmConsole.Ed.SetFocus; fmConsole.Ed.SetFocus;
end end
else else
if SameText(ACaption, msgPanelOutput_Init) then if bListboxOut then
begin begin
ListboxOut.Show;
if AndFocus then if AndFocus then
ListboxOut.SetFocus; ListboxOut.SetFocus;
end end
else else
if SameText(ACaption, msgPanelValidate_Init) then if bListboxVal then
begin begin
ListboxVal.Show;
if AndFocus then if AndFocus then
ListboxVal.SetFocus; ListboxVal.SetFocus;
end end
else else
begin begin
//tabs for api proc_bottompanel //tabs for api proc_bottompanel
for i:= 0 to AppBottomPanels.Count-1 do for i:= 0 to AppBottomPanels.Count-1 do
with TAppSidePanel(AppBottomPanels[i]) do with TAppSidePanel(AppBottomPanels[i]) do
begin begin
if Assigned(ItemControl) then if Assigned(ItemControl) then
skipping to change at line 223 skipping to change at line 226
var var
Btn: TATButton; Btn: TATButton;
i: integer; i: integer;
begin begin
for i:= 0 to ToolbarSideLow.ButtonCount-1 do for i:= 0 to ToolbarSideLow.ButtonCount-1 do
begin begin
Btn:= ToolbarSideLow.Buttons[i]; Btn:= ToolbarSideLow.Buttons[i];
Btn.Checked:= SameText(Btn.Caption, FLastBottomPanel) and ShowBottom; Btn.Checked:= SameText(Btn.Caption, FLastBottomPanel) and ShowBottom;
end; end;
end; end;
function TfmMain.DoBottom_TranslatedCaption(const ACaption: string): string;
begin
case ACaption of
msgPanelConsole_Init:
Result:= msgPanelConsole;
msgPanelOutput_Init:
Result:= msgPanelOutput;
msgPanelValidate_Init:
Result:= msgPanelValidate;
else
Result:= ACaption;
end;
end;
 End of changes. 11 change blocks. 
12 lines changed or deleted 16 lines changed or added

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