pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SpkToolbar: Some more files with standard formatting.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5384 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-27 11:08:46 +00:00
parent 49c250890f
commit dcd8f73953
2 changed files with 721 additions and 795 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
components/spktoolbar/designtime/spkte_AppearanceEditor.pas
View File

@@ -395,7 +395,8 @@ end;
procedure TfrmAppearanceEditWindow.bTabBorderColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bTabBorderColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pTabFrame) then begin if PickColor(pTabFrame) then
begin
tbPreview.Appearance.Tab.BorderColor := pTabFrame.Color; tbPreview.Appearance.Tab.BorderColor := pTabFrame.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pTabFrame.Color) SetLinkedFrameColor(pTabFrame.Color)
@@ -406,7 +407,8 @@ end;
procedure TfrmAppearanceEditWindow.bTabGradientFromColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bTabGradientFromColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pTabGradientFrom) then begin if PickColor(pTabGradientFrom) then
begin
tbPreview.Appearance.Tab.GradientFromColor := pTabGradientFrom.Color; tbPreview.Appearance.Tab.GradientFromColor := pTabGradientFrom.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pTabGradientFrom.Color) SetLinkedFrameColor(pTabGradientFrom.Color)
@@ -417,7 +419,8 @@ end;
procedure TfrmAppearanceEditWindow.bTabGradientToColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bTabGradientToColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pTabGradientTo) then begin if PickColor(pTabGradientTo) then
begin
tbPreview.Appearance.Tab.GradientToColor := pTabGradientTo.Color; tbPreview.Appearance.Tab.GradientToColor := pTabGradientTo.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pTabGradientTo.Color) SetLinkedFrameColor(pTabGradientTo.Color)
@@ -431,11 +434,11 @@ begin
Clipboard.AsText := mXML.Text; Clipboard.AsText := mXML.Text;
end; end;
procedure TfrmAppearanceEditWindow.bActiveTabHeaderFontColorClick( procedure TfrmAppearanceEditWindow.bActiveTabHeaderFontColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pActiveTabHeaderFont) then begin if PickColor(pActiveTabHeaderFont) then
begin
tbPreview.Appearance.Tab.TabHeaderFont.Color := pActiveTabHeaderFont.Color; tbPreview.Appearance.Tab.TabHeaderFont.Color := pActiveTabHeaderFont.Color;
tbPreview.ForceRepaint; tbPreview.ForceRepaint;
end; end;
@@ -472,11 +475,11 @@ begin
end; end;
end; end;
procedure TfrmAppearanceEditWindow.bInactiveTabHeaderFontColorClick( procedure TfrmAppearanceEditWindow.bInactiveTabHeaderFontColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pInactiveTabHeaderFont) then begin if PickColor(pInactiveTabHeaderFont) then
begin
tbPreview.Appearance.Tab.InactiveTabHeaderFontColor := pInactiveTabHeaderFont.Color; tbPreview.Appearance.Tab.InactiveTabHeaderFontColor := pInactiveTabHeaderFont.Color;
tbPreview.ForceRepaint; tbPreview.ForceRepaint;
end; end;
@@ -487,23 +490,20 @@ procedure TfrmAppearanceEditWindow.bItemActiveCaptionColorClick(Sender: TObject
); );
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemActiveCaptionColor) then begin if PickColor(pItemActiveCaptionColor) then
tbPreview.Appearance.Element.ActiveCaptionColor := pItemActiveCaptionColor.Color; tbPreview.Appearance.Element.ActiveCaptionColor := pItemActiveCaptionColor.Color;
end;
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemActiveFrameColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bItemActiveFrameColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemActiveFrame) then begin if PickColor(pItemActiveFrame) then
tbPreview.Appearance.Element.ActiveFrameColor := pItemactiveFrame.Color; tbPreview.Appearance.Element.ActiveFrameColor := pItemactiveFrame.Color;
end;
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemActiveGradientFromColorClick( procedure TfrmAppearanceEditWindow.bItemActiveGradientFromColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemActiveGradientFrom) then if PickColor(pItemActiveGradientFrom) then
@@ -511,8 +511,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemActiveGradientToColorClick( procedure TfrmAppearanceEditWindow.bItemActiveGradientToColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemActiveGradientTo) then if PickColor(pItemActiveGradientTo) then
@@ -520,8 +519,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemActiveInnerDarkColorClick( procedure TfrmAppearanceEditWindow.bItemActiveInnerDarkColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemActiveInnerDark) then if PickColor(pItemActiveInnerDark) then
@@ -529,8 +527,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemActiveInnerLightColorClick( procedure TfrmAppearanceEditWindow.bItemActiveInnerLightColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemActiveInnerLight) then if PickColor(pItemActiveInnerLight) then
@@ -538,28 +535,23 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemHotTrackCaptionColorClick( procedure TfrmAppearanceEditWindow.bItemHotTrackCaptionColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemHotTrackCaptionColor) then begin if PickColor(pItemHotTrackCaptionColor) then
tbPreview.Appearance.Element.HotTrackCaptionColor := pItemHotTrackCaptionColor.Color; tbPreview.Appearance.Element.HotTrackCaptionColor := pItemHotTrackCaptionColor.Color;
end;
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemHotTrackFrameColorClick(Sender: TObject procedure TfrmAppearanceEditWindow.bItemHotTrackFrameColorClick(Sender: TObject);
);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemHotTrackFrame) then begin if PickColor(pItemHotTrackFrame) then
tbPreview.Appearance.Element.HotTrackFrameColor := pItemHotTrackFrame.Color; tbPreview.Appearance.Element.HotTrackFrameColor := pItemHotTrackFrame.Color;
end;
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemHotTrackGradientFromColorClick( procedure TfrmAppearanceEditWindow.bItemHotTrackGradientFromColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemHotTrackGradientFrom) then if PickColor(pItemHotTrackGradientFrom) then
@@ -567,8 +559,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemHotTrackGradientToColorClick( procedure TfrmAppearanceEditWindow.bItemHotTrackGradientToColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemHotTrackGradientTo) then if PickColor(pItemHotTrackGradientTo) then
@@ -576,8 +567,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemHotTrackInnerDarkColorClick( procedure TfrmAppearanceEditWindow.bItemHotTrackInnerDarkColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemHotTrackInnerDark) then if PickColor(pItemHotTrackInnerDark) then
@@ -585,8 +575,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemHotTrackInnerLightColorClick( procedure TfrmAppearanceEditWindow.bItemHotTrackInnerLightColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemHotTrackInnerLight) then if PickColor(pItemHotTrackInnerLight) then
@@ -597,7 +586,8 @@ end;
procedure TfrmAppearanceEditWindow.bItemIdleCaptionColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bItemIdleCaptionColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemIdleCaptionColor) then begin if PickColor(pItemIdleCaptionColor) then
begin
tbPreview.Appearance.Element.IdleCaptionColor := pItemIdleCaptionColor.Color; tbPreview.Appearance.Element.IdleCaptionColor := pItemIdleCaptionColor.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pItemIdleCaptionColor.Color) SetLinkedFrameColor(pItemIdleCaptionColor.Color)
@@ -608,7 +598,8 @@ end;
procedure TfrmAppearanceEditWindow.bItemIdleFrameColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bItemIdleFrameColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemIdleFrame) then begin if PickColor(pItemIdleFrame) then
begin
tbPreview.Appearance.Element.IdleFrameColor := pItemIdleFrame.Color; tbPreview.Appearance.Element.IdleFrameColor := pItemIdleFrame.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pItemIdleFrame.Color) SetLinkedFrameColor(pItemIdleFrame.Color)
@@ -619,7 +610,8 @@ end;
procedure TfrmAppearanceEditWindow.bItemIdleGradientFromColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bItemIdleGradientFromColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemIdleGradientFrom) then begin if PickColor(pItemIdleGradientFrom) then
begin
tbPreview.Appearance.Element.IdleGradientFromColor := pItemIdleGradientFrom.Color; tbPreview.Appearance.Element.IdleGradientFromColor := pItemIdleGradientFrom.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pItemIdleGradientFrom.Color) SetLinkedFrameColor(pItemIdleGradientFrom.Color)
@@ -627,11 +619,11 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemIdleGradientToColorClick(Sender: TObject procedure TfrmAppearanceEditWindow.bItemIdleGradientToColorClick(Sender: TObject);
);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemIdleGradientTo) then begin if PickColor(pItemIdleGradientTo) then
begin
tbPreview.Appearance.Element.IdleGradientToColor := pItemIdleGradientTo.Color; tbPreview.Appearance.Element.IdleGradientToColor := pItemIdleGradientTo.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pItemIdleGradientTo.Color) SetLinkedFrameColor(pItemIdleGradientTo.Color)
@@ -639,11 +631,11 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemIdleInnerDarkColorClick(Sender: TObject procedure TfrmAppearanceEditWindow.bItemIdleInnerDarkColorClick(Sender: TObject);
);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemIdleInnerDark) then begin if PickColor(pItemIdleInnerDark) then
begin
tbPreview.Appearance.Element.IdleInnerDarkColor := pItemIdleInnerDark.Color; tbPreview.Appearance.Element.IdleInnerDarkColor := pItemIdleInnerDark.Color;
if cbLinkTab.checked then if cbLinkTab.checked then
SetLinkedFrameColor(pItemIdleInnerDark.Color) SetLinkedFrameColor(pItemIdleInnerDark.Color)
@@ -651,11 +643,11 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bItemIdleInnerLightColorClick(Sender: TObject procedure TfrmAppearanceEditWindow.bItemIdleInnerLightColorClick(Sender: TObject);
);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pItemIdleInnerLight) then begin if PickColor(pItemIdleInnerLight) then
begin
tbPreview.Appearance.Element.IdleInnerLightColor := pItemIdleInnerLight.Color; tbPreview.Appearance.Element.IdleInnerLightColor := pItemIdleInnerLight.Color;
if cbLinkPane.Checked then if cbLinkPane.Checked then
SetLinkedFrameColor(pItemIdleInnerLight.Color) SetLinkedFrameColor(pItemIdleInnerLight.Color)
@@ -666,7 +658,8 @@ end;
procedure TfrmAppearanceEditWindow.bPaneBorderDarkColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bPaneBorderDarkColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pPaneBorderDark) then begin if PickColor(pPaneBorderDark) then
begin
tbPreview.Appearance.Pane.BorderDarkColor := pPaneBorderDark.Color; tbPreview.Appearance.Pane.BorderDarkColor := pPaneBorderDark.Color;
if cbLinkPane.Checked then if cbLinkPane.Checked then
SetLinkedFrameColor(pPaneBorderDark.Color) SetLinkedFrameColor(pPaneBorderDark.Color)
@@ -677,7 +670,8 @@ end;
procedure TfrmAppearanceEditWindow.bPaneBorderLightColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bPaneBorderLightColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pPaneBorderLight) then begin if PickColor(pPaneBorderLight) then
begin
tbPreview.Appearance.Pane.BorderLightColor := pPaneBorderLight.Color; tbPreview.Appearance.Pane.BorderLightColor := pPaneBorderLight.Color;
if cbLinkPane.Checked then if cbLinkPane.Checked then
SetLinkedFrameColor(pPaneBorderLight.Color) SetLinkedFrameColor(pPaneBorderLight.Color)
@@ -685,8 +679,7 @@ begin
(Sender as TSpeedButton).Down := false; (Sender as TSpeedButton).Down := false;
end; end;
procedure TfrmAppearanceEditWindow.bPaneCaptionBackgroundColorClick( procedure TfrmAppearanceEditWindow.bPaneCaptionBackgroundColorClick(Sender: TObject);
Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pPaneCaptionBackground) then if PickColor(pPaneCaptionBackground) then
@@ -697,7 +690,8 @@ end;
procedure TfrmAppearanceEditWindow.bPaneCaptionFontColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bPaneCaptionFontColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pPaneCaptionFontColor) then begin if PickColor(pPaneCaptionFontColor) then
begin
tbPreview.Appearance.Pane.CaptionFont.Color := pPaneCaptionFontColor.Color; tbPreview.Appearance.Pane.CaptionFont.Color := pPaneCaptionFontColor.Color;
tbPreview.ForceRepaint; tbPreview.ForceRepaint;
end; end;
@@ -707,7 +701,8 @@ end;
procedure TfrmAppearanceEditWindow.bPaneGradientFromColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bPaneGradientFromColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pPaneGradientFrom) then begin if PickColor(pPaneGradientFrom) then
begin
tbPreview.Appearance.Pane.GradientFromColor := pPaneGradientFrom.Color; tbPreview.Appearance.Pane.GradientFromColor := pPaneGradientFrom.Color;
if cbLinkPane.Checked then if cbLinkPane.Checked then
SetLinkedFrameColor(pPaneGradientFrom.Color) SetLinkedFrameColor(pPaneGradientFrom.Color)
@@ -718,7 +713,8 @@ end;
procedure TfrmAppearanceEditWindow.bPaneGradientToColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.bPaneGradientToColorClick(Sender: TObject);
begin begin
(Sender as TSpeedButton).Down := true; (Sender as TSpeedButton).Down := true;
if PickColor(pPaneGradientTo) then begin if PickColor(pPaneGradientTo) then
begin
tbPreview.Appearance.Pane.GradientToColor := pPaneGradientTo.Color; tbPreview.Appearance.Pane.GradientToColor := pPaneGradientTo.Color;
if cbLinkPane.Checked then if cbLinkPane.Checked then
SetLinkedFrameColor(pPaneGradientTo.Color) SetLinkedFrameColor(pPaneGradientTo.Color)
@@ -782,7 +778,7 @@ end;
function TfrmAppearanceEditWindow.ChangeColor(Panel: TPanel): boolean; function TfrmAppearanceEditWindow.ChangeColor(Panel: TPanel): boolean;
begin begin
cdColorDialog.Color:=Panel.Color; cdColorDialog.Color := Panel.Color;
if cdColorDialog.Execute then if cdColorDialog.Execute then
begin begin
SetPanelColor(Panel, cdColorDialog.Color); SetPanelColor(Panel, cdColorDialog.Color);
@@ -1064,7 +1060,8 @@ end;
procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then begin if ChangeColor(Sender as TPanel) then
begin
tbPreview.Appearance.Element.HotTrackCaptionColor := (Sender as TPanel).Color; tbPreview.Appearance.Element.HotTrackCaptionColor := (Sender as TPanel).Color;
tbPreview.ForceRepaint; tbPreview.ForceRepaint;
end; end;
@@ -1102,7 +1099,8 @@ end;
procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then begin if ChangeColor(Sender as TPanel) then
begin
tbPreview.Appearance.Element.IdleCaptionColor := (Sender as TPanel).Color; tbPreview.Appearance.Element.IdleCaptionColor := (Sender as TPanel).Color;
tbPreview.ForceRepaint; tbPreview.ForceRepaint;
end; end;
@@ -1278,8 +1276,7 @@ begin
end; end;
end; end;
procedure TfrmAppearanceEditWindow.pInactiveTabHeaderFontClick( procedure TfrmAppearanceEditWindow.pInactiveTabHeaderFontClick(Sender: TObject);
Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then if ChangeColor(Sender as TPanel) then
begin begin

1397
components/spktoolbar/designtime/spkte_EditWindow.pas
View File

File diff suppressed because it is too large Load Diff