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);
protected
procedure DoButtonClick (Sender: TObject); override;
function GetDefaultGlyphName: String; override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
//
property DropDownCount: Integer read FDropDownCount write SetDropDownCount default 8;
@ -484,6 +485,11 @@ begin
ShowList;
end;
function TCustomDBLookupEdit.GetDefaultGlyphName: String;
begin
Result:='rxbtn_downarrow';
end;
procedure TCustomDBLookupEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
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 KeyPress(var Key: Char); override;
procedure DoButtonClick (Sender: TObject); override;
function GetDefaultGlyphName: String; override;
property BlanksChar: Char read FBlanksChar write SetBlanksChar default ' ';
property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsStoreTitle;
@ -719,12 +720,17 @@ begin
end;
end;
function TCustomRxDateEdit.GetDefaultGlyphName: String;
begin
Result:='picDateEdit';
end;
constructor TCustomRxDateEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FBlanksChar := ' ';
FDialogTitle := sDateDlgTitle;
FPopupColor := clBtnFace;
FPopupColor := clWindow;
FNotInThisMonthColor := clSilver;
FPopupAlign := epaLeft;
FStartOfWeek := Mon;
@ -747,7 +753,7 @@ begin
finally
ControlState := ControlState - [csCreating];
end;
Glyph:=LoadBitmapFromLazarusResource('picDateEdit');
// Glyph:=LoadBitmapFromLazarusResource('picDateEdit');
NumGlyphs := 2;
end;