mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-02 03:16:23 +02:00
educationlaz: added missing file
git-svn-id: trunk@24791 -
This commit is contained in:
mattias
parent
0b9988d3ca
commit
9b577d5648
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -738,6 +738,7 @@ components/education/edupropsevents.lfm svneol=native#text/plain
|
||||
components/education/edupropsevents.lrs svneol=native#text/plain
|
||||
components/education/edupropsevents.pas svneol=native#text/plain
|
||||
components/education/eduspeedbuttons.lfm svneol=native#text/plain
|
||||
components/education/eduspeedbuttons.pas svneol=native#text/plain
|
||||
components/externhelp/README.txt svneol=native#text/plain
|
||||
components/externhelp/externhelp.lpk svneol=native#text/plain
|
||||
components/externhelp/externhelp.pas svneol=native#text/plain
|
||||
|
||||
471
components/education/eduspeedbuttons.pas
Normal file
471
components/education/eduspeedbuttons.pas
Normal file
@ -0,0 +1,471 @@
|
||||
{
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the EducationLaz package *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
Author: Michael Kuhardt
|
||||
|
||||
Abstract:
|
||||
Frame to setup SpeedButtons
|
||||
}
|
||||
unit EduSpeedButtons;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Controls, Graphics, LResources, Forms, StdCtrls, ExtCtrls,
|
||||
LazConfigStorage, ComCtrls, Buttons, IDEOptionsIntf, EduOptions,
|
||||
ObjectInspector, LazIDEIntf, IDEImagesIntf, Dialogs, AvgLvlTree;
|
||||
|
||||
type
|
||||
|
||||
{ EduSpeedButtonsOptions }
|
||||
|
||||
TEduSpeedButtonsOptions = class(TEduOptionsNode)
|
||||
private
|
||||
fVisible: TStringToStringTree;
|
||||
function GetButtonVisible(ButtonName: string): boolean;
|
||||
procedure SetButtonVisible(ButtonName: string; const AValue: boolean);
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
function Load(Config: TConfigStorage): TModalResult; override;
|
||||
function Save(Config: TConfigStorage): TModalResult; override;
|
||||
function GetToolBar(tbName: string): TToolBar;
|
||||
procedure Apply(Enable: boolean); override;
|
||||
property ButtonVisible[ButtonName: string]: boolean read GetButtonVisible write SetButtonVisible;
|
||||
|
||||
end;
|
||||
|
||||
{ TEduSpeedButtonsFrame }
|
||||
|
||||
TEduSpeedButtonsFrame = class(TAbstractIDEOptionsEditor)
|
||||
ShowSelectionButton: TButton;
|
||||
ShowAllButton: TButton;
|
||||
HideAllButton: TButton;
|
||||
SpeedButtonsGroupBox: TGroupBox;
|
||||
Panel: TPanel;
|
||||
SpeedButtonsTreeView: TTreeView;
|
||||
procedure HideAllButtonClick(Sender: TObject);
|
||||
procedure ShowAllButtonClick(Sender: TObject);
|
||||
procedure ShowSelectionButtonClick(Sender: TObject);
|
||||
procedure SpeedButtonsTreeViewMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure FrameClick(Sender: TObject);
|
||||
private
|
||||
HideImgID: LongInt;
|
||||
ShowImgID: LongInt;
|
||||
procedure FillSpeedButtonsTreeView;
|
||||
procedure SaveFillSpeedButtonsTreeView;
|
||||
procedure ShowHideAll(aShow: boolean);
|
||||
procedure ShowSelected;
|
||||
function GetImageForSpeedBtn(btnName: String): TCustomBitmap;
|
||||
public
|
||||
function GetTitle: String; override;
|
||||
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
||||
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
||||
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
||||
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
||||
end;
|
||||
|
||||
var
|
||||
EduSpeedButtonsOptions: TEduSpeedButtonsOptions = nil;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
EduSpeedButtonsOptions:=TEduSpeedButtonsOptions.Create;
|
||||
EducationOptions.Root.Add(EduSpeedButtonsOptions);
|
||||
EduSpeedButtonsOptionsID:=RegisterIDEOptionsEditor(EduOptionID,
|
||||
TEduSpeedButtonsFrame,EduSpeedButtonsOptionsID)^.Index;
|
||||
end;
|
||||
|
||||
{ TEduSpeedButtonsOptions }
|
||||
|
||||
constructor TEduSpeedButtonsOptions.Create;
|
||||
|
||||
begin
|
||||
inherited Create;
|
||||
Name:='SpeedButtons';
|
||||
fVisible:=TStringToStringTree.Create(false);
|
||||
end;
|
||||
|
||||
destructor TEduSpeedButtonsOptions.Destroy;
|
||||
begin
|
||||
FreeAndNil(fVisible);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
|
||||
function TEduSpeedButtonsOptions.GetButtonVisible(ButtonName: string
|
||||
): boolean;
|
||||
begin
|
||||
Result:=fVisible[ButtonName]='1';
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsOptions.SetButtonVisible(
|
||||
ButtonName: string; const AValue: boolean);
|
||||
begin
|
||||
if AValue then
|
||||
fVisible[ButtonName]:='1'
|
||||
else
|
||||
fVisible.Delete(ButtonName);
|
||||
end;
|
||||
|
||||
function TEduSpeedButtonsOptions.Load(Config: TConfigStorage): TModalResult;
|
||||
var
|
||||
Cnt: LongInt;
|
||||
i: Integer;
|
||||
ButtonName: String;
|
||||
|
||||
begin
|
||||
|
||||
fVisible.Clear;
|
||||
Cnt:=Config.GetValue('Visible/Count',0);
|
||||
for i:=1 to Cnt do begin
|
||||
ButtonName:=Config.GetValue('Visible/Item'+IntToStr(i),'');
|
||||
if ButtonName='' then continue;
|
||||
fVisible[ButtonName]:='1';
|
||||
end;
|
||||
Result:=inherited Load(Config);
|
||||
end;
|
||||
|
||||
function TEduSpeedButtonsOptions.Save(Config: TConfigStorage): TModalResult;
|
||||
var
|
||||
Node: TAvgLvlTreeNode;
|
||||
Item: PStringToStringItem;
|
||||
Cnt: Integer;
|
||||
begin
|
||||
Cnt:=0;
|
||||
Node:=fVisible.Tree.FindLowest;
|
||||
while Node<>nil do begin
|
||||
inc(Cnt);
|
||||
Item:=PStringToStringItem(Node.Data);
|
||||
Config.SetDeleteValue('Visible/Item'+IntToStr(Cnt),Item^.Name,'');
|
||||
Node:=fVisible.Tree.FindSuccessor(Node);
|
||||
end;
|
||||
Config.SetDeleteValue('Visible/Count',Cnt,0);
|
||||
Result:=inherited Save(Config);
|
||||
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsOptions.Apply(Enable: boolean);
|
||||
var
|
||||
i: Integer;
|
||||
curButton: TToolButton;
|
||||
begin
|
||||
|
||||
for i:=0 to EduSpeedButtonsOptions.GetToolBar('tbStandard').ButtonCount-1 do begin
|
||||
curButton:=EduSpeedButtonsOptions.GetToolBar('tbStandard').Buttons[i];
|
||||
if NOT(curButton.Name = '') then begin
|
||||
curButton.Visible:=(not Enable) or ButtonVisible[curButton.Name];
|
||||
end;
|
||||
end;
|
||||
|
||||
for i:=0 to EduSpeedButtonsOptions.GetToolBar('tbViewDebug').ButtonCount-1 do begin
|
||||
curButton:=EduSpeedButtonsOptions.GetToolBar('tbViewDebug').Buttons[i];
|
||||
if NOT(curButton.Name = '') then begin
|
||||
curButton.Visible:=(not Enable) or ButtonVisible[curButton.Name];
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEduSpeedButtonsOptions.GetToolBar(tbName: string): TToolBar;
|
||||
var
|
||||
AComponent: TComponent;
|
||||
begin
|
||||
|
||||
if (tbName='tbStandard') or (tbName='tbViewDebug')then begin
|
||||
AComponent:=LazarusIDE.OwningComponent.FindComponent(tbName);
|
||||
if AComponent is TToolBar then
|
||||
Result:=TToolBar(AComponent)
|
||||
else
|
||||
Result:=nil;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
{ TEduSpeedButtonsFrame }
|
||||
|
||||
procedure TEduSpeedButtonsFrame.SpeedButtonsTreeViewMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
var
|
||||
Node: TTreeNode;
|
||||
Hit: THitTests;
|
||||
begin
|
||||
if Button<>mbLeft then exit;
|
||||
Node:=SpeedButtonsTreeView.GetNodeAt(X,Y);
|
||||
if (Node=nil) then exit;
|
||||
if Node.Parent=nil then exit;
|
||||
Hit:=SpeedButtonsTreeView.GetHitTestInfoAt(X,Y);
|
||||
if [htOnIcon,htOnStateIcon]*Hit<>[] then begin
|
||||
if Node.StateIndex=ShowImgID then
|
||||
Node.StateIndex:=HideImgID
|
||||
else
|
||||
Node.StateIndex:=ShowImgID;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.ShowHideAll(aShow: boolean);
|
||||
var
|
||||
Node: TTreeNode;
|
||||
ButtonName: String;
|
||||
begin
|
||||
SpeedButtonsTreeView.BeginUpdate;
|
||||
Node:=SpeedButtonsTreeView.Items.GetFirstNode;
|
||||
while Node<>nil do begin
|
||||
if Node.Parent<>nil then begin
|
||||
ButtonName:=Node.Text;
|
||||
|
||||
EduSpeedButtonsOptions.ButtonVisible[ButtonName]:=aShow;
|
||||
if aShow then
|
||||
Node.StateIndex:=ShowImgID
|
||||
else
|
||||
Node.StateIndex:=HideImgID;
|
||||
end
|
||||
|
||||
else begin
|
||||
|
||||
end;
|
||||
|
||||
Node:=Node.GetNext;
|
||||
end;
|
||||
SpeedButtonsTreeView.EndUpdate;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.ShowSelected;
|
||||
var
|
||||
Node: TTreeNode;
|
||||
ButtonName: String;
|
||||
SelectedButtons: array[0..9] of String;
|
||||
i: integer;
|
||||
begin
|
||||
|
||||
SelectedButtons[0] := 'NewFormSpeedBtn';
|
||||
SelectedButtons[1] := 'OpenFileSpeedBtn';
|
||||
SelectedButtons[2] := 'PauseSpeedButton';
|
||||
SelectedButtons[3] := 'RunSpeedButton';
|
||||
SelectedButtons[4] := 'SaveAllSpeedBtn';
|
||||
SelectedButtons[5] := 'StepIntoSpeedButton';
|
||||
SelectedButtons[6] := 'StepOverpeedButton';
|
||||
SelectedButtons[7] := 'StopSpeedButton';
|
||||
SelectedButtons[8] := 'ToggleFormSpeedBtn';
|
||||
SelectedButtons[9] := 'EduNewSingleFileProgramBtn';
|
||||
|
||||
SpeedButtonsTreeView.BeginUpdate;
|
||||
Node:=SpeedButtonsTreeView.Items.GetFirstNode;
|
||||
while Node<>nil do begin
|
||||
if Node.Parent<>nil then begin
|
||||
ButtonName:=Node.Text;
|
||||
for i := 0 to 9 do begin
|
||||
if (CompareText (ButtonName , SelectedButtons[i] )=0) then begin
|
||||
EduSpeedButtonsOptions.ButtonVisible[ButtonName]:=true;
|
||||
Node.StateIndex:=ShowImgID;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
Node:=Node.GetNext;
|
||||
end;
|
||||
SpeedButtonsTreeView.EndUpdate;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.HideAllButtonClick(Sender: TObject);
|
||||
begin
|
||||
ShowHideAll(false);
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.ShowAllButtonClick(Sender: TObject);
|
||||
begin
|
||||
ShowHideAll(true);
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.ShowSelectionButtonClick(Sender: TObject);
|
||||
begin
|
||||
ShowHideAll(false);
|
||||
ShowSelected;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.FrameClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TEduSpeedButtonsFrame.GetImageForSpeedBtn(btnName: String) :TCustomBitmap;
|
||||
begin
|
||||
if (CompareText(btnName,'NewUnitSpeedBtn')=0) or (CompareText(btnName,'EduNewSingleFileProgramBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('item_unit');
|
||||
end
|
||||
else if (CompareText(btnName,'OpenFileSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('laz_open');
|
||||
end
|
||||
else if (CompareText(btnName,'SaveSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('laz_save');
|
||||
end
|
||||
else if (CompareText(btnName,'SaveAllSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_save_all');
|
||||
end
|
||||
else if (CompareText(btnName,'NewFormSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('item_form');
|
||||
end
|
||||
else if (CompareText(btnName,'ToggleFormSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_view_toggle_form_unit');
|
||||
end
|
||||
else if (CompareText(btnName,'ViewUnitsSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_view_units');
|
||||
end
|
||||
else if (CompareText(btnName,'ViewFormsSpeedBtn')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_view_forms');
|
||||
end
|
||||
else if (CompareText(btnName,'RunSpeedButton')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_run');
|
||||
end
|
||||
else if (CompareText(btnName,'PauseSpeedButton')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_pause');
|
||||
end
|
||||
else if (CompareText(btnName,'StopSpeedButton')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_stop');
|
||||
end
|
||||
else if (CompareText(btnName,'StepIntoSpeedButton')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_stepinto');
|
||||
end
|
||||
else if (CompareText(btnName,'StepOverpeedButton')=0) then begin
|
||||
Result := CreateBitmapFromLazarusResource('menu_stepover');
|
||||
end
|
||||
else
|
||||
result := nil;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.FillSpeedButtonsTreeView;
|
||||
var
|
||||
i: Integer;
|
||||
curNode: TTreeNode;
|
||||
CategoryNode: TTreeNode;
|
||||
curButton: TToolButton;
|
||||
Image: TCustomBitmap;
|
||||
begin
|
||||
SpeedButtonsTreeView.BeginUpdate;
|
||||
SpeedButtonsTreeView.Items.Clear;
|
||||
|
||||
if SpeedButtonsTreeView.Images=nil then begin
|
||||
SpeedButtonsTreeView.Images:=TImageList.Create(Self);
|
||||
SpeedButtonsTreeView.Images.Width:=EduSpeedButtonsOptions.GetToolBar('tbStandard').ButtonWidth;
|
||||
SpeedButtonsTreeView.Images.Height:=EduSpeedButtonsOptions.GetToolBar('tbStandard').ButtonHeight;
|
||||
SpeedButtonsTreeView.StateImages:=IDEImages.Images_16;
|
||||
end else
|
||||
|
||||
SpeedButtonsTreeView.Images.Clear;
|
||||
ShowImgID:=IDEImages.LoadImage(16,'menu_run');
|
||||
HideImgID:=IDEImages.LoadImage(16,'menu_stop');
|
||||
|
||||
CategoryNode:=SpeedButtonsTreeView.Items.Add(nil,'Standard Buttons');
|
||||
for i:=0 to EduSpeedButtonsOptions.GetToolBar('tbStandard').ButtonCount-1 do begin
|
||||
|
||||
curButton:=EduSpeedButtonsOptions.GetToolBar('tbStandard').Buttons[i];
|
||||
if NOT(curButton.Name = '') then begin
|
||||
curNode:=SpeedButtonsTreeView.Items.AddChild(CategoryNode,curButton.Name);
|
||||
Image := GetImageForSpeedBtn(curButton.Name);
|
||||
if (Image = nil) then
|
||||
Image := CreateBitmapFromLazarusResource('default');
|
||||
curNode.ImageIndex:=SpeedButtonsTreeView.Images.Add(Image,nil);
|
||||
Image.Free;
|
||||
curNode.SelectedIndex:=curNode.ImageIndex;
|
||||
|
||||
if (EduSpeedButtonsOptions.ButtonVisible[curButton.Name]) then
|
||||
curNode.StateIndex:=ShowImgID
|
||||
else
|
||||
curNode.StateIndex:=HideImgID;
|
||||
end;
|
||||
end;
|
||||
CategoryNode.Expanded:=true;
|
||||
|
||||
CategoryNode:=SpeedButtonsTreeView.Items.Add(nil,'Debug Buttons');
|
||||
for i:=0 to EduSpeedButtonsOptions.GetToolBar('tbViewDebug').ButtonCount-1 do begin
|
||||
|
||||
curButton:=EduSpeedButtonsOptions.GetToolBar('tbViewDebug').Buttons[i];
|
||||
if NOT(curButton.Name = '') then begin
|
||||
curNode:=SpeedButtonsTreeView.Items.AddChild(CategoryNode,curButton.Name);
|
||||
Image := GetImageForSpeedBtn(curButton.Name);
|
||||
if (Image = nil) then
|
||||
Image := CreateBitmapFromLazarusResource('default');
|
||||
curNode.ImageIndex:=SpeedButtonsTreeView.Images.Add(Image,nil);
|
||||
Image.Free;
|
||||
curNode.SelectedIndex:=curNode.ImageIndex;
|
||||
|
||||
if (EduSpeedButtonsOptions.ButtonVisible[curButton.Name]) then
|
||||
curNode.StateIndex:=ShowImgID
|
||||
else
|
||||
curNode.StateIndex:=HideImgID;
|
||||
end;
|
||||
end;
|
||||
CategoryNode.Expanded:=true;
|
||||
SpeedButtonsTreeView.EndUpdate;
|
||||
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.SaveFillSpeedButtonsTreeView;
|
||||
var
|
||||
Node: TTreeNode;
|
||||
ButtonName: String;
|
||||
begin
|
||||
Node:=SpeedButtonsTreeView.Items.GetFirstNode;
|
||||
while Node<>nil do begin
|
||||
if Node.Parent<>nil then begin
|
||||
ButtonName:=Node.Text;
|
||||
EduSpeedButtonsOptions.ButtonVisible[ButtonName]:=
|
||||
Node.StateIndex=ShowImgID;
|
||||
end else begin
|
||||
|
||||
end;
|
||||
Node:=Node.GetNext;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEduSpeedButtonsFrame.GetTitle: String;
|
||||
begin
|
||||
Result:=ersEduSBTitle;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
FillSpeedButtonsTreeView;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
||||
begin
|
||||
ShowAllButton.Caption:=ersShowAll;
|
||||
HideAllButton.Caption:=ersHideAll;
|
||||
ShowSelectionButton.Caption:=ersShowSelection;
|
||||
SpeedButtonsGroupBox.Caption:=ersVisibleSpeedButtons;
|
||||
|
||||
end;
|
||||
|
||||
class function TEduSpeedButtonsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
||||
begin
|
||||
Result:=EducationIDEOptionsClass;
|
||||
end;
|
||||
|
||||
procedure TEduSpeedButtonsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
SaveFillSpeedButtonsTreeView;
|
||||
end;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user