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

fix compile in lazarus svn version 18518

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@691 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-01-31 15:11:40 +00:00
parent 53ac16be22
commit 8e0524517b
8 changed files with 12 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/autopanel.pas
View File

@@ -52,11 +52,9 @@ type
property Enabled;
property Caption;
property Color;
property Ctl3D;
property Font;
//property Locked;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;

2
components/rx/curredit.pas
View File

@@ -110,7 +110,6 @@ type
property BorderSpacing;
property CheckOnExit;
property Color;
property Ctl3D;
property DecimalPlaces;
property DisplayFormat;
property DragCursor;
@@ -134,7 +133,6 @@ type
property MaxValue;
property MinValue;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;

1
components/rx/pickdate.pas
View File

@@ -704,7 +704,6 @@ begin
inherited Create(AOwner);
ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks];
ControlStyle := ControlStyle + [csReplicatable];
Ctl3D := False;
// Enabled := False;
BorderStyle := bsNone;
ParentColor := True;

13
components/rx/rxclock.pas
View File

@@ -68,7 +68,7 @@ type
procedure ResetAlarm;
procedure CheckAlarm;
function FormatSettingsChange(var Message: TLMessage): Boolean;
procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
// procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
{$IFDEF windows}
@@ -117,14 +117,12 @@ type
property FullRepaint;
{$ENDIF}
property Color;
property Ctl3D;
property Cursor;
property DragMode;
property DragCursor;
property Enabled;
property Font;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
@@ -373,12 +371,13 @@ begin
inherited DestroyWindowHandle;
end;
}
{
procedure TRxClock.CMCtl3DChanged(var Message: TMessage);
begin
inherited;
if ShowMode = scAnalog then Invalidate;
end;
}
procedure TRxClock.CMTextChanged(var Message: TMessage);
begin
{ Skip this message, no repaint }
@@ -673,7 +672,7 @@ begin
begin
if MinDots then
begin
if Ctl3D then
// if Ctl3D then
begin
Canvas.Brush.Color := clBtnShadow;
OffsetRect(R, -1, -1);
@@ -694,7 +693,7 @@ begin
R.Right := R.Left + DotWidth;
R.Bottom := R.Top + DotHeight;
OffsetRect(R, -DotCenter.X, -DotCenter.Y);
if Ctl3D and MinDots then
if {Ctl3D and} MinDots then
with Canvas do
begin
Brush.Color := FDotsColor;
@@ -703,7 +702,7 @@ begin
RxFrame3D(Canvas, R, LightColor(FDotsColor), clWindowFrame, 1);
end;
Canvas.Brush.Color := Canvas.Pen.Color;
if not (Ctl3D and MinDots) then Canvas.FillRect(R);
if not ({Ctl3D and} MinDots) then Canvas.FillRect(R);
end;
end;
finally

8
components/rx/rxctrls.pas
View File

@@ -43,7 +43,6 @@ type
property Align;
property BorderStyle;
property Color;
property Ctl3D;
property DragCursor;
property DragMode;
property Enabled;
@@ -67,7 +66,6 @@ type
property Items;
property MultiSelect;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
@@ -170,7 +168,7 @@ type
procedure WMKillFocus(var Msg: TWMKillFocus); message WM_KILLFOCUS;
procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;
{$IFDEF WIN32}
procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
// procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
{$ENDIF}
protected
procedure CreateParams(var Params: TCreateParams); override;
@@ -315,7 +313,6 @@ type
property BorderStyle;
property Color;
property Columns;
property Ctl3D;
property DragCursor;
property DragMode;
property Enabled;
@@ -340,7 +337,6 @@ type
property Items stored False;
property MultiSelect;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
@@ -621,10 +617,8 @@ type
property DragCursor;
property DragMode;
property Color;
property Ctl3D;
property Font;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;

2
components/rx/rxdbcomb.pas
View File

@@ -90,7 +90,6 @@ type
property BorderSpacing;
property Style; { must be published before Items }
property Color;
property Ctl3D;
property DataField;
property DataSource;
property DragMode;
@@ -106,7 +105,6 @@ type
property ItemWidth;
property MaxLength default -1;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;

3
components/rx/rxlookup.pas
View File

@@ -249,7 +249,6 @@ type
property ButtonOnlyWhenFocused;
Property ButtonWidth;
property Color;
property Ctl3D;
property DataField;
property DataSource;
Property DirectInput;
@@ -282,7 +281,6 @@ type
property OnStartDrag;
property OnGetGridCellProps;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
@@ -1278,7 +1276,6 @@ begin
FEmptyItemColor:=clWindow;
Glyph:=CreateArrowBitmap;
ButtonWidth:=15;
Ctl3D:=true;
TabStop:=true;
end;

10
components/rx/rxspin.pas
View File

@@ -131,7 +131,7 @@ type
procedure CMExit(var Message: TLMExit); message CM_EXIT;
procedure WMPaste(var Message: TLMessage); message LM_PASTE;
procedure WMCut(var Message: TLMessage); message LM_CUT;
procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
// procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED;
procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
procedure CheckButtonVisible;
@@ -171,7 +171,7 @@ type
property AutoSize;
property BorderStyle;
property Color;
property Ctl3D;
// property Ctl3D;
property DragCursor;
property DragMode;
property Enabled;
@@ -185,7 +185,7 @@ type
//{$ENDIF}
property MaxLength;
property ParentColor;
property ParentCtl3D;
// property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
@@ -834,11 +834,11 @@ begin
inherited;
end;
procedure TRxSpinEdit.CMCtl3DChanged(var Message: TLMessage);
{procedure TRxSpinEdit.CMCtl3DChanged(var Message: TLMessage);
begin
inherited;
ResizeButton;
end;
end;}
procedure TRxSpinEdit.CMEnabledChanged(var Message: TLMessage);
begin