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

fix compile for last lazarus

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@433 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-04-19 12:49:00 +00:00
parent 7dbf9255af
commit ddc5de0ac1
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxlookup.pas
View File

@@ -78,6 +78,7 @@ type
Shift: TShiftState); Shift: TShiftState);
protected protected
procedure DoButtonClick (Sender: TObject); override; procedure DoButtonClick (Sender: TObject); override;
function GetDefaultGlyphName: String; override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
// //
property DropDownCount: Integer read FDropDownCount write SetDropDownCount default 8; property DropDownCount: Integer read FDropDownCount write SetDropDownCount default 8;
@@ -484,6 +485,11 @@ begin
ShowList; ShowList;
end; end;
function TCustomDBLookupEdit.GetDefaultGlyphName: String;
begin
Result:='rxbtn_downarrow';
end;
procedure TCustomDBLookupEdit.KeyDown(var Key: Word; Shift: TShiftState); procedure TCustomDBLookupEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin begin
if (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN, VK_RETURN]) and PopupVisible then if (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN, VK_RETURN]) and PopupVisible then

10
components/rx/tooledit.pas
View File

@@ -77,6 +77,7 @@ type
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: Char); override; procedure KeyPress(var Key: Char); override;
procedure DoButtonClick (Sender: TObject); override; procedure DoButtonClick (Sender: TObject); override;
function GetDefaultGlyphName: String; override;
property BlanksChar: Char read FBlanksChar write SetBlanksChar default ' '; property BlanksChar: Char read FBlanksChar write SetBlanksChar default ' ';
property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsStoreTitle; property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsStoreTitle;
@@ -719,12 +720,17 @@ begin
end; end;
end; end;
function TCustomRxDateEdit.GetDefaultGlyphName: String;
begin
Result:='picDateEdit';
end;
constructor TCustomRxDateEdit.Create(AOwner: TComponent); constructor TCustomRxDateEdit.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FBlanksChar := ' '; FBlanksChar := ' ';
FDialogTitle := sDateDlgTitle; FDialogTitle := sDateDlgTitle;
FPopupColor := clBtnFace; FPopupColor := clWindow;
FNotInThisMonthColor := clSilver; FNotInThisMonthColor := clSilver;
FPopupAlign := epaLeft; FPopupAlign := epaLeft;
FStartOfWeek := Mon; FStartOfWeek := Mon;
@@ -747,7 +753,7 @@ begin
finally finally
ControlState := ControlState - [csCreating]; ControlState := ControlState - [csCreating];
end; end;
Glyph:=LoadBitmapFromLazarusResource('picDateEdit'); // Glyph:=LoadBitmapFromLazarusResource('picDateEdit');
NumGlyphs := 2; NumGlyphs := 2;
end; end;