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

6
src/ce_editor.lfm
View File

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

2
src/ce_editor.pas
View File

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