paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

aesthetical improvements for colorbuttons from Luca Minuti

Browse Source 
git-svn-id: trunk@7061 -
This commit is contained in:
mattias 2005-04-06 10:39:36 +00:00
parent 6697af3196
commit 5ab09c1d2d
4 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/grid_semaphor/example/project1.lpi
View File

@ -25,7 +25,7 @@
<UsageCount Value="41"/>
</Unit0>
<Unit1>
<CursorPos X="16" Y="175"/>
<CursorPos X="20" Y="185"/>
<EditorIndex Value="0"/>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>

14
ide/environmentopts.pp
View File

@ -2918,7 +2918,7 @@ begin
Left:=5;
Top:=2;
Width:= HalfWidth-15;
Height:=180;
Height:=200;
end;
with OIMiscGroupBox do begin
@ -3902,17 +3902,17 @@ begin
Left:=5;
Top:=2;
Width:= HalfWidth-15;
Height:=180;
Height:=200;
Parent:=NoteBook.Page[Page];
Caption:=dlgEnvColors;
end;
OIBackgroundColorButton:=CreateColorItem(5, ObjectInspectorColorsGroupBox, dlgBackColor);
OISubPropsColorButton:=CreateColorItem(30, ObjectInspectorColorsGroupBox, dlgSubPropkColor);
OIReferencesColorButton:=CreateColorItem(55, ObjectInspectorColorsGroupBox, dlgReferenceColor);
OIValueColorButton:=CreateColorItem(80, ObjectInspectorColorsGroupBox, dlgValueColor);
OIDefaultValueColorButton:=CreateColorItem(105, ObjectInspectorColorsGroupBox, dlgDefValueColor);
OIPropNameColorButton:=CreateColorItem(130, ObjectInspectorColorsGroupBox, dlgPropNameColor);
OISubPropsColorButton:=CreateColorItem(32, ObjectInspectorColorsGroupBox, dlgSubPropkColor);
OIReferencesColorButton:=CreateColorItem(59, ObjectInspectorColorsGroupBox, dlgReferenceColor);
OIValueColorButton:=CreateColorItem(86, ObjectInspectorColorsGroupBox, dlgValueColor);
OIDefaultValueColorButton:=CreateColorItem(113, ObjectInspectorColorsGroupBox, dlgDefValueColor);
OIPropNameColorButton:=CreateColorItem(140, ObjectInspectorColorsGroupBox, dlgPropNameColor);
OIMiscGroupBox:=TGroupBox.Create(Self);
with OIMiscGroupBox do begin

5
lcl/include/colorbutton.inc
View File

@ -40,8 +40,11 @@ begin
with Canvas do begin
Frame3d(ARect,FBorderWidth,bvRaised);
//debugln('TColorButton.Paint A ',dbgs(ARect));
InflateRect(ARect,-FBorderWidth,-FBorderWidth);
InflateRect(ARect,-FBorderWidth-2,-FBorderWidth-2);
//debugln('TColorButton.Paint B ',dbgs(ARect));
Brush.Color:=clBlack;
FillRect(ARect);
InflateRect(ARect,-1,-1);
Brush.Color:=ButtonColor;
FillRect(ARect);
end;

5
lcl/interfaces/win32/win32winapi.inc
View File

@ -1265,7 +1265,7 @@ End;
Function TWin32WidgetSet.Frame3D(DC: HDC; var Rect: TRect;
Const FrameWidth: Integer; Const Style: TBevelCut): Boolean;
Const
Edge: Array[TBevelCut] Of Integer = (0, BDR_SUNKENOUTER, BDR_RAISEDOUTER, 0);
Edge: Array[TBevelCut] Of Integer = (0, BDR_SUNKENOUTER, BDR_RAISEDINNER, 0);
Begin
Result := Boolean(DrawEdge(DC, Rect, Edge[Style], BF_RECT));
End;
@ -3120,6 +3120,9 @@ end;
{ =============================================================================
$Log$
Revision 1.142 2005/04/06 10:39:36 mattias
aesthetical improvements for colorbuttons from Luca Minuti
Revision 1.141 2005/03/25 16:59:38 micha
fix dc origin to take window origin into account (fixed drawing invisible components on graphiccontrols in designer)