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

draw shadow on button image in TToolPanel

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@456 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-05-26 17:04:27 +00:00
parent 1abc2db855
commit d13467856e
3 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/docs/WhatsNew.eng.txt
View File

@ -1,3 +1,4 @@
+ draw shadow on button image in TToolPanel
- Fix error in TDBComboBox.EditingDone if DataSet = nil - Fix error in TDBComboBox.EditingDone if DataSet = nil
22.05.2008 - version 2.0.0.136 (svn revision 100) 22.05.2008 - version 2.0.0.136 (svn revision 100)
+ In TRxCustomDBLookupCombo add check for CircularDataLink + In TRxCustomDBLookupCombo add check for CircularDataLink

3
components/rx/docs/WhatsNew.rus.txt
View File

@ -1,4 +1,5 @@
 - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet + Доработана отрисовка тени у кнопки на TToolPanel
- Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet
22.05.2008 - версия 2.0.0.136 (svn revision 100) 22.05.2008 - версия 2.0.0.136 (svn revision 100)
+ У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink + У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
+ У объекта TRxCustomDBLookupCombo ускорена отрисовка данных + У объекта TRxCustomDBLookupCombo ускорена отрисовка данных

6
components/rx/rxtoolbar.pas
View File

@ -245,7 +245,7 @@ type
end; end;
implementation implementation
uses Math, RxTBRSetup, LCLProc, vclutils, Dialogs, typinfo, rxdconst; uses Math, RxTBRSetup, LCLProc, vclutils, Dialogs, typinfo, rxdconst, GraphType;
const const
BtnAl2Align:array [TToolButtonAllign] of TAlign = (alNone, alLeft, alRight); BtnAl2Align:array [TToolButtonAllign] of TAlign = (alNone, alLeft, alRight);
@ -423,7 +423,6 @@ begin
if FToolbarButtonStyle = tbrDropDownExtra then if FToolbarButtonStyle = tbrDropDownExtra then
begin begin
Canvas.Draw(PaintRect.Right - 10, Height div 2, TToolbarItems(FOwnerItem.Collection).FToolPanel.FArrowBmp); Canvas.Draw(PaintRect.Right - 10, Height div 2, TToolbarItems(FOwnerItem.Collection).FToolPanel.FArrowBmp);
// FArrowBmp
Dec(PaintRect.Right, DropDownExtraBtnWidth); Dec(PaintRect.Right, DropDownExtraBtnWidth);
end; end;
@ -524,7 +523,8 @@ begin
if ((FLastDrawFlagsA and DFCS_FLAT) <> 0) and ((FLastDrawFlagsA and DFCS_PUSHED) = 0) if ((FLastDrawFlagsA and DFCS_FLAT) <> 0) and ((FLastDrawFlagsA and DFCS_PUSHED) = 0)
and (tpGlyphPopup in TToolbarItems(FOwnerItem.Collection).FToolPanel.Options) and FFullPush then and (tpGlyphPopup in TToolbarItems(FOwnerItem.Collection).FToolPanel.Options) and FFullPush then
begin begin
// FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, false); FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, false);
// FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, gdeDisabled);
Dec(Offset.X, 2); Dec(Offset.X, 2);
Dec(Offset.Y, 2); Dec(Offset.Y, 2);
end; end;