forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

pc fine tweaking

This commit is contained in:
Basile Burg 2015-12-07 11:23:07 +01:00
parent e844e8011c
commit dfe9f1a8ba
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_controls.pas
View File

@ -117,7 +117,7 @@ begin
fMoveLeftBtn.BorderSpacing.Around:= 2;
fMoveLeftBtn.ShowCaption:=false;
fMoveLeftBtn.OnClick:=@btnMoveLeftClick;
fMoveLeftBtn.Hint:='move page to the left';
fMoveLeftBtn.Hint:='move current page to the left';
fMoveRightBtn:= TSpeedButton.Create(self);
fMoveRightBtn.Parent := fHeader;
@ -126,7 +126,7 @@ begin
fMoveRightBtn.BorderSpacing.Around:= 2;
fMoveRightBtn.ShowCaption:=false;
fMoveRightBtn.OnClick:=@btnMoveRightClick;
fMoveRightBtn.Hint:='move page to the right';
fMoveRightBtn.Hint:='move current page to the right';
fAddBtn:= TSpeedButton.Create(self);
fAddBtn.Parent := fHeader;
@ -135,6 +135,7 @@ begin
fAddBtn.BorderSpacing.Around:= 2;
fAddBtn.ShowCaption:=false;
fAddBtn.OnClick:=@btnAddClick;
fAddBtn.Hint:='add a new page';
fCloseBtn := TSpeedButton.Create(self);
fCloseBtn.Parent := fHeader;
@ -143,7 +144,7 @@ begin
fCloseBtn.BorderSpacing.Around:= 2;
fCloseBtn.ShowCaption:=false;
fCloseBtn.OnClick:=@btnCloseClick;
fCloseBtn.Hint:='close page';
fCloseBtn.Hint:='close current page';
fContent := TPanel.Create(self);
fContent.Parent := self;
@ -151,7 +152,7 @@ begin
fContent.BevelInner:= bvNone;
fContent.BevelOuter:= bvNone;
fContent.BorderStyle:=bsNone;
fContent.BorderSpacing.Around:=2;
fContent.BorderSpacing.Around:=0;
fPages := TFPList.Create;
fPageIndex := -1;
@ -309,7 +310,6 @@ begin
end;
procedure TCEPageControl.btnCloseClick(sender: TObject);
begin
deletePage(fPageIndex);

6
src/ce_editor.lfm
View File

@ -17,12 +17,12 @@ inherited CEEditorWidget: TCEEditorWidget
ClientHeight = 406
ClientWidth = 465
object editorStatus: TStatusBar[0]
Left = 2
Left = 0
Height = 18
Top = 386
Width = 461
Width = 465
AutoSize = False
BorderSpacing.Around = 2
BorderSpacing.Bottom = 2
Panels = <
item
Width = 110

2
src/ce_editor.pas
View File

@ -97,6 +97,7 @@ begin
pageControl.onChanged:= @PageControlChange;
pageControl.onChanging:=@PageControlChanging;
pageControl.closeButton.OnClick:=@pageCloseBtnClick;
pageControl.addButton.OnClick:=@pageBtnAddCLick;
AssignPng(pageControl.moveLeftButton, 'document_back');
AssignPng(pageControl.moveRightButton, 'document_next');
AssignPng(pageControl.addButton, 'document_add');
@ -255,6 +256,7 @@ end;
procedure TCEEditorWidget.pageBtnAddCLick(Sender: TObject);
begin
TCESynMemo.Create(nil);
pageControl.currentPage.Caption:='<new document>';
end;
procedure TCEEditorWidget.focusedEditorChanged;