FAQ for -TSMDBGrid component
- -- -
- -
- -
1. How I can -add the sorted column?
- -SMDBGrid.DataSource.DataSet.DisableControls;
-
-{add a new sorted column in list - ascending order}
-with SMDBGrid.SortColumns.Add do
-begin
- FieldName := 'yourFieldName';
- SortType := stAscending
-end;
-
-{add a new sorted column in list - descending order}
-with SMDBGrid.SortColumns.Add do
-begin
- FieldName := 'yourFieldName';
- SortType := stDescending;
-end;
-
-SMDBGrid.DataSource.DataSet.EnableControls;
-
-2. How I -can clear the all sorted columns?
- -
-SMDBGrid.DataSource.DataSet.DisableControls;
-
-{clear the all sorted columns}
-SMDBGrid.SortColumns.Clear;
-
-SMDBGrid.DataSource.DataSet.EnableControls;
-
-3. -How I can change a standard TSMDBGrid glyphs (sorted arrows, -indicator symbols etc)?
- -You can run the Image Editor application (or any other -resource workshop), open the SMDBGrid.RES file and change the any -glyphs.
- -4. -How I can change standard strings for messages?
- -In SMCnst.PAS file you can find the any string resource and -change it or traslate on new language. In this file you can find -the strings for English, Russian, Ukrainian, French, German, -Italian and Japan languages. If you have translated the messages -to the new language or have corrected an mistake, send the -changed file to me (mshkolnik@rs-ukraine.kiev.ua, -mike@woccu.freenet.kiev.ua) -and I shall include it in the new build.
- -5. -How I can increase a Indicator column width?
- -For it's necessary to change value of WidthOfIndicator -property.
- -Pay attantion to that width cann't be less than 11 (width of -indicator in standard TDBGrid). Also if you include a -eoCheckBoxSelect flag in ExOptions property for record selecting -by checkbox, then minimum value is width of standard checkbox in -a current Windows settings.
- -6. -How I can display the images in Indicator column?
- -Write an OnGetGlyph event handler to provide customized -drawing for the data in the Indicator column. You can define a -glyph, which will be displayed. And, of course, this event will -be called for each row and you can define the other glyphs for -records.
- -Pay attantion to that Indicator width will not be -automatically increased, if the glyph will not be located in -cell. You should set width of Indicator column in view of other -information, which will be displayed there (checkbox for record -selection, row state glyph etc).
- -In current version you can assign the bitmap only but in -future I plan to add the any graphics (icons, metafile, jpeg etc)
- -7. -How I can display the multi-line captions for columns?
- -This feature is supported automatically - when you change a -width of any column or add/remove the sorted type in column, -width of columns will be recalculate automatically and if it's -necessary title height will change!
- -8. -I want display the pictures in cells for graphic fields. How I -can do it?
- -Simply set a eoDrawGraphicField flag in ExOptions property.
- -9. How -I can assign the operations to standard menu items?
- -For each item in standard menu are created events:
- -All this events very useful for creation of user interface. -For example, you can assign a procedure for append record, in -which you will create a new form with controls for filling -fields. And always your user will be append the record in your -form (irrespective of the fact how he has come in an append -record mode).
- -Pay attantion to that if you not assigned the some events, -then in standard popup menu will be deleted the same items!
- -10. Can -I use a standard popup menu and add the custom popup?
- -Yes, of course. When you included the eoStandardPopup flag in -ExOptions property, the standard popup will be displayed by right -button mouse click. But if you assigend the custom popup in Popup -property then the standard popup will be displayed by click in -"dropdown" cell only (the first cell in title row of -Indicator column).
- -11. I -want to prohibit append and/or delete of records in TSMDBGrid.
- -To include a eoDisableInsert and/or eoDisableDelete flag in -ExOptions property.
- -12. Whether -it's possible to fix a some columns?
- -Yes, of course. See a FixedCols and FixedColor properties.
- -Also if you want to fix columns, but to save their attributes, -see a eoFixedLikeColumn flag in ExOptions property.
- -13. I -want to display a hint for each cell.
- -If you want to display a hint, which contains the full string -wholly which is not located on cell width, include a eoCellHint -flag in ExOptions property. In this case with hit of a mouse -pointer on any cell there will be a hint, containing full text -with field value.
- -PS: if the field value is located in cell completely, the hint -does not occur.
- -14. How I -can insert a checkbox in cells?
- -If you included the eoBooleanAsCheckBox flag in ExOptions -property, then for any boolean field the user can view and edit -field values in checkboxs.
- -15. -I want to display a dropdown and ellipsis buttons in cells.
- -If you included the eoShowLookup flag in ExOptions property, -then for each row of each columns (which have an assigned -PickList, or ButtonStyle = cbsEllipsis, or assigned field is a -Lookup-field) will be displayed the buttons (dropdown arrow or -ellipsis). You can click on it for calling linked event.
- -PS: in standard TDBGrid these buttons occur only in editor -mode.
- -16. -My users want use Enter key like TAB for column naviagtion.
- -Set the eoENTERlikeTAB flag in ExOptions property.
- -Yes, see an OnDrawColumnTitle event.
- -18. I want -to draw a rows in other colors.
- -If you want to draw a rows in TSMDBGrid you can do it in other -way.
- -The first way - very-very simply: you can write in -OnGetCellParams event the procedure, in which you check the some -condition (for example, value in same field) and change a font or -backcolor.
- -Example 1:
- -procedure TForm1.SMDBGrid1GetCellParams(Sender: TObject; Field: TField;
- AFont: TFont; var Background: TColor; Highlight: Boolean);
-begin
- {if CustNo less than 15, then set a bold font and red color in background}
- if Table1.FieldByName('CustNo') < 15 then
- begin
- Font.Style := [fsBold];
- Background := clRed;
- end
- else
- begin
- Font.Style := [];
- Background := clWhite;
- end
-end;
-
-
-The second way: you can write in OnDrawColumnCell event the -procedure, in which you check the condition and draw on canvas. -In this case you can realize the anything that you want - to draw -shapes, images, to change a fonts and/or colors, to change a text -position etc.
- -Example 2:
- -procedure TForm1.SMDBGrid1DrawColumnCell(Sender: TObject;
- const Rect: TRect; DataCol: Integer; Column: TColumn;
- State: TGridDrawState);
-begin
- {if CustNo is 13 and is a second column,
- then draw image and text after it}
- if (Table1.FieldByName('CustNo').AsInteger = 13) and
- (DataCol = 2) then
- begin
- SMDBGrid1.Canvas.FillRect(Rect);
- SMDBGrid1.Canvas.Draw(Rect.Left, Rect.Top, Image1.Picture.Bitmap);
- SMDBGrid1.Canvas.TextOut(Rect.Left+20, Rect.Top+20, Column.Field.FieldName);
- end;
-end;
-
-
-19. I want -to change a color for odd rows.
- -As I described in previous topic you can do it in -OnGetCellParams or OnDrawColumnCell events. For example:
- -procedure TForm1.SMDBGrid1GetCellParams(Sender: TObject; Field: TField; - AFont: TFont; var Background: TColor; Highlight: Boolean); -begin - if (Table1.RecNo mod 2 = 1) then - Background := clRed; -end;- -
PS: of course, RecNo is valid for local tables only (Paradox, -DBase etc). For SQL tables or queries you need do it with -someelse method.
- -20. How -I can receive the latest news about TSMDBGrid, new builds and -upgrades?
- -If you want to receive the latest news about TSMDBGrid -development and new versions of it, then send a message to me (mshkolnik@rs-ukraine.kiev.ua, -mike@woccu.freenet.kiev.ua -or sign a -gustbook) and I shall inform you about all changes.
- -Also I created the mailing list (http://www.onelist.com/subscribe/SMComponents). -In this list you can discuss the questions connected to my -components and/or applications (TSMDBGrid too, of course), -receive the lastest news about development, propose the new -features, receive the updates, new versions and bug fixings. Also -there you can take the answer on any Delphi programming question. -
- -Download a lastest version: smdbgrid.zip -.(35Kb)
- -Last update: July 23, -1999
- - diff --git a/components/smdbgrid/source/RXUtils.pas b/components/smdbgrid/source/RXUtils.pas deleted file mode 100644 index bd7060f6..00000000 --- a/components/smdbgrid/source/RXUtils.pas +++ /dev/null @@ -1,201 +0,0 @@ -unit RXUtils; //Some functions from RX's VCLUtils.Pas; - -{$IFNDEF VER80} {-- Delphi 1.0 } - {$IFNDEF VER90} {-- Delphi 2.0 } - {$IFNDEF VER93} {-- C++Builder 1.0 } - {$DEFINE RX_D3} { Delphi 3.0 or higher } - {$ENDIF} - {$ENDIF} -{$ENDIF} - -{$P+,W-,R-,V-} - -interface - -{$IFDEF WIN32} -uses Windows, Classes, Graphics; -{$ELSE} -uses WinTypes, WinProcs, Classes, Graphics; -{$ENDIF} - -{ Windows resources (bitmaps and icons) VCL-oriented routines } -procedure DrawBitmapTransparent(Dest: TCanvas; DstX, DstY: Integer; - Bitmap: TBitmap; TransparentColor: TColor); - -{ Service routines } -function Max(X, Y: Integer): Integer; -function Min(X, Y: Integer): Integer; - -{ Standard Windows colors that are not defined by Delphi } -const -{$IFNDEF WIN32} - clInfoBk = TColor($02E1FFFF); - clNone = TColor($02FFFFFF); -{$ENDIF} - clCream = TColor($A6CAF0); - clMoneyGreen = TColor($C0DCC0); - clSkyBlue = TColor($FFFBF0); - -implementation - -{ Service routines } -function Max(X, Y: Integer): Integer; -begin - if X > Y then - Result := X - else - Result := Y; -end; - -function Min(X, Y: Integer): Integer; -begin - if X < Y then - Result := X - else - Result := Y; -end; - -function PaletteColor(Color: TColor): Longint; -const -{ TBitmap.GetTransparentColor from GRAPHICS.PAS use this value } - PaletteMask = $02000000; -begin - Result := ColorToRGB(Color) or PaletteMask; -end; - - -{ Transparent bitmap } -procedure StretchBltTransparent(DstDC: HDC; DstX, DstY, DstW, DstH: Integer; - SrcDC: HDC; SrcX, SrcY, SrcW, SrcH: Integer; Palette: HPalette; - TransparentColor: TColorRef); -var - Color: TColorRef; - bmAndBack, bmAndObject, bmAndMem, bmSave: HBitmap; - bmBackOld, bmObjectOld, bmMemOld, bmSaveOld: HBitmap; - MemDC, BackDC, ObjectDC, SaveDC: HDC; - palDst, palMem, palSave, palObj: HPalette; -begin - { Create some DCs to hold temporary data } - BackDC := CreateCompatibleDC(DstDC); - ObjectDC := CreateCompatibleDC(DstDC); - MemDC := CreateCompatibleDC(DstDC); - SaveDC := CreateCompatibleDC(DstDC); - { Create a bitmap for each DC } - bmAndObject := CreateBitmap(SrcW, SrcH, 1, 1, nil); - bmAndBack := CreateBitmap(SrcW, SrcH, 1, 1, nil); - bmAndMem := CreateCompatibleBitmap(DstDC, DstW, DstH); - bmSave := CreateCompatibleBitmap(DstDC, SrcW, SrcH); - { Each DC must select a bitmap object to store pixel data } - bmBackOld := SelectObject(BackDC, bmAndBack); - bmObjectOld := SelectObject(ObjectDC, bmAndObject); - bmMemOld := SelectObject(MemDC, bmAndMem); - bmSaveOld := SelectObject(SaveDC, bmSave); - { Select palette } - palDst := 0; palMem := 0; palSave := 0; palObj := 0; - if Palette <> 0 then begin - palDst := SelectPalette(DstDC, Palette, True); - RealizePalette(DstDC); - palSave := SelectPalette(SaveDC, Palette, False); - RealizePalette(SaveDC); - palObj := SelectPalette(ObjectDC, Palette, False); - RealizePalette(ObjectDC); - palMem := SelectPalette(MemDC, Palette, True); - RealizePalette(MemDC); - end; - { Set proper mapping mode } - SetMapMode(SrcDC, GetMapMode(DstDC)); - SetMapMode(SaveDC, GetMapMode(DstDC)); - { Save the bitmap sent here } - BitBlt(SaveDC, 0, 0, SrcW, SrcH, SrcDC, SrcX, SrcY, SRCCOPY); - { Set the background color of the source DC to the color, } - { contained in the parts of the bitmap that should be transparent } - Color := SetBkColor(SaveDC, PaletteColor(TransparentColor)); - { Create the object mask for the bitmap by performing a BitBlt() } - { from the source bitmap to a monochrome bitmap } - BitBlt(ObjectDC, 0, 0, SrcW, SrcH, SaveDC, 0, 0, SRCCOPY); - { Set the background color of the source DC back to the original } - SetBkColor(SaveDC, Color); - { Create the inverse of the object mask } - BitBlt(BackDC, 0, 0, SrcW, SrcH, ObjectDC, 0, 0, NOTSRCCOPY); - { Copy the background of the main DC to the destination } - BitBlt(MemDC, 0, 0, DstW, DstH, DstDC, DstX, DstY, SRCCOPY); - { Mask out the places where the bitmap will be placed } - StretchBlt(MemDC, 0, 0, DstW, DstH, ObjectDC, 0, 0, SrcW, SrcH, SRCAND); - { Mask out the transparent colored pixels on the bitmap } - BitBlt(SaveDC, 0, 0, SrcW, SrcH, BackDC, 0, 0, SRCAND); - { XOR the bitmap with the background on the destination DC } - StretchBlt(MemDC, 0, 0, DstW, DstH, SaveDC, 0, 0, SrcW, SrcH, SRCPAINT); - { Copy the destination to the screen } - BitBlt(DstDC, DstX, DstY, DstW, DstH, MemDC, 0, 0, - SRCCOPY); - { Restore palette } - if Palette <> 0 then begin - SelectPalette(MemDC, palMem, False); - SelectPalette(ObjectDC, palObj, False); - SelectPalette(SaveDC, palSave, False); - SelectPalette(DstDC, palDst, True); - end; - { Delete the memory bitmaps } - DeleteObject(SelectObject(BackDC, bmBackOld)); - DeleteObject(SelectObject(ObjectDC, bmObjectOld)); - DeleteObject(SelectObject(MemDC, bmMemOld)); - DeleteObject(SelectObject(SaveDC, bmSaveOld)); - { Delete the memory DCs } - DeleteDC(MemDC); - DeleteDC(BackDC); - DeleteDC(ObjectDC); - DeleteDC(SaveDC); -end; - -procedure StretchBitmapTransparent(Dest: TCanvas; Bitmap: TBitmap; - TransparentColor: TColor; DstX, DstY, DstW, DstH, SrcX, SrcY, - SrcW, SrcH: Integer); -var - CanvasChanging: TNotifyEvent; - Temp: TBitmap; -begin - if DstW <= 0 then DstW := Bitmap.Width; - if DstH <= 0 then DstH := Bitmap.Height; - if (SrcW <= 0) or (SrcH <= 0) then begin - SrcX := 0; SrcY := 0; - SrcW := Bitmap.Width; - SrcH := Bitmap.Height; - end; - if not Bitmap.Monochrome then - SetStretchBltMode(Dest.Handle, STRETCH_DELETESCANS); - CanvasChanging := Bitmap.Canvas.OnChanging; - try - Bitmap.Canvas.OnChanging := nil; - Temp := Bitmap; - try - if TransparentColor = clNone then begin - StretchBlt(Dest.Handle, DstX, DstY, DstW, DstH, Temp.Canvas.Handle, - SrcX, SrcY, SrcW, SrcH, Dest.CopyMode); - end - else - begin -{$IFDEF RX_D3} - if TransparentColor = clDefault then - TransparentColor := Temp.Canvas.Pixels[0, Temp.Height - 1]; -{$ENDIF} - if Temp.Monochrome then TransparentColor := clWhite - else TransparentColor := ColorToRGB(TransparentColor); - StretchBltTransparent(Dest.Handle, DstX, DstY, DstW, DstH, - Temp.Canvas.Handle, SrcX, SrcY, SrcW, SrcH, Temp.Palette, - TransparentColor); - end; - finally - end; - finally - Bitmap.Canvas.OnChanging := CanvasChanging; - end; -end; - -procedure DrawBitmapTransparent(Dest: TCanvas; DstX, DstY: Integer; - Bitmap: TBitmap; TransparentColor: TColor); -begin - StretchBitmapTransparent(Dest, Bitmap, TransparentColor, DstX, DstY, - Bitmap.Width, Bitmap.Height, 0, 0, Bitmap.Width, Bitmap.Height); -end; - -end. diff --git a/components/smdbgrid/source/SMCnst.pas b/components/smdbgrid/source/SMCnst.pas deleted file mode 100644 index 88927012..00000000 --- a/components/smdbgrid/source/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{English strings} -const - strMessage = 'Print...'; - strSaveChanges = 'Do you really want to save a changes on the Database Server?'; - strErrSaveChanges = 'Can''t save a data! Check a Server connection or data validation.'; - strDeleteWarning = 'Do you really want to delete a table %s?'; - strEmptyWarning = 'Do you really want to empty a table %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Add record', - 'Insert record', - 'Edit record', - 'Delete record', - '-', - 'Print ...', - 'Export ...', - '-', - 'Save changes', - 'Discard changes', - 'Refresh', - '-', - 'Select/Unselect records', - 'Select record', - 'Select All records', - '-', - 'UnSelect record', - 'UnSelect All records', - '-', - 'Save column layout', - 'Restore column layout', - '-', - 'Setup...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Title '; - SgbData = ' Data '; - STitleCaption = 'Caption:'; - STitleAlignment = 'Alignment:'; - STitleColor = 'Background:'; - STitleFont = 'Font:'; - SWidth = 'Width:'; - SWidthFix = 'characters'; - SAlignLeft = 'left'; - SAlignRight = 'right'; - SAlignCenter = 'center'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'First record'; - SPriorRecord = 'Prev record'; - SNextRecord = 'Next record'; - SLastRecord = 'Last record'; - SInsertRecord = 'Insert record'; - SCopyRecord = 'Copy record'; - SDeleteRecord = 'Delete record'; - SEditRecord = 'Edit record'; - SFilterRecord = 'Filter conditions'; - SFindRecord = 'Search of the record'; - SPrintRecord = 'Print of the records'; - SExportRecord = 'Export of the records'; - SPostEdit = 'Save changes'; - SCancelEdit = 'Cancel changes'; - SRefreshRecord = 'Refresh data'; - SChoice = 'Choose a record'; - SClear = 'Clear a record choose'; - SDeleteRecordQuestion = 'Delete a record?'; - SDeleteMultipleRecordsQuestion = 'Do you really want to delete a selected records?'; - SRecordNotFound = 'Record not found'; - - SFirstName = 'First'; - SPriorName = 'Prev'; - SNextName = 'Next'; - SLastName = 'Last'; - SInsertName = 'Insert'; - SCopyName = 'Copy'; - SDeleteName = 'Delete'; - SEditName = 'Edit'; - SFilterName = 'Filter'; - SFindName = 'Find'; - SPrintName = 'Print'; - SExportName = 'Export'; - SPostName = 'Save'; - SCancelName = 'Cancel'; - SRefreshName = 'Refresh'; - SChoiceName = 'Choose'; - SClearName = 'Clear'; - - SBtnOk = '&OK'; - SBtnCancel = '&Cancel'; - SBtnLoad = 'Load'; - SBtnSave = 'Save'; - SBtnCopy = 'Copy'; - SBtnPaste = 'Paste'; - SBtnClear = 'Clear'; - - SRecNo = 'rec.'; - SRecOf = ' of '; - -const //for EditTyped - etValidNumber = 'valid number'; - etValidInteger = 'valid integer number'; - etValidDateTime = 'valid date/time'; - etValidDate = 'valid date'; - etValidTime = 'valid time'; - etValid = 'valid'; - etIsNot = 'is not a'; - etOutOfRange = 'Value %s out of range %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/SMDBGrid.pas b/components/smdbgrid/source/SMDBGrid.pas deleted file mode 100644 index acd12f10..00000000 --- a/components/smdbgrid/source/SMDBGrid.pas +++ /dev/null @@ -1,2343 +0,0 @@ -{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y-,Z1} - -{ Copyright (C) 1998-2000, written by Shkolnik Mike - FIDOnet: 2:463/106.14 - E-Mail: mshkolnik@scalabium.com - mshkolnik@yahoo.com - WEB: http://www.scalabium.com - http://www.geocities.com/mshkolnik - tel: 380-/44/-552-10-29 - -English: - The successor TDBGrid with the extended features. - Is able to display multiline wordwrap column titles, - checkboxs for boolean fields, checkboxs for record selecting, - fixing of columns, a convenient select of records from the keyboard, - stretch drawing of the graphic fields in the cells, - possibility to exclude insert and delete of records in the DBGrid, - own standard PopupMenu, save/restore of a column states, processing of - additional events etc. - - 1. movement from column to column by ENTER key (like TAB) - 2. multiline wordwrap column titles (partly is transfered - from TBitDBGrid - Ilya Andreev, ilya_andreev@geocities.com - FIDONet: 2:5030/55.28 AKA 2:5030/402.17) - 3. display opportunity of selected record mark (like checkbox) - 4. editing of boolean fields like checkbox - 5. a convenient select of records from keyboard (is transfered from TRXDBGrid, RXLibrary) - 6. an opportunity to exclude insert and delete of records in the SMDBGrid - 7. save and restore of the column order and column width in the INI-file - 8. own PopUp-menu with standard items (Add/Edit/Delete record, Print/Export - data, Save/Cancel changes, Refresh data, Select/UnSelect records, - Save/Restore layout) - 9. fixing of the few columns in horizontal scrolling - 10. delete of the all selected records - 11. Refresh of the data in SMDBGrid (useful for TQuery because Refresh - correctly works only for TTable) - 12. processing of events by pressing on column title (is transfered - from TRXDBGrid, RXLibrary) - 13. ability of display of the MEMO/BLOB/PICTURE-fields as Bitmap (is - transfered from TRXDBGrid, RXLibrary) - 14. display hints for each cells if cell text is cutted by column width - (transfered from TBitDBGrid - Ilya Andreev, ilya_andreev@geocities.com - FIDONet: 2:5030/55.28 AKA 2:5030/402.17) - 15. opportunity to assign of events: OnAppendRecord, OnEditRecord, - OnDeleteRecord, OnPrintData, OnExportData - 16. lowered draw of the current selected column (like grid in - 1C-accounting) - 17. standard Popup menu like window system menu: - "Add record", - "Insert record", - "Edit record", - "Delete record", - "-", - "Print ...", - "Export ...", - "-", - "Save changes", - "Cancel changes", - "Refresh data", - "-", - "Select/Unselect records", - "-", - "Save layout", - "Restore layout", - "-", - "Setup..." - -PS: in archive there are English, French, German, Italian, Dutch, - Brazilian Portuguese, Russian, Ukrainian and Japan resources - (view a file SMCnst.PAS in Resourse directory). -If anybody want to send a native resources, then I shall include it in next build. - - -Thanks to native tranclators: -- Remy (walloon@euronet.be) for French resources -- Thomas Grimm (tgrimm@allegro-itc.de) for German resources -- Naohiro Fukuda (nao@nagoya.terracom.co.jp) for Japan resources -- Julian (gzorzi@misam.it) for Italian resources -- Rodrigo Hjort (rodrigo_hjort@excite.com) for Brazilian Portuguese resources -- sam francke (s.j.francke@hccnet.nl) for Dutch resources -- Daniel Ramirez Jaime (rdaniel2000@hotmail.com) for Spanish Mexican resources - -I want to thank Naohiro Fukuda (nao@nagoya.terracom.co.jp) -and Remy (walloon@euronet.be), due to which in TSMDBGrid -there was much less errors and bugs and for their sentences -on improverment a component. -} - -unit SMDBGrid; - -interface - -{$I compilers.inc} - -uses -{$ifdef COMPILER_9_UP} - Variants, -{$endif} - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - Menus, Grids, DBGrids, DB, StdCtrls, SMCnst; - -type - TExOptions = set of (eoBooleanAsCheckBox, - eoCheckBoxSelect, eoCellHint, - eoDisableDelete, eoDisableInsert, eoDrawGraphicField, - eoENTERlikeTAB, eoFixedLikeColumn, - eoKeepSelection, eoLayout, - eoSelectedTitle, eoShowGlyphs, eoShowLookup, eoStandardPopup, - eoTitleButtons); - -type - {start cutting from TRxDBGrid} - TCheckTitleBtnEvent = procedure (Sender: TObject; ACol: Longint; Field: TField; var Enabled: Boolean) of object; - TGetCellParamsEvent = procedure (Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean) of object; - TGetBtnParamsEvent = procedure (Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; IsDown: Boolean) of object; - {end cutting from TRxDBGrid} - - TGetGlyphEvent = procedure (Sender: TObject; var Bitmap: TBitmap) of object; - -type - TSMSortType = (stNone, stAscending, stDescending); - - TSMSortColumn = class - FieldName: string; - SortCaption: string; - SortType: TSMSortType; - end; - - TSMDBGrid = class; - - TSMListSortColumns = class(TList) - private - function GetColumn(Index: Integer): TSMSortColumn; - procedure SetColumn(Index: Integer; Value: TSMSortColumn); - public - function Add: TSMSortColumn; - procedure RebuildColumns(Grid: TSMDBGrid); - - property Items[Index: Integer]: TSMSortColumn read GetColumn write SetColumn; default; - end; - - - TSMDBGrid = class(TDBGrid) - private - { Private declarations } - FExOptions: TExOptions; - - {selection: from TRxDBGrid} - FMultiSelect: Boolean; - FSelecting: Boolean; - FMsIndicators: TImageList; - FSelectionAnchor: TBookmarkStr; - FDisableCount: Integer; - FFixedCols: Integer; - FSwapButtons: Boolean; - FOnCheckButton: TCheckTitleBtnEvent; - FTracking: Boolean; - FPressedCol: Longint; - FPressed: Boolean; - FOnGetCellParams: TGetCellParamsEvent; - FOnGetBtnParams: TGetBtnParamsEvent; - - {Registry} - FRegistryKey: string; - FRegistrySection: string; - - {popup menu with standard operations} - FDBPopUpMenu: TPopUpMenu; - FOnAppendRecord: TNotifyEvent; - FOnInsertRecord: TNotifyEvent; - FOnEditRecord: TNotifyEvent; - FOnDeleteRecord: TNotifyEvent; - FOnPostData: TNotifyEvent; - FOnCancelData: TNotifyEvent; - FOnRefreshData: TNotifyEvent; - FOnPrintData: TNotifyEvent; - FOnExportData: TNotifyEvent; - FOnSetupGrid: TNotifyEvent; - FOnChangeSelection: TNotifyEvent; - - FOnDrawColumnTitle: TDrawColumnCellEvent; - FOnGetGlyph: TGetGlyphEvent; - FWidthOfIndicator: Integer; - - procedure SetIndicatorWidth(Value: Integer); - - procedure AppendClick(Sender: TObject); - procedure InsertClick(Sender: TObject); - procedure EditClick(Sender: TObject); - procedure DeleteClick(Sender: TObject); - procedure PrintClick(Sender: TObject); - procedure ExportClick(Sender: TObject); - procedure PostClick(Sender: TObject); - procedure CancelClick(Sender: TObject); - procedure RefreshClick(Sender: TObject); - procedure SetupGridClick(Sender: TObject); - - procedure SaveLayoutClick(Sender: TObject); - procedure RestoreLayoutClick(Sender: TObject); - - {start cutting from TRxDBGrid} - procedure SetFixedCols(Value: Integer); - function GetFixedCols: Integer; - function GetTitleOffset: Byte; - procedure StopTracking; - procedure TrackButton(X, Y: Integer); - function AcquireFocus: Boolean; - function ActiveRowSelected: Boolean; - function GetOptions: TDBGridOptions; - procedure SetOptions(Value: TDBGridOptions); - {end cutting from TRxDBGrid} - - function GetImageIndex(Field: TField): Integer; - procedure SetExOptions(Val: TExOptions); - - {partly is transfered from TBitDBGrid: - Ilya Andreev, ilya_andreev@geocities.com - FIDONet: 2:5030/55.28 AKA 2:5030/402.17} - procedure SetTitlesHeight; - procedure CMHintShow(var Msg: TMessage); message CM_HINTSHOW; - {end of transfered} - - function GetSortImageWidth: Integer; - protected - { Protected declarations } -// procedure Paint; override; - - {start cutting from TRxDBGrid} - function HighlightCell(DataCol, DataRow: Integer; const Value: string; - AState: TGridDrawState): Boolean; override; - procedure Scroll(Distance: Integer); override; - - procedure LayoutChanged; override; - procedure ColWidthsChanged; override; - procedure SetColumnAttributes; override; - procedure TopLeftChanged; override; - function CanEditShow: Boolean; override; - - procedure CheckTitleButton(ACol: Longint; var Enabled: Boolean); dynamic; - procedure GetCellProps(Field: TField; AFont: TFont; var Background: TColor; - Highlight: Boolean); dynamic; - {end cutting from TRxDBGrid} - - procedure CellClick(Column: TColumn); override; - function CellRectForDraw(R: TRect; ACol: Longint): TRect; - - procedure DrawColumnCell(const Rect: TRect; DataCol: Integer; - Column: TColumn; State: TGridDrawState); override; - function GetGlyph: TBitmap; virtual; - procedure DrawCheckBox(R: TRect; AState: TCheckBoxState; al: TAlignment); virtual; - - procedure KeyDown(var Key: Word; Shift: TShiftState); override; - procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; - procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; - procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; - - { added by anse 07.08.02 } - function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; Override; - function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; Override; - public - { Public declarations } - SortColumns: TSMListSortColumns; - - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - procedure DeleteData; - procedure RefreshData; - - procedure SelectOneClick(Sender: TObject); - procedure SelectAllClick(Sender: TObject); - procedure UnSelectOneClick(Sender: TObject); - procedure UnSelectAllClick(Sender: TObject); - - procedure SaveLayoutToRegistry; - procedure RestoreLayoutFromRegistry; - - procedure ToggleRowSelection; - procedure GotoSelection(Index: Longint); - - procedure DisableScroll; - procedure EnableScroll; - function ScrollDisabled: Boolean; - - property IndicatorOffset; - property TitleOffset: Byte read GetTitleOffset; - published - { Published declarations } - - property GridLineWidth; - property ExOptions: TExOptions read FExOptions write SetExOptions; - - {selection} - property Options: TDBGridOptions read GetOptions write SetOptions; - property FixedCols: Integer read GetFixedCols write SetFixedCols default 0; - property OnGetCellParams: TGetCellParamsEvent read FOnGetCellParams write FOnGetCellParams; - - {Registry} - property RegistryKey: string read FRegistryKey write FRegistryKey; - property RegistrySection: string read FRegistrySection write FRegistrySection; - - property OnAppendRecord: TNotifyEvent read FOnAppendRecord write FOnAppendRecord; - property OnInsertRecord: TNotifyEvent read FOnInsertRecord write FOnInsertRecord; - property OnEditRecord: TNotifyEvent read FOnEditRecord write FOnEditRecord; - property OnDeleteRecord: TNotifyEvent read FOnDeleteRecord write FOnDeleteRecord; - property OnPostData: TNotifyEvent read FOnPostData write FOnPostData; - property OnCancelData: TNotifyEvent read FOnCancelData write FOnCancelData; - property OnRefreshData: TNotifyEvent read FOnRefreshData write FOnRefreshData; - property OnPrintData: TNotifyEvent read FOnPrintData write FOnPrintData; - property OnExportData: TNotifyEvent read FOnExportData write FOnExportData; - property OnCheckButton: TCheckTitleBtnEvent read FOnCheckButton write FOnCheckButton; - property OnChangeSelection: TNotifyEvent read FOnChangeSelection write FOnChangeSelection; - - property OnSetupGrid: TNotifyEvent read FOnSetupGrid write FOnSetupGrid; - property OnDrawColumnTitle: TDrawColumnCellEvent read FOnDrawColumnTitle write FOnDrawColumnTitle; - property OnGetGlyph: TGetGlyphEvent read FOnGetGlyph write FOnGetGlyph; - property WidthOfIndicator: Integer read FWidthOfIndicator write SetIndicatorWidth; - - property ScrollBars; - property ColCount; - property RowCount; - property VisibleColCount; - property VisibleRowCount; - property Col; - property Row; - - property OnMouseDown; - property OnMouseUp; - property OnMouseMove; - end; - -procedure Register; - -implementation -uses RXUtils {ex VCLUtils from RX-Lib}, TypInfo, Registry, DBTables - {$IFDEF VER140} , Variants {$ENDIF}; - -{$R smdbgrid.RES} -var - FCheckWidth, FCheckHeight: Integer; - -procedure Register; -begin - RegisterComponents('SMComponents', [TSMDBGrid]); -end; - - - -function TSMDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; -begin - result:=false; - if Assigned(OnMouseWheelDown) then - OnMouseWheelDown(Self, Shift, MousePos, Result); - if not result then - if (DataSource<>nil) and (DataSource.DataSet<>nil) then - begin - DataSource.DataSet.Next; - result:=true; - end; -end; - -function TSMDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; -begin - result:=false; - if Assigned(OnMouseWheelUp) then - OnMouseWheelUp(Self, Shift, MousePos, Result); - if not result then - if (DataSource<>nil) and (DataSource.DataSet<>nil) then - begin - DataSource.DataSet.Prior; - result:=true; - end; -end; - - -{ TSMListSortColumns } -function TSMListSortColumns.Add: TSMSortColumn; -begin - Result := TSMSortColumn.Create; - - inherited Add(Result); -end; - -function TSMListSortColumns.GetColumn(Index: Integer): TSMSortColumn; -begin - Result := TSMSortColumn(inherited Items[Index]); -end; - -procedure TSMListSortColumns.SetColumn(Index: Integer; Value: TSMSortColumn); -begin - Items[Index] := Value; -end; - -procedure TSMListSortColumns.RebuildColumns(Grid: TSMDBGrid); -var i: Integer; -begin - if Assigned(Grid) and Assigned(Grid.DataSource) and - Assigned(Grid.DataSource.DataSet) then - begin - Grid.BeginLayout; - try - Clear; - with Grid.DataSource.DataSet do - for i := 0 to FieldCount-1 do - Add.FieldName := Fields[i].FieldName - finally - Grid.EndLayout; - end - end - else - Clear; -end; - - - - - -type - TBookmarks = class(TBookmarkList); - TGridPicture = (gpBlob, gpMemo, gpPicture, gpOle, gpSortAsc, gpSortDesc); - -const - GridBmpNames: array[TGridPicture] of PChar = ('SM_BLOB', 'SM_MEMO', 'SM_PICT', 'SM_OLE', - 'SM_ARROWASC', 'SM_ARROWDESC'); - GridBitmaps: array[TGridPicture] of TBitmap = (nil, nil, nil, nil, nil, nil); - bmMultiDot = 'SM_MSDOT'; - bmMultiArrow = 'SM_MSARROW'; - bmMultiCheckBox = 'SM_MSCHECKBOX'; - -function GetGridBitmap(BmpType: TGridPicture): TBitmap; -begin - if GridBitmaps[BmpType] = nil then - begin - GridBitmaps[BmpType] := TBitmap.Create; - GridBitmaps[BmpType].Handle := LoadBitmap(HInstance, GridBmpNames[BmpType]); - end; - Result := GridBitmaps[BmpType]; -end; - -procedure DestroyLocals; far; -var I: TGridPicture; -begin - for I := Low(TGridPicture) to High(TGridPicture) do - GridBitmaps[I].Free; -end; - -procedure GridInvalidateRow(Grid: TSMDBGrid; Row: Longint); -var I: Longint; -begin - for I := 0 to Grid.ColCount - 1 do Grid.InvalidateCell(I, Row); -end; - -procedure GetCheckBoxSize; -begin - with TBitmap.Create do - try - Handle := LoadBitmap(0, PChar(32759)); - FCheckWidth := Width div 4; - FCheckHeight := Height div 3; - finally - Free; - end; -end; - -constructor TSMDBGrid.Create(AOwner: TComponent); -var NewItem: TMenuItem; - j: Integer; - Bmp: TBitmap; -begin - inherited Create(AOwner); - - SortColumns := TSMListSortColumns.Create; - - FRegistryKey := 'Software\MikeSoft'; - FRegistrySection := 'SMDBGrid'; - - Bmp := TBitmap.Create; - try - Bmp.Handle := LoadBitmap(hInstance, bmMultiDot); - FMsIndicators := TImageList.CreateSize(Bmp.Width, Bmp.Height); - FMsIndicators.AddMasked(Bmp, clWhite); - Bmp.Handle := LoadBitmap(hInstance, bmMultiArrow); - FMsIndicators.AddMasked(Bmp, clWhite); - Bmp.Handle := LoadBitmap(hInstance, bmMultiCheckBox); - FMsIndicators.AddMasked(Bmp, clWhite); - - finally - Bmp.Free; - end; - FPressedCol := -1; - - FDBPopUpMenu := TPopUpMenu.Create(Self {AOwner}); - if not (csDesigning in ComponentState) then - begin - - for j := 0 to High(PopUpCaption) do - begin - NewItem := TMenuItem.Create(Self); - NewItem.Caption := PopUpCaption[j]; - case j of - 0: NewItem.OnClick := AppendClick; - 1: NewItem.OnClick := InsertClick; - 2: NewItem.OnClick := EditClick; - 3: NewItem.OnClick := DeleteClick; - - 5: NewItem.OnClick := PrintClick; - 6: NewItem.OnClick := ExportClick; - - 8: NewItem.OnClick := PostClick; - 9: NewItem.OnClick := CancelClick; - 10: NewItem.OnClick := RefreshClick; - - 13: NewItem.OnClick := SelectOneClick; - 14: NewItem.OnClick := SelectAllClick; - 16: NewItem.OnClick := UnSelectOneClick; - 17: NewItem.OnClick := UnSelectAllClick; - - 19: NewItem.OnClick := SaveLayoutClick; - 20: NewItem.OnClick := RestoreLayoutClick; - - 22: NewItem.OnClick := SetupGridClick; - end; - if j in [13, 14, 15, 16, 17] then - FDBPopUpMenu.Items[12].Add(NewItem) - else - FDBPopUpMenu.Items.Add(NewItem); - end; - end; -// PopUpMenu := FDBPopUpMenu; - - GetCheckBoxSize; - FWidthOfIndicator := IndicatorWidth; - - FExOptions := [eoENTERlikeTAB, eoKeepSelection, eoStandardPopup]; -// ScrollBars := ssBoth; -// Color := clInfoBk; -end; - -destructor TSMDBGrid.Destroy; -begin - SortColumns.Free; - FDBPopUpMenu.Free; - - FMsIndicators.Free; - - inherited Destroy; -end; - -{procedure TSMDBGrid.Paint; -begin - if ScrollBars in [ssNone, ssHorizontal] then - SetScrollRange(Self.Handle, SB_VERT, 0, 0, False); - if ScrollBars in [ssNone, ssVertical] then - SetScrollRange(Self.Handle, SB_HORZ, 0, 0, False); - - inherited Paint; -end; -} - -{Standard popup menu events} -procedure TSMDBGrid.AppendClick(Sender: TObject); -begin - if Assigned(FOnAppendRecord) then - FOnAppendRecord(Sender) - else - Datalink.DataSet.Append; -end; - -procedure TSMDBGrid.InsertClick(Sender: TObject); -begin - if Assigned(FOnInsertRecord) then - FOnInsertRecord(Self) - else - Datalink.DataSet.Insert; -end; - -procedure TSMDBGrid.EditClick(Sender: TObject); -begin - if Assigned(FOnEditRecord) then - FOnEditRecord(Sender) - else - Datalink.DataSet.Edit; -end; - -procedure TSMDBGrid.DeleteClick(Sender: TObject); -begin - if Assigned(FOnDeleteRecord) then - FOnDeleteRecord(Sender) - else - DeleteData; -end; - -procedure TSMDBGrid.PrintClick(Sender: TObject); -begin - if Assigned(FOnPrintData) then - FOnPrintData(Sender) -end; - -procedure TSMDBGrid.ExportClick(Sender: TObject); -begin - if Assigned(FOnexportData) then - FOnExportData(Sender) -end; - -procedure TSMDBGrid.PostClick(Sender: TObject); -begin - if Assigned(FOnPostData) then - FOnPostData(Sender) - else - Datalink.DataSet.Post; -end; - -procedure TSMDBGrid.CancelClick(Sender: TObject); -begin - if Assigned(FOnCancelData) then - FOnCancelData(Sender) - else - Datalink.DataSet.Cancel; -end; - -procedure TSMDBGrid.RefreshClick(Sender: TObject); -begin - if Assigned(FOnRefreshData) then - FOnRefreshData(Sender) - else - RefreshData; -end; - -procedure TSMDBGrid.SetupGridClick(Sender: TObject); -begin - if Assigned(FOnSetupGrid) then - FOnSetupGrid(Sender) -end; - -function TSMDBGrid.GetImageIndex(Field: TField): Integer; -var - AOnGetText: TFieldGetTextEvent; - AOnSetText: TFieldSetTextEvent; -begin - Result := -1; - if (eoShowGlyphs in FExOptions) and Assigned(Field) then - begin - if (not ReadOnly) and Field.CanModify then - begin - { Allow editing of memo fields if OnSetText and OnGetText - events are assigned } - AOnGetText := Field.OnGetText; - AOnSetText := Field.OnSetText; - if Assigned(AOnSetText) and Assigned(AOnGetText) then Exit; - end; - case Field.DataType of - ftBytes, ftVarBytes, ftBlob: Result := Integer(gpBlob); - ftMemo: Result := Integer(gpMemo); - ftGraphic: Result := Integer(gpPicture); - ftTypedBinary: Result := Integer(gpBlob); - ftFmtMemo: Result := Integer(gpMemo); - ftParadoxOle, ftDBaseOle: Result := Integer(gpOle); - end; - end; -end; - -function TSMDBGrid.ActiveRowSelected: Boolean; -var Index: Integer; -begin - Result := False; - if (dgMultiSelect in Options) and Datalink.Active then - Result := SelectedRows.Find(Datalink.DataSet.Bookmark, Index); -end; - -function TSMDBGrid.HighlightCell(DataCol, DataRow: Integer; - const Value: string; AState: TGridDrawState): Boolean; -begin - Result := ActiveRowSelected; - if not Result then - Result := inherited HighlightCell(DataCol, DataRow, Value, AState); -end; - -procedure TSMDBGrid.ToggleRowSelection; -begin - if (dgMultiSelect in Options) and Datalink.Active then - begin - with SelectedRows do - CurrentRowSelected := not CurrentRowSelected; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end; -end; - -procedure TSMDBGrid.GotoSelection(Index: Longint); -begin - if (dgMultiSelect in Options) and DataLink.Active and (Index < SelectedRows.Count) and (Index >= 0) then - Datalink.DataSet.GotoBookmark(Pointer(SelectedRows[Index])); -end; - -{partly is transfered from TBitDBGrid: - Ilya Andreev, ilya_andreev@geocities.com - FIDONet: 2:5030/55.28 AKA 2:5030/402.17} -procedure TSMDBGrid.SetTitlesHeight; -var - i, MaxHeight: Integer; - RRect: TRect; - pt: Integer; - s: string; -begin - if (dgTitles in Options) then - begin - {recalculate a title height} - MaxHeight := 0; - for i := 0 to Columns.Count - 1 do - begin - RRect := CellRect(0, 0); - RRect.Right := Columns[i].Width - 1; - RRect.Left := 0; - RRect := CellRectForDraw(RRect, i); - - Canvas.Font := Columns[i].Title.Font; - s := Columns[i].Title.Caption; - pt := Pos('|', s); - if pt > 0 then - begin - while pt <> 0 do - begin - s[pt] := #13; - pt := Pos('|', s); - end; - Columns[i].Title.Caption := s; - end; - - MaxHeight := Max(MaxHeight, DrawText(Canvas.Handle, - PChar(s), - Length(s), - RRect, - DT_EXPANDTABS or DT_CALCRECT or DT_WORDBREAK)); - end; - - if (MaxHeight <> 0) then - begin - if (dgRowLines in Options) then - Inc(MaxHeight, 3) - else - Inc(MaxHeight, 2); - if (eoTitleButtons in ExOptions) then - Inc(MaxHeight, 2); - RowHeights[0] := MaxHeight+4 - end; - end; -end; -{end of transfered} - -procedure TSMDBGrid.LayoutChanged; -var ACol: Longint; -begin - ACol := Col; - inherited LayoutChanged; - if Datalink.Active and (FixedCols > 0) then - Col := Min(Max(inherited FixedCols, ACol), ColCount - 1); - - {recalculate a title height} - SetTitlesHeight; -end; - -procedure TSMDBGrid.ColWidthsChanged; -var - ACol: Longint; -begin - ACol := Col; - inherited ColWidthsChanged; - if Datalink.Active and (FixedCols > 0) then - Col := Min(Max(inherited FixedCols, ACol), ColCount - 1); -end; - -procedure TSMDBGrid.SetIndicatorWidth(Value: Integer); -var FrameOffs: Byte; -begin - if (Value <> FWidthOfIndicator) then - begin - if ([dgRowLines, dgColLines] * Options = [dgRowLines, dgColLines]) then - FrameOffs := 1 - else - FrameOffs := 2; - - if (eoCheckBoxSelect in ExOptions) and - (Value < FCheckWidth + 4*FrameOffs + FMsIndicators.Width) then - Value := FCheckWidth + 4*FrameOffs + FMsIndicators.Width; - - if Value < IndicatorWidth then - Value := IndicatorWidth; - FWidthOfIndicator := Value; - - SetColumnAttributes - end; -end; - -procedure TSMDBGrid.SetColumnAttributes; -begin - inherited SetColumnAttributes; - - if (dgIndicator in Options) then - ColWidths[0] := WidthOfIndicator; - - SetFixedCols(FFixedCols); -end; - -function TSMDBGrid.GetTitleOffset: Byte; -begin - Result := 0; - if dgTitles in Options then - Inc(Result); -end; - -procedure TSMDBGrid.SetFixedCols(Value: Integer); -var FixCount, i: Integer; -begin - FixCount := Max(Value, 0) + IndicatorOffset; - if DataLink.Active and not (csLoading in ComponentState) and - (ColCount > IndicatorOffset + 1) then - begin - FixCount := Min(FixCount, ColCount - 1); - inherited FixedCols := FixCount; - for i := 1 to Min(FixedCols, ColCount - 1) do - TabStops[i] := False; - end; - FFixedCols := FixCount - IndicatorOffset; -end; - -function TSMDBGrid.GetFixedCols: Integer; -begin - if DataLink.Active then - Result := inherited FixedCols - IndicatorOffset - else - Result := FFixedCols; -end; - -procedure TSMDBGrid.SelectOneClick(Sender: TObject); -begin - if (dgMultiSelect in Options) and Datalink.Active then - begin - SelectedRows.CurrentRowSelected := True; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end -end; - -procedure TSMDBGrid.SelectAllClick(Sender: TObject); -var ABookmark: TBookmark; -begin - if (dgMultiSelect in Options) and DataLink.Active then - begin - with Datalink.Dataset do - begin - if (BOF and EOF) then Exit; - DisableControls; - try - ABookmark := GetBookmark; - try - First; - while not EOF do - begin - SelectedRows.CurrentRowSelected := True; - Next; - end; - finally - try - GotoBookmark(ABookmark); - except - end; - FreeBookmark(ABookmark); - end; - finally - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - EnableControls; - end; - end; - end; -end; - -procedure TSMDBGrid.UnSelectOneClick(Sender: TObject); -begin - if (dgMultiSelect in Options) and Datalink.Active then - begin - SelectedRows.CurrentRowSelected := False; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end -end; - -procedure TSMDBGrid.UnSelectAllClick(Sender: TObject); -begin - if (dgMultiSelect in Options) then - begin - SelectedRows.Clear; - FSelecting := False; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end; -end; - -procedure TSMDBGrid.SaveLayoutClick(Sender: TObject); -begin - SaveLayoutToRegistry; -end; - -procedure TSMDBGrid.RestoreLayoutClick(Sender: TObject); -begin - RestoreLayoutFromRegistry; -end; - -procedure TSMDBGrid.DeleteData; - - function DeletePrompt: Boolean; - var S: string; - begin - if (SelectedRows.Count > 1) then - S := SDeleteMultipleRecordsQuestion - else - S := SDeleteRecordQuestion; - Result := not (dgConfirmDelete in Options) or - (MessageDlg(S, mtConfirmation, [mbYes, mbNo], 0) = mrYes); - end; - -begin - if DeletePrompt then - begin - if SelectedRows.Count > 0 then - SelectedRows.Delete - else - Datalink.DataSet.Delete; - end; -end; - -procedure TSMDBGrid.RefreshData; -var bookPosition: TBookMark; - boolContinue: Boolean; -begin - boolContinue := True; - - {if needs, save the changed data} - if Assigned(Datalink.DataSet) then - begin - with Datalink.DataSet do - begin - if (State in [dsInsert, dsEdit]) and CanModify then Post; - if (Datalink.DataSet is TBDEDataSet) then - with (Datalink.DataSet as TBDEDataSet) do - begin - if CachedUpdates and UpdatesPending then - try - case MessageDlg(strSaveChanges, mtConfirmation, [mbYes, mbNo, mbCancel], 0) of - mrYes: ApplyUpdates; - mrNo: CancelUpdates; - else - boolContinue := False; - end; - except - MessageDlg(strErrSaveChanges, mtError, [mbOk], 0); - boolContinue := False; - end; - end; - - if boolContinue then - begin - {save a current position} - bookPosition := GetBookmark; - - {close and open a dataset} - Active := False; - Active := True; - - {restore a saved position} - try - GotoBookmark(bookPosition); - except - First; - end; - FreeBookmark(bookPosition); - end; - end; - end; -end; - -procedure TSMDBGrid.SetExOptions(Val: TExOptions); -var FrameOffs: Byte; -begin - if (FExOptions <> Val) then - begin - FExOptions := Val; - - - if ([dgRowLines, dgColLines] * Options = [dgRowLines, dgColLines]) then - FrameOffs := 1 - else - FrameOffs := 2; - - if (eoCheckBoxSelect in Val) then - begin - if (WidthOfIndicator = IndicatorWidth) then - WidthOfIndicator := FCheckWidth + 4*FrameOffs + FMsIndicators.Width; - end - else - begin - if (WidthOfIndicator = FCheckWidth + 4*FrameOffs + FMsIndicators.Width) then - WidthOfIndicator := IndicatorWidth; - end; - Invalidate; - end; -end; - -function TSMDBGrid.CanEditShow: Boolean; -begin - Result := inherited CanEditShow; - - if Result and - (Datalink <> nil) and - Datalink.Active and - (FieldCount > 0) and - (SelectedIndex < FieldCount) and - (SelectedIndex >= 0) and - (FieldCount <= DataSource.DataSet.FieldCount) and - (Fields[SelectedIndex] <> nil) then - Result := GetImageIndex(Fields[SelectedIndex]) < 0; - if Result and - (eoBooleanAsCheckBox in FExOptions) and - Assigned(Fields[SelectedIndex]) and - (Fields[SelectedIndex].DataType = ftBoolean) then - Result := False -end; - -function TSMDBGrid.AcquireFocus: Boolean; -begin - Result := True; - if FAcquireFocus and CanFocus and not (csDesigning in ComponentState) then - begin - Windows.SetFocus(Self.Handle); - SetFocus; - Result := Focused or (InplaceEditor <> nil) and InplaceEditor.Focused; - end; -end; - -function TSMDBGrid.GetOptions: TDBGridOptions; -begin - Result := inherited Options; - if FMultiSelect then - Result := Result + [dgMultiSelect] - else - Result := Result - [dgMultiSelect]; -end; - -procedure TSMDBGrid.SetOptions(Value: TDBGridOptions); -begin - inherited Options := Value - [dgMultiSelect]; - - if FMultiSelect <> (dgMultiSelect in Value) then - begin - FMultiSelect := (dgMultiSelect in Value); - if not FMultiSelect then - SelectedRows.Clear; - end; -end; - -procedure TSMDBGrid.GetCellProps(Field: TField; AFont: TFont; - var Background: TColor; Highlight: Boolean); -begin - if Assigned(FOnGetCellParams) then - FOnGetCellParams(Self, Field, AFont, Background, Highlight) -end; - -procedure TSMDBGrid.CheckTitleButton(ACol: Longint; var Enabled: Boolean); -begin - if (ACol >= 0) and (ACol < Columns.Count) then - begin - if Assigned(FOnCheckButton) then - FOnCheckButton(Self, ACol, Columns[ACol].Field, Enabled); - end - else - Enabled := False; -end; - -procedure TSMDBGrid.DisableScroll; -begin - Inc(FDisableCount); -end; - -type - THackLink = class(TGridDataLink); - -procedure TSMDBGrid.EnableScroll; -begin - if FDisableCount <> 0 then - begin - Dec(FDisableCount); - if FDisableCount = 0 then - THackLink(DataLink).DataSetScrolled(0); - end; -end; - -function TSMDBGrid.ScrollDisabled: Boolean; -begin - Result := FDisableCount <> 0; -end; - -procedure TSMDBGrid.Scroll(Distance: Integer); -var IndicatorRect: TRect; -begin - if FDisableCount = 0 then - begin - inherited Scroll(Distance); - - if (dgIndicator in Options) and - HandleAllocated and - (dgMultiSelect in Options) then - begin - IndicatorRect := BoxRect(0, 0, 0, RowCount - 1); - InvalidateRect(Handle, @IndicatorRect, False); - end; - end; -end; - -procedure TSMDBGrid.KeyDown(var Key: Word; Shift: TShiftState); -var - KeyDownEvent: TKeyEvent; - - function ItAddLastRecord: Boolean; - begin - Result := (eoDisableInsert in FExOptions) and - (Datalink.ActiveRecord >= Datalink.RecordCount-1); - end; - - procedure ClearSelections; - begin - if (dgMultiSelect in Options) then - begin - if not (eoKeepSelection in ExOptions) then - begin - SelectedRows.Clear; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end; - FSelecting := False; - end; - end; - - procedure DoSelection(Select: Boolean; Direction: Integer); - var - AddAfter: Boolean; - begin - AddAfter := False; - BeginUpdate; - try - if (dgMultiSelect in Options) and DataLink.Active then - if Select and (ssShift in Shift) then - begin - if not FSelecting then - begin - FSelectionAnchor := TBookmarks(SelectedRows).CurrentRow; - SelectedRows.CurrentRowSelected := True; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - FSelecting := True; - AddAfter := True; - end - else - with TBookmarks(SelectedRows) do - begin - AddAfter := Compare(CurrentRow, FSelectionAnchor) <> -Direction; - if not AddAfter then - begin - CurrentRowSelected := False; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end - end - end - else - ClearSelections; - if Direction <> 0 then - Datalink.DataSet.MoveBy(Direction); - if AddAfter then - begin - SelectedRows.CurrentRowSelected := True; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end; - finally - EndUpdate; - end; - end; - - procedure NextRow(Select: Boolean); - begin - with Datalink.Dataset do begin - DoSelection(Select, 1); - if EOF and CanModify and (not ReadOnly) and (dgEditing in Options) and - not ItAddLastRecord then - AppendClick(Self); - end; - end; - - procedure PriorRow(Select: Boolean); - begin - DoSelection(Select, -1); - end; - - procedure CheckTab(GoForward: Boolean); - var ACol, Original: Integer; - begin - ACol := Col; - Original := ACol; - if (dgMultiSelect in Options) and DataLink.Active then - while True do - begin - if GoForward then - Inc(ACol) - else - Dec(ACol); - if ACol >= ColCount then - begin - ClearSelections; - ACol := IndicatorOffset; - end - else - if ACol < IndicatorOffset then - begin - ClearSelections; - ACol := ColCount; - end; - if ACol = Original then Exit; - if TabStops[ACol] then Exit; - end; - end; - -const - RowMovementKeys = [VK_UP, VK_PRIOR, VK_DOWN, VK_NEXT, VK_HOME, VK_END]; - -begin - KeyDownEvent := OnKeyDown; - if Assigned(KeyDownEvent) then - KeyDownEvent(Self, Key, Shift); - if not Datalink.Active or not CanGridAcceptKey(Key, Shift) then Exit; - with Datalink.DataSet do - if ssCtrl in Shift then - begin - if (Key in RowMovementKeys) then - ClearSelections; - - case Key of - VK_LEFT: if FixedCols > 0 then - begin - SelectedIndex := FixedCols; - Exit; - end; - VK_DELETE: begin - if (eoDisableDelete in FExOptions) then Exit; - if not ReadOnly and CanModify then - begin - DeleteClick(nil); - Exit; - end; - end; - end - end - else - begin - case Key of - VK_LEFT: if (FixedCols > 0) and not (dgRowSelect in Options) then - begin - if SelectedIndex <= FFixedCols then Exit; - end; - VK_HOME: if (FixedCols > 0) and (ColCount <> IndicatorOffset + 1) and - not (dgRowSelect in Options) then - begin - SelectedIndex := FixedCols; - Exit; - end; - VK_SPACE: if (eoBooleanAsCheckbox in FExOptions) and - (Datalink <> nil) and Datalink.Active and - (Columns[SelectedIndex].Field.DataType = ftBoolean) then - CellClick(Columns[SelectedIndex]); - end; - case Key of - VK_DOWN: begin - NextRow(True); - Exit; - end; - VK_INSERT: if (eoDisableInsert in FExOptions) then Exit; - VK_UP: begin - PriorRow(True); - Exit; - end; - 13: if (eoENTERlikeTAB in FExOptions) then - {going on next column} - if (SelectedIndex < Columns.Count-1) then - SelectedIndex := SelectedIndex + 1 - else - SelectedIndex := 0; - end; - if ((Key in [VK_LEFT, VK_RIGHT]) and (dgRowSelect in Options)) or - ((Key in [VK_HOME, VK_END]) and ((ColCount = IndicatorOffset + 1) - or (dgRowSelect in Options))) or (Key in [VK_ESCAPE, VK_NEXT, - VK_PRIOR]) or ((Key = VK_INSERT) and (CanModify and - (not ReadOnly) and (dgEditing in Options))) then - ClearSelections - else - if ((Key = VK_TAB) and not (ssAlt in Shift)) then - CheckTab(not (ssShift in Shift)); - end; - OnKeyDown := nil; -// try - inherited KeyDown(Key, Shift); -// except -// end; - OnKeyDown := KeyDownEvent; -end; - -procedure TSMDBGrid.TopLeftChanged; -begin - if (dgRowSelect in Options) and DefaultDrawing then - GridInvalidateRow(Self, Self.Row); - - inherited TopLeftChanged; - if FTracking then StopTracking; -end; - -procedure TSMDBGrid.StopTracking; -begin - if FTracking then - begin - TrackButton(-1, -1); - FTracking := False; - MouseCapture := False; - end; -end; - -procedure TSMDBGrid.TrackButton(X, Y: Integer); -var - Cell: TGridCoord; - NewPressed: Boolean; -begin - Cell := MouseCoord(X, Y); - NewPressed := PtInRect(Rect(0, 0, ClientWidth, ClientHeight), Point(X, Y)) - and (FPressedCol = Cell.X) and (Cell.Y = 0); - if FPressed <> NewPressed then - begin - FPressed := NewPressed; - GridInvalidateRow(Self, 0); - end; -end; - -procedure TSMDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); - - procedure SetEnabledItems; - begin - with FDBPopUpMenu do - begin - {Append} - if Assigned(Datalink.DataSet) then - Items[0].Enabled := not (eoDisableInsert in FExOptions) and - (not ReadOnly) and - Datalink.DataSet.CanModify and - (Datalink.DataSet.State = dsBrowse) - else - Items[0].Enabled := False; - - {Insert} - Items[1].Enabled := Items[0].Enabled; - - {Edit} - if Assigned(Datalink.DataSet) then - Items[2].Enabled := not ReadOnly and - Datalink.DataSet.CanModify and - (Datalink.DataSet.State = dsBrowse) -// and (Datalink.DataSet.RecordCount > 0) - else - Items[2].Enabled := False; - - {Delete} - if Assigned(Datalink.DataSet) then - Items[3].Enabled := (not (eoDisableDelete in FExOptions)) and - (not ReadOnly) and - Datalink.DataSet.CanModify and - (Datalink.DataSet.State = dsBrowse) -// and (Datalink.DataSet.RecordCount > 0) - else - Items[3].Enabled := False; - - {Print} - Items[5].Enabled := True; - Items[5].Visible := Assigned(FOnPrintData); - if Assigned(Datalink.DataSet) then - Items[5].Enabled := (Datalink.DataSet.State = dsBrowse) and Assigned(FOnPrintData) - else - Items[5].Enabled := False; - - {Export} - Items[6].Enabled := True; - Items[6].Visible := Assigned(FOnExportData); - if Assigned(Datalink.DataSet) then - Items[6].Enabled := (Datalink.DataSet.State = dsBrowse) and Assigned(FOnExportData) - else - Items[6].Enabled := False; - - Items[7].Visible := Items[5].Visible or Items[6].Visible; - - {Post} - if Assigned(Datalink.DataSet) then - Items[8].Enabled := (not ReadOnly) and - (Datalink.DataSet.State in [dsInsert, dsEdit]) and - Datalink.DataSet.CanModify - else - Items[8].Enabled := False; - - {Cancel} - if Assigned(Datalink.DataSet) then - Items[9].Enabled := (not ReadOnly) and - (Datalink.DataSet.State in [dsInsert, dsEdit]) - else - Items[9].Enabled := False; - - {Refresh} - if Assigned(Datalink.DataSet) then - Items[10].Enabled := (Datalink.DataSet.State = dsBrowse) - else - Items[10].Enabled := False; - - {select/unselect} - Items[12].Enabled := Assigned(Datalink.DataSet) and - Datalink.DataSet.Active and - (dgMultiSelect in Options); - - {save/restore layout} - Items[14].Enabled := True; - Items[15].Enabled := True; - - Items[13].Visible := (eoLayout in ExOptions); - Items[14].Visible := (eoLayout in ExOptions); - Items[15].Visible := (eoLayout in ExOptions); - Items[14].Enabled := (eoLayout in ExOptions); - Items[15].Enabled := (eoLayout in ExOptions); - - {setup of the grid} - Items[17].Enabled := True; - Items[17].Visible := Assigned(FOnSetupGrid); - if Assigned(Datalink.DataSet) then - Items[17].Enabled := Assigned(FOnSetupGrid) - else - Items[17].Enabled := False; - Items[16].Visible := Items[17].Visible; - end; - end; - -var - Cell: TGridCoord; - MouseDownEvent: TMouseEvent; - EnableClick: Boolean; - PopCoord: TPoint; -begin - if not AcquireFocus then exit; - if (ssDouble in Shift) and (Button = mbLeft) then - begin - DblClick; - Exit; - end; - if Sizing(X, Y) then - inherited MouseDown(Button, Shift, X, Y) - else - begin - Cell := MouseCoord(X, Y); - - if not (csDesigning in ComponentState) and - (eoStandardPopup in FExOptions) and - ((dgIndicator in Options) and - (Cell.Y < TitleOffset) and - (Cell.X < IndicatorOffset) or - ((Button = mbRight) and (Cell.X >= IndicatorOffset) and not Assigned(PopupMenu))) then - begin - SetEnabledItems; - PopCoord := ClientToScreen(Point(X, Y)); - FDBPopUpMenu.Popup(PopCoord.X, PopCoord.Y); - end - else - if (eoTitleButtons in ExOptions) and - (Datalink <> nil) and Datalink.Active and - (Cell.Y < TitleOffset) and (Cell.X >= IndicatorOffset) and - not (csDesigning in ComponentState) then - begin - if (dgColumnResize in Options) and (Button = mbRight) then - begin - Button := mbLeft; - FSwapButtons := True; - MouseCapture := True; - end - else - if (Button = mbLeft) then - begin - EnableClick := True; - CheckTitleButton(Cell.X - IndicatorOffset, EnableClick); - if EnableClick then - begin - MouseCapture := True; - FTracking := True; - FPressedCol := Cell.X; - TrackButton(X, Y); - end - else - Beep; - Exit; - end; - end; - if (Cell.X < FixedCols + IndicatorOffset) and Datalink.Active then - begin - if (dgIndicator in Options) then - inherited MouseDown(Button, Shift, 1, Y) - else - if Cell.Y >= TitleOffset then - if Cell.Y - Row <> 0 then - Datalink.Dataset.MoveBy(Cell.Y - Row); - end - else - inherited MouseDown(Button, Shift, X, Y); - MouseDownEvent := OnMouseDown; - if Assigned(MouseDownEvent) then - MouseDownEvent(Self, Button, Shift, X, Y); - if not (((csDesigning in ComponentState) or (dgColumnResize in Options)) and - (Cell.Y < TitleOffset)) and (Button = mbLeft) then - begin - if (dgMultiSelect in Options) and Datalink.Active then - with SelectedRows do - begin - FSelecting := False; - if ssCtrl in Shift then - begin - CurrentRowSelected := not CurrentRowSelected; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end - else - if not (eoKeepSelection in ExOptions) then - begin - Clear; - CurrentRowSelected := True; - if Assigned(FOnChangeSelection) then - FOnChangeSelection(Self); - end - end; - end; - end; -end; - -procedure TSMDBGrid.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); -var - Cell: TGridCoord; - ACol: Longint; - DoClick: Boolean; -begin - Cell := MouseCoord(X, Y); - ACol := Cell.X; - if (dgIndicator in Options) then - Dec(ACol); - - if FTracking and (FPressedCol >= 0) then - begin - DoClick := PtInRect(Rect(0, 0, ClientWidth, ClientHeight), Point(X, Y)) - and (Cell.Y = 0) and (Cell.X = FPressedCol); - StopTracking; - if DoClick then - begin - if (DataLink <> nil) and - DataLink.Active and - (ACol >= 0) and - (ACol < Columns.Count) then - else - CellClick(Columns[ACol]); - end; - end - else - if FSwapButtons then - begin - FSwapButtons := False; - MouseCapture := False; - if Button = mbRight then - Button := mbLeft; - end; - - if (eoCheckBoxSelect in ExOptions) and - (dgMultiSelect in Options) and - (Cell.X < IndicatorOffset) and - (Cell.Y >= 0) then - ToggleRowSelection; - - if (Button = mbLeft) and - (Cell.X >= IndicatorOffset) and - (ACol <= FixedCols) and - (Cell.Y > TitleOffset) then - CellClick(Columns[ACol]) - else - inherited MouseUp(Button, Shift, X, Y); -end; - -{from Borland sources} -procedure WriteTitleText(ACanvas: TCanvas; ARect: TRect; DX, DY: Integer; - const Text: string; Alignment: TAlignment); -const - AlignFlags: array [TAlignment] of Integer = - (DT_LEFT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX, - DT_RIGHT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX, - DT_CENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX); -var - B, R, rect1: TRect; - txth: Integer; - {$IFDEF COMPILER_4_UP} - I: TColorRef; - {$ELSE} - I: Integer; - {$ENDIF} - - lpDTP: TDrawTextParams; - DrawBitmap: TBitmap; -begin - I := ColorToRGB(ACanvas.Brush.Color); - if GetNearestColor(ACanvas.Handle, I) = I then - begin - ACanvas.FillRect(ARect); - - rect1.Left := 0; - rect1.Top := 0; - rect1.Right := 0; - rect1.Bottom := 0; - rect1 := ARect; - - lpDTP.cbSize := SizeOf(lpDTP); - lpDTP.uiLengthDrawn := Length(Text); - lpDTP.iLeftMargin := 0; - lpDTP.iRightMargin := 0; - - InflateRect(rect1, -DX, -DY); - - txth := DrawTextEx(ACanvas.Handle,PChar(Text), Length(Text), - rect1, DT_WORDBREAK or DT_CALCRECT, @lpDTP); - - rect1 := ARect; - InflateRect(rect1, -DX, -DY); - - rect1.top := rect1.top + ((rect1.Bottom-rect1.top) div 2) - (txth div 2); - DrawTextEx(ACanvas.Handle, PChar(Text), Length(Text), - rect1, AlignFlags[Alignment], @lpDTP); - end - else - begin - DrawBitmap := TBitmap.Create; - DrawBitmap.Canvas.Lock; - try - with DrawBitmap, ARect do - begin - Width := Max(Width, Right - Left); - Height := Max(Height, Bottom - Top); - R := Rect(DX, DY, Right - Left - 1, Bottom - Top - 1); - B := Rect(0, 0, Right - Left, Bottom - Top); - end; - with DrawBitmap.Canvas do - begin - Font := ACanvas.Font; - Font.Color := ACanvas.Font.Color; - Brush := ACanvas.Brush; - Brush.Style := bsSolid; - FillRect(B); - SetBkMode(Handle, TRANSPARENT); - DrawText(Handle, PChar(Text), Length(Text), R, AlignFlags[Alignment]); - end; - ACanvas.CopyRect(ARect, DrawBitmap.Canvas, B); - finally - DrawBitmap.Canvas.Unlock; - DrawBitmap.Free; - end; - end; -end; - -procedure TSMDBGrid.CellClick(Column: TColumn); -var R: TRect; - BCol: Integer; -begin - inherited CellClick(Column); - - if (Datalink <> nil) and - Datalink.Active and - Assigned(Column.Field) and - (Column.Field.DataType = ftBoolean) and - (eoBooleanAsCheckBox in FExOptions) and - CanEditModify then - begin - try - Column.Field.AsBoolean := not Column.Field.AsBoolean; -// Column.Field.Value := not Column.Field.Value; - except - Column.Field.Value := NULL; - end; - - if (dgIndicator in Options) then - BCol := Column.Index + 1 - else - BCol := Column.Index; - GetEditText(BCol, Row); - - R := CellRect(BCol, Row); - DrawCell(BCol, Row, R, [{gdSelected, gdFocused}]); - end - else - if (eoShowLookup in ExOptions) and - (not ReadOnly) and - (dgEditing in Options) and - (not Column.ReadOnly) and - Assigned(Column.Field) and - (not Column.Field.ReadOnly) then - begin - if (Column.Field.FieldKind = fkLookup) or - (Column.PickList.Count > 0) then - begin {Open combobox quickly when lookup field} - keybd_event(VK_F2, 0, 0, 0); - keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0); - keybd_event(VK_MENU, 0, 0, 0); - keybd_event(VK_DOWN, 0, 0, 0); - keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); - keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0); - end - else - if (Column.ButtonStyle = cbsEllipsis) then - begin {Click quickly when ButtonStyle property is cbsEllipsis} - if not EditorMode then - EditorMode := True; - EditButtonClick; - end; - end; -end; - -function TSMDBGrid.GetSortImageWidth: Integer; -begin - Result := Max(GetGridBitmap(gpSortAsc).Width, GetGridBitmap(gpSortDesc).Width); -end; - -function TSMDBGrid.CellRectForDraw(R: TRect; ACol: Longint): TRect; -var i, j: Integer; -begin - Result := R; - - j := GetSortImageWidth; - if (Result.Right-Result.Left > j+4) then - begin - for i := 0 to SortColumns.Count-1 do - if (SortColumns[i].FieldName = Columns[ACol].FieldName) and - (SortColumns[i].SortType <> stNone) then - break; - if (i < SortColumns.Count) then - Result.Right := Result.Right-j-4; - end; - i := 2*(GridLineWidth+1)+1; - Result.Right := Result.Right-i -end; - -function TSMDBGrid.GetGlyph: TBitmap; -begin - Result := nil; - if Assigned(FOnGetGlyph) then - FOnGetGlyph(Self, Result); -end; - -procedure TSMDBGrid.DrawCheckBox(R: TRect; AState: TCheckBoxState; al: TAlignment); -var - DrawState: Integer; - DrawRect: TRect; -begin - {draw CheckBox instead Bitmap indicator} -{ Canvas.Brush.Color := FixedColor; - Canvas.Font.Name := 'Symbol'; - Canvas.Font.Color := clWindowText; - Canvas.Font.Style := [fsBold]; - WriteTitleText(Canvas, FixRect, 0, 0, '', taCenter); -} - - case AState of - cbChecked: DrawState := DFCS_BUTTONCHECK or DFCS_CHECKED; - cbUnchecked: DrawState := DFCS_BUTTONCHECK; - else // cbGrayed - DrawState := DFCS_BUTTON3STATE or DFCS_CHECKED; - end; - case al of - taRightJustify: begin - DrawRect.Left := R.Right - FCheckWidth; - DrawRect.Right := R.Right; - end; - taCenter: begin - DrawRect.Left := R.Left + (R.Right - R.Left - FCheckWidth) div 2; - DrawRect.Right := DrawRect.Left + FCheckWidth; - end; - else // taLeftJustify - DrawRect.Left := R.Left; - DrawRect.Right := DrawRect.Left + FCheckWidth; - end; - DrawRect.Top := R.Top + (R.Bottom - R.Top - FCheckWidth) div 2; - DrawRect.Bottom := DrawRect.Top + FCheckHeight; - - DrawFrameControl(Canvas.Handle, DrawRect, DFC_BUTTON, DrawState); -end; - -procedure TSMDBGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); -var - TitleText: string; - i, j, idxSort, BCol: LongInt; - CheckState: TCheckBoxState; - - Down: Boolean; - SavePen, BackColor: TColor; - AField: TField; - OldActive: Longint; - FrameOffs: Byte; -// Indicator: Integer; -// MultiSelected: Boolean; - BRect, FixRect: TRect; - DrawColumn: TColumn; - bmp: TBitmap; -const - EdgeFlag: array[Boolean] of UINT = (BDR_RAISEDINNER, BDR_SUNKENINNER); - -begin - if (dgIndicator in Options) then - BCol := ACol - 1 - else - BCol := ACol; - - if (gdFixed in AState) and (ARow = 0) and (dgTitles in Options) and - ((ACol <> 0) or ((ACol = 0) and (dgIndicator in Options) and (eoStandardPopup in FExOptions))) then - begin - // draw border - if DefaultDrawing then - begin - if (ACol = 0) and (dgIndicator in Options) then - begin - Down := False; - Canvas.Brush.Color := FixedColor - end - else - begin - Down := (eoSelectedTitle in FExOptions) and (BCol = SelectedIndex); - if Assigned(Columns[BCol]) then - Canvas.Brush.Color := Columns[BCol].Title.Color; - end; - DrawEdge(Canvas.Handle, ARect, EdgeFlag[Down], BF_BOTTOMLEFT); - DrawEdge(Canvas.Handle, ARect, EdgeFlag[Down], BF_TOPRIGHT); - - InflateRect(ARect, -1, -1); - Canvas.FillRect(ARect); - end; - - j := GetSortImageWidth; - if (ACol = 0) and - (dgIndicator in Options) and - (eoStandardPopup in FExOptions) then - begin - Canvas.Brush.Color := clBlack; - i := (ARect.Bottom - ARect.Top - 7) div 2; - idxSort := (ARect.Right - ARect.Left - 7) div 2; - Canvas.Polygon([Point(ARect.Left + idxSort, ARect.Top + i), - Point(ARect.Left + idxSort + 7, ARect.Top + i), - Point(ARect.Left + idxSort + (7 div 2), ARect.Bottom - i)]); - end - else - if Assigned(Columns[BCol]) then - begin - TitleText := Columns[BCol].Title.Caption; - - {draw a column sorted image} - //look: whether there is a sorting according this column - idxSort := -1; - if (ARect.Right-ARect.Left > j) then - begin - for i := 0 to SortColumns.Count-1 do - if (SortColumns[i].FieldName = Columns[BCol].FieldName) and - (SortColumns[i].SortType <> stNone) then - begin - idxSort := i; - break - end; - if idxSort > -1 then - ARect.Right := ARect.Right-j; - end; - - //draw title.caption - if DefaultDrawing and (TitleText <> '') then - begin - Canvas.Brush.Style := bsClear; - Canvas.Font := Columns[BCol].Title.Font; - Canvas.Brush.Color := Columns[BCol].Title.Color; - WriteTitleText(Canvas, ARect, 2, 2, TitleText, Columns[BCol].Title.Alignment); - - if idxSort > -1 then - begin - ARect.Right := ARect.Right+j; - - i := (ARect.Bottom - ARect.Top - j) div 2; - if (SortColumns[idxSort].SortType = stAscending) then - begin - Bmp := GetGridBitmap(gpSortAsc); -{ Canvas.Pen.Color := clBtnShadow; - Canvas.MoveTo(ARect.Right - 4, ARect.Top + i); - Canvas.LineTo(ARect.Right - 4 - j, ARect.Top + i); - Canvas.LineTo(ARect.Right - 4 - (j div 2), ARect.Bottom - i); - - Canvas.Pen.Color := clBtnHighlight; - Canvas.LineTo(ARect.Right - 4, ARect.Top + i); -} - end - else - begin - Bmp := GetGridBitmap(gpSortDesc); -{ Canvas.Pen.Color := clBtnHighlight; - Canvas.MoveTo(ARect.Right - 4 - (j div 2), ARect.Top + i); - Canvas.LineTo(ARect.Right - 4, ARect.Bottom - i); - Canvas.LineTo(ARect.Right - 4 - j, ARect.Bottom - i); - - Canvas.Pen.Color := clBtnShadow; - Canvas.LineTo(ARect.Right - 4 - (j div 2), ARect.Top + i); -} - end; - BRect := Bounds(ARect.Right - 4 - j, ARect.Top+i, j, j); - Canvas.FillRect(BRect); - DrawBitmapTransparent(Canvas, (BRect.Left + BRect.Right - Bmp.Width) div 2, - (BRect.Top + BRect.Bottom - Bmp.Height) div 2, Bmp, clSilver); - - if (SortColumns[idxSort].SortCaption <> '') then - begin - BRect.Right := ARect.Right - 4; - BRect.Left := BRect.Right - j; - BRect.Top := ARect.Top + i; - BRect.Bottom := ARect.Bottom; - with Canvas.Font do - begin - Name := 'Small Fonts'; - Size := 5; - Style := []; - end; - Canvas.Brush.Style := bsClear; - DrawText(Canvas.Handle, - PChar(SortColumns[idxSort].SortCaption), - Length(SortColumns[idxSort].SortCaption), - BRect, - DT_EXPANDTABS or DT_CENTER or DT_VCENTER or DT_NOPREFIX); - end; - end; - end - end; - - if Assigned(FOnDrawColumnTitle) then - FOnDrawColumnTitle(Self, ARect, ACol, Columns[BCol], AState); - end - else - begin - if ((ACol > 0) or (not (dgIndicator in Options) and (ACol = 0))) and DefaultDrawing and - (eoBooleanAsCheckBox in FExOptions) and - (Datalink <> nil) and - Datalink.Active and - Assigned(Columns[BCol]) and - Assigned(Columns[BCol].Field) and - (Columns[BCol].Field.DataType = ftBoolean) and - (((ARow > 0) and (dgTitles in Options)) or (not (dgTitles in Options))) then - begin - DrawColumn := Columns[BCol]; - - if Assigned(DrawColumn.Field) then - TitleText := DrawColumn.Field.DisplayText - else - TitleText := ''; - if (BCol <= FixedCols) and (FixedCols > 0) then - Canvas.Brush.Color := FixedColor - else - if HighlightCell(ACol, ARow, TitleText, AState) then - Canvas.Brush.Color := clHighlight - else - Canvas.Brush.Color := DrawColumn.Color; - Canvas.FillRect(ARect); - InflateRect(ARect, -2, -2); - - OldActive := DataLink.ActiveRecord; - CheckState := cbUnChecked; - try - DataLink.ActiveRecord := ARow - TitleOffset; - - try - if DrawColumn.Field.IsNull then - CheckState := cbUnChecked - else - if DrawColumn.Field.Value then - CheckState := cbChecked -// TCheckBoxState(DrawColumn.Field.Value); - except - end - finally - DataLink.ActiveRecord := OldActive; - end; - - DrawCheckBox(ARect, CheckState, taCenter); - InflateRect(ARect, 2, 2); - end - else - begin - if (eoFixedLikeColumn in ExOptions) and - (ACol > 0) and - (ACol <= FixedCols) then - AState := AState - [gdFixed]; - inherited DrawCell(ACol, ARow, ARect, AState) - end; - end; - - if (dgIndicator in Options) and (ACol = 0) and (ARow - TitleOffset >= 0) and - (dgMultiSelect in Options) and (DataLink <> nil) and DataLink.Active {and - (Datalink.DataSet.State = dsBrowse) }then - begin - { draw multiselect indicators if needed } - FixRect := ARect; - if ([dgRowLines, dgColLines] * Options = [dgRowLines, dgColLines]) then - begin - InflateRect(FixRect, -1, -1); - FrameOffs := 1; - end - else - FrameOffs := 2; - CheckState := cbUnChecked; - OldActive := DataLink.ActiveRecord; - try - Datalink.ActiveRecord := ARow - TitleOffset; -// MultiSelected := ActiveRowSelected; - if ActiveRowSelected then - CheckState := cbChecked; - - Bmp := GetGlyph; - finally - Datalink.ActiveRecord := OldActive; - end; - - if (eoCheckBoxSelect in ExOptions) then - begin - BRect := FixRect; - BRect.Right := BRect.Right - 2*FrameOffs - FMsIndicators.Width; - DrawCheckBox(BRect, CheckState, taRightJustify); - end; - -{ if MultiSelected then - begin - if (ARow - TitleOffset <> Datalink.ActiveRecord) then - Indicator := 0 - else //multiselected and current row - Indicator := 1; - - FMsIndicators.BkColor := FixedColor; - FMsIndicators.Draw(Self.Canvas, FixRect.Right - FMsIndicators.Width - - FrameOffs, (FixRect.Top + FixRect.Bottom - FMsIndicators.Height) - shr 1, Indicator); - end; -} - if (Bmp <> nil) then - begin - BRect.Left := FixRect.Left + FrameOffs; - BRect.Top := FixRect.Top + FrameOffs; - if (bmp.Width < FixRect.Right - FixRect.Left) then - BRect.Right := BRect.Left + bmp.Width - else - if (eoCheckBoxSelect in ExOptions) then - BRect.Right := FixRect.Right - FCheckWidth - FrameOffs - else - BRect.Right := FixRect.Right - FMsIndicators.Width - FrameOffs; - BRect.Bottom := FixRect.Bottom - FrameOffs; - Canvas.StretchDraw(BRect, bmp); - end; - end; - if (eoTitleButtons in ExOptions) and - not (csLoading in ComponentState) and - (gdFixed in AState) and - (dgTitles in Options) and (ARow = 0) then - begin - SavePen := Canvas.Pen.Color; - try - Down := (FPressedCol = ACol) and FPressed; - Canvas.Pen.Color := clWindowFrame; - if not (dgColLines in Options) then - begin - Canvas.MoveTo(ARect.Right - 1, ARect.Top); - Canvas.LineTo(ARect.Right - 1, ARect.Bottom); - Dec(ARect.Right); - end; - if not (dgRowLines in Options) then - begin - Canvas.MoveTo(ARect.Left, ARect.Bottom - 1); - Canvas.LineTo(ARect.Right, ARect.Bottom - 1); - Dec(ARect.Bottom); - end; - if (dgIndicator in Options) then Dec(ACol); - AField := nil; - if (DataLink <> nil) and DataLink.Active and (ACol >= 0) and - (ACol < Columns.Count) then - begin - DrawColumn := Columns[ACol]; - AField := DrawColumn.Field; - end - else - DrawColumn := nil; - - DrawEdge(Canvas.Handle, ARect, EdgeFlag[Down], BF_BOTTOMRIGHT); - DrawEdge(Canvas.Handle, ARect, EdgeFlag[Down], BF_TOPLEFT); - InflateRect(ARect, -1, -1); - if Down then - begin - Inc(ARect.Left); - Inc(ARect.Top); - end; - Canvas.Font := TitleFont; - Canvas.Brush.Color := FixedColor; - if (DrawColumn <> nil) then - begin - Canvas.Font := DrawColumn.Title.Font; - Canvas.Brush.Color := DrawColumn.Title.Color; - end; - if (AField <> nil) and Assigned(FOnGetBtnParams) then - begin - BackColor := Canvas.Brush.Color; - FOnGetBtnParams(Self, AField, Canvas.Font, BackColor, Down); - Canvas.Brush.Color := BackColor; - end; - if (DataLink = nil) or not DataLink.Active then - Canvas.FillRect(ARect) - else - if (DrawColumn <> nil) then - WriteTitleText(Canvas, ARect, 2, 2, DrawColumn.Title.Caption, Columns[BCol].Title.Alignment) - else - WriteTitleText(Canvas, ARect, 2, 2, '', taLeftJustify); - finally - Canvas.Pen.Color := SavePen; - end; - end; -end; - -procedure TSMDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer; - Column: TColumn; State: TGridDrawState); -var - i: Integer; - NewBackgrnd: TColor; - Highlight: Boolean; - Bmp: TBitmap; - Field: TField; - - {the TRect for drawing simulated combobox} - RectLookup: TRect; - W, intMidX: Integer; -begin - with RectLookup do - begin - Left := Rect.Right - (Rect.Bottom - Rect.Top)+1; - Top := Rect.Top+1; - Right := Rect.Right-1; - Bottom := Rect.Bottom-1; - end; - - Field := Column.Field; - NewBackgrnd := Canvas.Brush.Color; - Highlight := (gdSelected in State) and ((dgAlwaysShowSelection in Options) or Focused); - GetCellProps(Field, Canvas.Font, NewBackgrnd, Highlight or ActiveRowSelected); - Canvas.Brush.Color := NewBackgrnd; - if DefaultDrawing then - begin - i := GetImageIndex(Field); - if i >= 0 then - begin - Bmp := GetGridBitmap(TGridPicture(i)); - Canvas.FillRect(Rect); - DrawBitmapTransparent(Canvas, (Rect.Left + Rect.Right - Bmp.Width) div 2, - (Rect.Top + Rect.Bottom - Bmp.Height) div 2, Bmp, clOlive); - end - else - DefaultDrawColumnCell(Rect, DataCol, Column, State); - - if (eoDrawGraphicField in FExOptions) and - (Column.Field is TBlobField) and - (Column.Field.DataType = ftGraphic) then - begin - bmp := TBitmap.Create; - try - bmp.Assign(Field); - Canvas.StretchDraw(Rect, bmp); - finally - bmp.Free; - end; - end; - end; - - if Columns.State = csDefault then - inherited DrawDataCell(Rect, Field, State); - - inherited DrawColumnCell(Rect, DataCol, Column, State); - - if DefaultDrawing and Highlight and not (csDesigning in ComponentState) - and not (dgRowSelect in Options) - and (ValidParentForm(Self).ActiveControl = Self) then - Canvas.DrawFocusRect(Rect); - - - if (eoShowLookup in ExOptions) then - begin - if (Column.Field.FieldKind = fkLookup) or - (Column.PickList.Count > 0) then - begin //Drawing combobox if FieldKind is lookup - Canvas.FillRect(Rect); - DefaultDrawColumnCell(Rect, DataCol, Column, State); - {Drawing combobox-area } - DrawFrameControl(Canvas.Handle, RectLookup, DFC_SCROLL, DFCS_SCROLLCOMBOBOX); - end - else - if Column.ButtonStyle = cbsEllipsis then - begin - {Show "?" when ButtonStyle Property is cbsEllipsis } -// DrawFrameControl(Canvas.Handle, RectLookup, DFC_CAPTION, DFCS_CAPTIONHELP) - - Canvas.FillRect(RectLookup); - DrawEdge(Canvas.Handle, RectLookup, EDGE_RAISED, BF_RECT or BF_MIDDLE); - intMidX := (RectLookup.Right - RectLookup.Left) shr 1; - W := (RectLookup.Bottom - RectLookup.Top) shr 3; - if W = 0 then W := 1; - PatBlt(Canvas.Handle, RectLookup.Left + intMidX, RectLookup.Top + intMidX, W, W, BLACKNESS); - PatBlt(Canvas.Handle, RectLookup.Left + intMidX - (W * 2), RectLookup.Top + intMidX, W, W, BLACKNESS); - PatBlt(Canvas.Handle, RectLookup.Left + intMidX + (W * 2), RectLookup.Top + intMidX, W, W, BLACKNESS); - - end - else - {Draw in default except above conditions} - DefaultDrawColumnCell(Rect, DataCol, Column, State); - end; - - {draw title} -// DrawCell(SelectedIndex+1, 0, Rect, [gdFixed]); -end; - -{is transferred from TBitDBGrid: - Ilya Andreev, ilya_andreev@geocities.com - FIDONet: 2:5030/55.28 AKA 2:5030/402.17} -procedure TSMDBGrid.CMHintShow(var Msg: TMessage); -var ACol, ARow: Integer; - OldActive: Integer; -begin - if eoCellHint in FExOptions then - with PHintInfo(Msg.LParam)^ do - try - HintStr := Hint; - - Msg.Result := 1; - if not DataLink.Active then Exit; - TDrawGrid(Self).MouseToCell(CursorPos.X, CursorPos.Y, ACol, ARow); - CursorRect := CellRect(ACol, ARow); - ACol := ACol - IndicatorOffset; - if (ACol < 0) then Exit; - ARow := ARow - TitleOffset; - HintPos := ClientToScreen(CursorRect.TopLeft); - InflateRect(CursorRect, 1, 1); - if (ARow = -1) then - begin - HintStr := Columns[ACol].Title.Caption; - if Canvas.TextWidth(HintStr) < Columns[ACol].Width then Exit; - Msg.Result := 0; - Exit; - end; - if ARow < 0 then exit; - OldActive := DataLink.ActiveRecord; - DataLink.ActiveRecord := ARow; - if Columns[ACol].Field <> nil then - HintStr := Columns[ACol].Field.DisplayText; - DataLink.ActiveRecord := OldActive; - if (((CursorRect.Right - CursorRect.Left) >= Columns[ACol].Width) and - (Canvas.TextWidth(HintStr) < Columns[ACol].Width)) or - ((Canvas.TextWidth(HintStr) < (CursorRect.Right - CursorRect.Left)) and - (Columns[ACol].Alignment = taLeftJustify)) then exit; - Msg.Result := 0; - except - Msg.Result := 1; - end; -end; -{end of transfered} - -procedure TSMDBGrid.SaveLayoutToRegistry; -var RegIniFile: TRegIniFile; - i: Integer; -begin - RegIniFile := TRegIniFile.Create(FRegistryKey); - RegIniFile.WriteInteger(FRegistrySection, 'Count', Columns.Count); - for i := 0 to (Columns.Count-1) do - begin - with Columns.Items[i] do - RegIniFile.WriteString(FRegistrySection, IntToStr(i), - Format('%s,%d,%s', [FieldName, Width, Title.Caption])); - end; - RegIniFile.Free; -end; - -procedure TSMDBGrid.RestoreLayoutFromRegistry; - - function GetValueFromKey(var strValues: string): string; - var j: Integer; - begin - j := Pos(',', strValues); - Result := Copy(strValues, 1, j-1); - Delete(strValues, 1, j); - end; - -var RegIniFile: TRegIniFile; - i, Count: Integer; - s: string; -begin -{ disable DBGrid-repaint while not will executed EndLayout - Because I donn't want to repaint of the grid after each - addition and after Columns.Clear } - BeginLayout; - - RegIniFile := TRegIniFile.Create(FRegistryKey); - Count := RegIniFile.ReadInteger(FRegistrySection, 'Count', 0); - if (Count > 0) then - begin - Columns.Clear; - for i := 0 to (Count-1) do - begin - S := RegIniFile.ReadString(FRegistrySection, IntToStr(i), ''); - if (S <> '') then - begin - with Columns.Add do - begin - FieldName := GetValueFromKey(S); - Width := StrToIntDef(GetValueFromKey(S), 64); - Title.Caption := S; - end; - end; - end; - end; - - RegIniFile.Free; - EndLayout; -end; - -initialization -finalization - DestroyLocals; - -end. diff --git a/components/smdbgrid/source/locale/BRA/FILE_ID.DIZ b/components/smdbgrid/source/locale/BRA/FILE_ID.DIZ deleted file mode 100644 index c611d04d..00000000 --- a/components/smdbgrid/source/locale/BRA/FILE_ID.DIZ +++ /dev/null @@ -1,17 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Brazilian Portuguese resource strings -translated by Rodrigo Hjort, rodrigo_hjort@excite.com - diff --git a/components/smdbgrid/source/locale/BRA/SMCnst.pas b/components/smdbgrid/source/locale/BRA/SMCnst.pas deleted file mode 100644 index 4ba27690..00000000 --- a/components/smdbgrid/source/locale/BRA/SMCnst.pas +++ /dev/null @@ -1,153 +0,0 @@ -unit SMCnst; - -interface - - -{Brazilian Portuguese strings} -{translated by Rodrigo Hjort, rodrigo_hjort@excite.com} -const - strMessage = 'Imprimir...'; - strSaveChanges = 'Deseja realmente salvar alteraes no Servidor de Banco de Dados?'; - strErrSaveChanges = 'No foi possvel salvar um dado! Verifique a conexo com o Servidor ou validao de dados.'; - strDeleteWarning = 'Deseja realmente excluir a tabela %s?'; - strEmptyWarning = 'Deseja realmente esvaziar a tabela %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Incluir registro', - 'Insert registro', - 'Alterar registro', - 'Excluir registro', - '-', - 'Imprimir ...', - 'Exportar ...', - '-', - 'Salvar alteraes', - 'Cancelar alteraes', - 'Atualizar', - '-', - 'Selecionar/Desselecionar registros', - 'Selecionar registro', - 'Selecionar todos registros', - '-', - 'Desselecionar registro', - 'Desselecionar todos registros', - '-', - 'Salvar layout da coluna', - 'Abrir layout da coluna', - '-', - 'Configurar...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Title '; - SgbData = ' Data '; - STitleCaption = 'Caption:'; - STitleAlignment = 'Alignment:'; - STitleColor = 'Color:'; - STitleFont = 'Font:'; - SWidth = 'Width:'; - SWidthFix = 'characters'; - SAlignLeft = 'left'; - SAlignRight = 'right'; - SAlignCenter = 'center'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'Primeiro registro'; - SPriorRecord = 'Registro anterior'; - SNextRecord = 'Prximo registro'; - SLastRecord = 'ltimo registro'; - SInsertRecord = 'Inserir registro'; - SCopyRecord = 'Copiar registro'; - SDeleteRecord = 'Excluir registro'; - SEditRecord = 'Alterar registro'; - SFilterRecord = 'Condies de filtragem'; - SFindRecord = 'Localizar registro'; - SPrintRecord = 'Imprimir registros'; - SExportRecord = 'Exportar registros'; - SPostEdit = 'Salvar alteraes'; - SCancelEdit = 'Cancelar alteraes'; - SRefreshRecord = 'Atualizar dados'; - SChoice = 'Escolher registro'; - SClear = 'Limpar escolha de registro'; - SDeleteRecordQuestion = 'Excluir registro?'; - SDeleteMultipleRecordsQuestion = 'Deseja realmente excluir registros selecionados?'; - SRecordNotFound = 'Registro no encontrado'; - - SFirstName = 'Primeiro'; - SPriorName = 'Anterior'; - SNextName = 'Prximo'; - SLastName = 'ltimo'; - SInsertName = 'Inserir'; - SCopyName = 'Copiar'; - SDeleteName = 'Excluir'; - SEditName = 'Alterar'; - SFilterName = 'Filtrar'; - SFindName = 'Localizar'; - SPrintName = 'Imprimir'; - SExportName = 'Exportar'; - SPostName = 'Salvar'; - SCancelName = 'Cancelar'; - SRefreshName = 'Atualizar'; - SChoiceName = 'Escolher'; - SClearName = 'Limpar'; - - SBtnOk = '&OK'; - SBtnCancel = '&Cancelar'; - SBtnLoad = 'Load'; - SBtnSave = 'Save'; - SBtnCopy = 'Copy'; - SBtnPaste = 'Paste'; - SBtnClear = 'Clear'; - - SRecNo = '#'; - SRecOf = ' of '; - -const //for EditTyped - etValidNumber = 'nmero vlido'; - etValidInteger = 'nmero inteiro vlido'; - etValidDateTime = 'data/hora vlida'; - etValidDate = 'data vlida'; - etValidTime = 'hora vlida'; - etValid = 'vlido'; - etIsNot = 'no um'; - etOutOfRange = 'Valor %s est fora dos limites %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/CZK/FILE_ID.DIZ b/components/smdbgrid/source/locale/CZK/FILE_ID.DIZ deleted file mode 100644 index 306b5812..00000000 --- a/components/smdbgrid/source/locale/CZK/FILE_ID.DIZ +++ /dev/null @@ -1,17 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Czech resource strings -translated by Pavel ZIDEK, delphi@kopr.cz - diff --git a/components/smdbgrid/source/locale/CZK/SMCnst.pas b/components/smdbgrid/source/locale/CZK/SMCnst.pas deleted file mode 100644 index 067c27e5..00000000 --- a/components/smdbgrid/source/locale/CZK/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{English strings} -const - strMessage = 'Tisk...'; - strSaveChanges = 'Chcete zapsat zmny do Databzovho Serveru?'; - strErrSaveChanges = 'Nelze provst zpis. Zkontrolujte platnost dat nebo konektivitu se Serverem.'; - strDeleteWarning = 'Chcete doopravdy vymazat tabulku %s?'; - strEmptyWarning = 'Chcete doopravdy vyprznit tabulku %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Nov zznam', - 'Vloit zznam', - 'Oprava zznamu', - 'Vymazat zznam', - '-', - 'Tisk ...', - 'Export ...', - '-', - 'Uloit zmny', - 'Vrtit zmny', - 'Obnovit', - '-', - 'Oznait/Odznait zznamy', - 'Oznait zznam', - 'Oznait vechny zznamy', - '-', - 'Odznait zznam', - 'Odznait vechny zznamy', - '-', - 'Uloit strukturu sloupc', - 'Nast strukturu sloupc', - '-', - 'Nastaven...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Titulek '; - SgbData = ' Data '; - STitleCaption = 'Nadpis:'; - STitleAlignment = 'Zarovnn:'; - STitleColor = 'Pozad:'; - STitleFont = 'Psmo:'; - SWidth = 'rka:'; - SWidthFix = 'znaky'; - SAlignLeft = 'vlevo'; - SAlignRight = 'vpravo'; - SAlignCenter = 'na sted'; - -const //for TSMDBFilterDialog - strEqual = 'rovn sa'; - strNonEqual = 'nerovn sa'; - strNonMore = 'je men nebo se rovn'; - strNonLess = 'je vt nebo se rovn'; - strLessThan = 'je men'; - strLargeThan = 'je vt'; - strExist = 'przdny'; - strNonExist = 'neprzdny'; - strIn = 'nachz se v'; - strBetween = 'je v rozsahu'; - - strOR = 'nebo'; - strAND = 'a souastn'; - - strField = 'Poloka'; - strCondition = 'Podmnka'; - strValue = 'Hodnota'; - - strAddCondition = ' Definice dodaten podmnky: '; - strSelection = ' Seznam zznam pro nsledn podmnky:'; - - strAddToList = 'Pidat do seznamu'; - strDeleteFromList = 'Odstranit ze seznamu'; - - strTemplate = 'Filtr vzorovho dialogu'; - strFLoadFrom = 'st z...'; // New constatns - strFSaveAs = 'Uloit jako..'; - strFDescription = 'Popis'; - strFFileName = 'Nzev'; - strFCreate = 'Vytvoen : %s'; - strFModify = 'Upraven : %s'; - strFProtect = 'Zamezit pepsn'; - strFProtectErr = 'Soubor nelze pepsat !'; - -const //for SMDBNavigator - SFirstRecord = 'Prvn zznam'; - SPriorRecord = 'Pedchoz zznam'; - SNextRecord = 'Dal zznam'; - SLastRecord = 'Posledn zznam'; - SInsertRecord = 'Pidat zznam'; - SCopyRecord = 'Koprovat zznam'; - SDeleteRecord = 'Vymazat zznam'; - SEditRecord = 'Upravit zznam'; - SFilterRecord = 'Filtrovac podmnka'; - SFindRecord = 'Hledn v zznamech'; - SPrintRecord = 'Tist zznam'; - SExportRecord = 'Export zznam'; - SPostEdit = 'Uloen zmn'; - SCancelEdit = 'Ukonen zmn'; - SRefreshRecord = 'Obnovit data'; - SChoice = 'Vyberte si zznam'; - SClear = 'Ostrauj vybran zznamy'; - SDeleteRecordQuestion = 'Vymazat zznam?'; - SDeleteMultipleRecordsQuestion = 'Skuten chcete vymazat vybran zznamy?'; - SRecordNotFound = 'Zznam nenalezen'; - - SFirstName = 'Prvn'; - SPriorName = 'Pedchoz'; - SNextName = 'Dal'; - SLastName = 'Posledn'; - SInsertName = 'Pidat'; - SCopyName = 'Koprovat'; - SDeleteName = 'Vymazat'; - SEditName = 'Upravit'; - SFilterName = 'Filt'; - SFindName = 'Hledn'; - SPrintName = 'Tlisk'; - SExportName = 'Export'; - SPostName = 'Uloit'; - SCancelName = 'Storno'; - SRefreshName = 'Obnovit'; - SChoiceName = 'Volba'; - SClearName = 'Odstranit'; - - SBtnOk = '&OK'; - SBtnCancel = '&Storno'; - SBtnLoad = 'st'; - SBtnSave = 'Uloit'; - SBtnCopy = 'Koprovat'; - SBtnPaste = 'Pidat'; - SBtnClear = 'Odstranit'; - - SRecNo = 'zz.'; - SRecOf = ' z '; - -const //for EditTyped - etValidNumber = 'platn slo'; - etValidInteger = 'platn num.hodnota'; - etValidDateTime = 'platn datum/as'; - etValidDate = 'platn datum'; - etValidTime = 'platn as'; - etValid = 'platn'; - etIsNot = 'Nen'; - etOutOfRange = 'Hodnota %s je mimo rozsahu %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/DAN/FILE_ID.DIZ b/components/smdbgrid/source/locale/DAN/FILE_ID.DIZ deleted file mode 100644 index 2f368f65..00000000 --- a/components/smdbgrid/source/locale/DAN/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Danish resource strings -translated by Martin Egeskov Pedersen, egeskov@get2net.dk diff --git a/components/smdbgrid/source/locale/DAN/SMCnst.pas b/components/smdbgrid/source/locale/DAN/SMCnst.pas deleted file mode 100644 index 8f28cf67..00000000 --- a/components/smdbgrid/source/locale/DAN/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{Danish strings} -const - strMessage = 'Print...'; - strSaveChanges = 'Do you really want to save a changes on the Database Server?'; - strErrSaveChanges = 'Can''t save a data! Check a Server connection or data validation.'; - strDeleteWarning = 'Do you really want to delete a table %s?'; - strEmptyWarning = 'Do you really want to empty a table %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Add record', - 'Insert record', - 'Edit record', - 'Delete record', - '-', - 'Print ...', - 'Export ...', - '-', - 'Save changes', - 'Discard changes', - 'Refresh', - '-', - 'Select/Unselect records', - 'Select record', - 'Select All records', - '-', - 'UnSelect record', - 'UnSelect All records', - '-', - 'Save column layout', - 'Restore column layout', - '-', - 'Setup...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Title '; - SgbData = ' Data '; - STitleCaption = 'Caption:'; - STitleAlignment = 'Alignment:'; - STitleColor = 'Background:'; - STitleFont = 'Font:'; - SWidth = 'Width:'; - SWidthFix = 'characters'; - SAlignLeft = 'left'; - SAlignRight = 'right'; - SAlignCenter = 'center'; - -const //for TSMDBFilterDialog - strEqual = 'lig med'; - strNonEqual = 'ikke lig med'; - strNonMore = 'hojest'; - strNonLess = 'mindst'; - strLessThan = 'mindre end'; - strLargeThan = 'storre end'; - strExist = 'tom'; - strNonExist = 'ikke tom'; - strIn = 'indeholdt i listen'; - strBetween = 'i mellem'; - - strOR = 'ELLER'; - strAND = 'OG'; - - strField = 'Felt'; - strCondition = 'Betingelse'; - strValue = 'V?rdi'; - - strAddCondition = ' Definer flere konstanter:'; - strSelection = ' Udv?lg poster efter folgende betingelser:'; - - strAddToList = 'Tilfoj til listen'; - strDeleteFromList = 'Slet fra listen'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'First record'; - SPriorRecord = 'Prev record'; - SNextRecord = 'Next record'; - SLastRecord = 'Last record'; - SInsertRecord = 'Insert record'; - SCopyRecord = 'Copy record'; - SDeleteRecord = 'Delete record'; - SEditRecord = 'Edit record'; - SFilterRecord = 'Filter conditions'; - SFindRecord = 'Search of the record'; - SPrintRecord = 'Print of the records'; - SExportRecord = 'Export of the records'; - SPostEdit = 'Save changes'; - SCancelEdit = 'Cancel changes'; - SRefreshRecord = 'Refresh data'; - SChoice = 'Choose a record'; - SClear = 'Clear a record choose'; - SDeleteRecordQuestion = 'Delete a record?'; - SDeleteMultipleRecordsQuestion = 'Do you really want to delete a selected records?'; - SRecordNotFound = 'Record not found'; - - SFirstName = 'First'; - SPriorName = 'Prev'; - SNextName = 'Next'; - SLastName = 'Last'; - SInsertName = 'Insert'; - SCopyName = 'Copy'; - SDeleteName = 'Delete'; - SEditName = 'Edit'; - SFilterName = 'Filter'; - SFindName = 'Find'; - SPrintName = 'Print'; - SExportName = 'Export'; - SPostName = 'Save'; - SCancelName = 'Cancel'; - SRefreshName = 'Refresh'; - SChoiceName = 'Choose'; - SClearName = 'Clear'; - - SBtnOk = '&OK'; - SBtnCancel = '&Cancel'; - SBtnLoad = 'Load'; - SBtnSave = 'Save'; - SBtnCopy = 'Copy'; - SBtnPaste = 'Paste'; - SBtnClear = 'Clear'; - - SRecNo = 'rec.'; - SRecOf = ' of '; - -const //for EditTyped - etValidNumber = 'valid number'; - etValidInteger = 'valid integer number'; - etValidDateTime = 'valid date/time'; - etValidDate = 'valid date'; - etValidTime = 'valid time'; - etValid = 'valid'; - etIsNot = 'is not a'; - etOutOfRange = 'Value %s out of range %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/ENG/FILE_ID.DIZ b/components/smdbgrid/source/locale/ENG/FILE_ID.DIZ deleted file mode 100644 index 15332120..00000000 --- a/components/smdbgrid/source/locale/ENG/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -English resource strings - diff --git a/components/smdbgrid/source/locale/ENG/SMCnst.pas b/components/smdbgrid/source/locale/ENG/SMCnst.pas deleted file mode 100644 index 88927012..00000000 --- a/components/smdbgrid/source/locale/ENG/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{English strings} -const - strMessage = 'Print...'; - strSaveChanges = 'Do you really want to save a changes on the Database Server?'; - strErrSaveChanges = 'Can''t save a data! Check a Server connection or data validation.'; - strDeleteWarning = 'Do you really want to delete a table %s?'; - strEmptyWarning = 'Do you really want to empty a table %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Add record', - 'Insert record', - 'Edit record', - 'Delete record', - '-', - 'Print ...', - 'Export ...', - '-', - 'Save changes', - 'Discard changes', - 'Refresh', - '-', - 'Select/Unselect records', - 'Select record', - 'Select All records', - '-', - 'UnSelect record', - 'UnSelect All records', - '-', - 'Save column layout', - 'Restore column layout', - '-', - 'Setup...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Title '; - SgbData = ' Data '; - STitleCaption = 'Caption:'; - STitleAlignment = 'Alignment:'; - STitleColor = 'Background:'; - STitleFont = 'Font:'; - SWidth = 'Width:'; - SWidthFix = 'characters'; - SAlignLeft = 'left'; - SAlignRight = 'right'; - SAlignCenter = 'center'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'First record'; - SPriorRecord = 'Prev record'; - SNextRecord = 'Next record'; - SLastRecord = 'Last record'; - SInsertRecord = 'Insert record'; - SCopyRecord = 'Copy record'; - SDeleteRecord = 'Delete record'; - SEditRecord = 'Edit record'; - SFilterRecord = 'Filter conditions'; - SFindRecord = 'Search of the record'; - SPrintRecord = 'Print of the records'; - SExportRecord = 'Export of the records'; - SPostEdit = 'Save changes'; - SCancelEdit = 'Cancel changes'; - SRefreshRecord = 'Refresh data'; - SChoice = 'Choose a record'; - SClear = 'Clear a record choose'; - SDeleteRecordQuestion = 'Delete a record?'; - SDeleteMultipleRecordsQuestion = 'Do you really want to delete a selected records?'; - SRecordNotFound = 'Record not found'; - - SFirstName = 'First'; - SPriorName = 'Prev'; - SNextName = 'Next'; - SLastName = 'Last'; - SInsertName = 'Insert'; - SCopyName = 'Copy'; - SDeleteName = 'Delete'; - SEditName = 'Edit'; - SFilterName = 'Filter'; - SFindName = 'Find'; - SPrintName = 'Print'; - SExportName = 'Export'; - SPostName = 'Save'; - SCancelName = 'Cancel'; - SRefreshName = 'Refresh'; - SChoiceName = 'Choose'; - SClearName = 'Clear'; - - SBtnOk = '&OK'; - SBtnCancel = '&Cancel'; - SBtnLoad = 'Load'; - SBtnSave = 'Save'; - SBtnCopy = 'Copy'; - SBtnPaste = 'Paste'; - SBtnClear = 'Clear'; - - SRecNo = 'rec.'; - SRecOf = ' of '; - -const //for EditTyped - etValidNumber = 'valid number'; - etValidInteger = 'valid integer number'; - etValidDateTime = 'valid date/time'; - etValidDate = 'valid date'; - etValidTime = 'valid time'; - etValid = 'valid'; - etIsNot = 'is not a'; - etOutOfRange = 'Value %s out of range %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/FRA/FILE_ID.DIZ b/components/smdbgrid/source/locale/FRA/FILE_ID.DIZ deleted file mode 100644 index 7798ddec..00000000 --- a/components/smdbgrid/source/locale/FRA/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -French resource strings -translated by Remy CONSTANT, walloon@euronet.be diff --git a/components/smdbgrid/source/locale/FRA/SMCnst.pas b/components/smdbgrid/source/locale/FRA/SMCnst.pas deleted file mode 100644 index 7ed4c5e2..00000000 --- a/components/smdbgrid/source/locale/FRA/SMCnst.pas +++ /dev/null @@ -1,152 +0,0 @@ -unit SMCnst; - -interface - -{French strings} -{translated by Remy, walloon@euronet.be} -const - strMessage = 'Imprimer...'; - strSaveChanges = 'Voulez-vous enregistrer les modifications sur le serveur de donnes?'; - strErrSaveChanges = 'Sauvegarde impossible! Vrifiez la connection au serveur ou les rgles de validation.'; - strDeleteWarning = 'Voulez-vous effacer le fichier %s?'; - strEmptyWarning = 'Voulez-vous vider la table %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Ajouter fiche', - 'Ajouter une fiche', - 'Modifier fiche', - 'Effacer fiche', - '-', - 'Imprimer ...', - 'Exporter ...', - '-', - 'Sauver les changements', - 'Annuler les changements', - 'Rafrachir les donnes', - '-', - 'Slect./Dslect. fiche', - 'Slect. fiche actuelle', - 'Slect. toutes les fiches', - '-', - 'Dslect. fiche actuelle', - 'Dslect. toutes les fiches', - '-', - 'Sauve layout des col.', - 'Rcharge layout des col.', - '-', - 'Configuration...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Titre '; - SgbData = ' Donnee '; - STitleCaption = 'Libelle:'; - STitleAlignment = 'Alignement:'; - STitleColor = 'Fond:'; - STitleFont = 'Police:'; - SWidth = 'Largeur:'; - SWidthFix = 'caracteres'; - SAlignLeft = 'a gauche'; - SAlignRight = 'a droite'; - SAlignCenter = 'au centre'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'Premire fiche'; - SPriorRecord = 'Fiche prcdente'; - SNextRecord = 'Fiche suivante'; - SLastRecord = 'Dernire fiche'; - SInsertRecord = 'Ajouter une fiche'; - SCopyRecord = 'Copier la fiche'; - SDeleteRecord = 'Effacer la fiche'; - SEditRecord = 'Editer la fiche'; - SFilterRecord = 'Conditions de filtre'; - SFindRecord = 'Chercher une fiche'; - SPrintRecord = 'Impression des fiches'; - SExportRecord = 'Exportation des fiches'; - SPostEdit = 'Sauver les changements'; - SCancelEdit = 'Annuler les changements'; - SRefreshRecord = 'Rafrachir les donnes'; - SChoice = 'Choisir une fiche'; - SClear = 'Effacer la slection des fiches'; - SDeleteRecordQuestion = 'Effacer une fiche?'; - SDeleteMultipleRecordsQuestion = 'Voulez-vous effacer les fiches choisies?'; - SRecordNotFound = 'Fiche introuvable'; - - SFirstName = 'Premier'; - SPriorName = 'Prcdent'; - SNextName = 'Suivant'; - SLastName = 'Dernier'; - SInsertName = 'Ajouter'; - SCopyName = 'Copier'; - SDeleteName = 'Dtruire'; - SEditName = 'Editer'; - SFilterName = 'Filtrer'; - SFindName = 'Touver'; - SPrintName = 'Imprimer'; - SExportName = 'Exporter'; - SPostName = 'Sauver'; - SCancelName = 'Annuler'; - SRefreshName= 'Rafrachir'; - SChoiceName = 'Choisir'; - SClearName = 'Effacer'; - - SBtnOk = '&OK'; - SBtnCancel = '&Annuler'; - SBtnLoad = 'Charger'; - SBtnSave = 'Sauver'; - SBtnCopy = 'Copier'; - SBtnPaste = 'Coller'; - SBtnClear = 'Effacer'; - - SRecNo = 'enreg.'; - SRecOf = ' de '; - -const //for EditTyped - etValidNumber = 'nombre valable'; - etValidInteger = 'nombre entier valable'; - etValidDateTime = 'date/heure valable'; - etValidDate = 'date valable'; - etValidTime = 'heure valable'; - etValid = 'valable'; - etIsNot = 'n''est pas un'; - etOutOfRange = 'Valeur %s n''est pas dans les bornes %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/GER/FILE_ID.DIZ b/components/smdbgrid/source/locale/GER/FILE_ID.DIZ deleted file mode 100644 index c1dc95ca..00000000 --- a/components/smdbgrid/source/locale/GER/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1996-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -German resource strings -translated by Thomas Grimm, tgrimm@allegro-itc.de diff --git a/components/smdbgrid/source/locale/GER/SMCnst.pas b/components/smdbgrid/source/locale/GER/SMCnst.pas deleted file mode 100644 index eb0b6e3e..00000000 --- a/components/smdbgrid/source/locale/GER/SMCnst.pas +++ /dev/null @@ -1,152 +0,0 @@ -unit SMCnst; - -interface - -{German strings} -{translated by Thomas Grimm, tgrimm@allegro-itc.de} -const - strMessage = 'Drucke...'; - strSaveChanges = 'Sollen die nderungen auf dem Server gespeichert werden?'; - strErrSaveChanges = 'Kann die Daten nicht speichern! Prfen Sie die Serververbindung oder die Gltigkeit der Daten'; - strDeleteWarning = 'Soll gelscht werden, Tabelle %s?'; - strEmptyWarning = 'Soll geleert werden, Tabelle %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Datensatz einfgen', - 'Datensatz insert', - 'Datensatz bearbeiten', - 'Datensatz lschen', - '-', - 'Drucke ...', - 'Exportiere ...', - '-', - 'Speichere nderungen', - 'Verwerfe nderungen', - 'Aktualisiere', - '-', - 'Datensatz auswhlen/abwhlen', - 'Datensatz auswhlen', - 'Alle Datenstze auswhlen', - '-', - 'Datensatz abwhlen', - 'Alle Datenstze abwhlen', - '-', - 'Spaltenlayout speichern', - 'Spaltenlayout wiederherstellen', - '-', - 'Optionen...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Titel '; - SgbData = ' Daten '; - STitleCaption = 'Beschriftung:'; - STitleAlignment = 'Ausrichtung:'; - STitleColor = 'Farbe:'; - STitleFont = 'Schrift:'; - SWidth = 'Breite:'; - SWidthFix = 'Zeichen'; - SAlignLeft = 'links'; - SAlignRight = 'rechts'; - SAlignCenter = 'zentriert'; - -const //for TSMDBFilterDialog - strEqual = 'gleich'; - strNonEqual = 'ungleich'; - strNonMore = 'nicht grer'; - strNonLess = 'nicht kleiner'; - strLessThan = 'kleiner als'; - strLargeThan = 'grer als'; - strExist = 'leer'; - strNonExist = 'nicht leer'; - strIn = 'in Liste'; - strBetween = 'zwischen'; - - strOR = 'ODER'; - strAND = 'UND'; - - strField = 'Feld'; - strCondition = 'Bedingung'; - strValue = 'Wert'; - - strAddCondition = ' Weitere Bedingung eingeben:'; - strSelection = ' Auswahl der Datenstze gem der folgenden Bedingungen:'; - - strAddToList = 'Hinzufugen'; - strDeleteFromList = 'Loschen'; - - strTemplate = 'Filter-Dialog'; - strFLoadFrom = 'ffnen...'; - strFSaveAs = 'Speichern unter...'; - strFDescription = 'Beschreibung'; - strFFileName = 'Dateiname'; - strFCreate = 'Erstellt: %s'; - strFModify = 'Gendert: %s'; - strFProtect = 'Schreibgeschtzt'; - strFProtectErr = 'Datei ist schreibgeschtzt'; - -const //for SMDBNavigator - SFirstRecord = 'Erster Datensatz'; - SPriorRecord = 'Vorheriger Datensatz'; - SNextRecord = 'Nchster Datensatz'; - SLastRecord = 'Letzter Datensatz'; - SInsertRecord = 'Datensatz einfgen'; - SCopyRecord = 'Datensatz kopieren'; - SDeleteRecord = 'Datensatz lschen'; - SEditRecord = 'Datensatz bearbeiten'; - SFilterRecord = 'Filterbedingungen'; - SFindRecord = 'Gefundene Datenstze'; - SPrintRecord = 'Gedruckte Datenstze'; - SExportRecord = 'Exportierte Datenstze'; - SPostEdit = 'Speichere nderungen'; - SCancelEdit = 'Verwerfe nderungen'; - SRefreshRecord = 'Aktualisiere Daten'; - SChoice = 'Datensatz auswhlen'; - SClear = 'Auswahl lschen'; - SDeleteRecordQuestion = 'Datensatz lschen?'; - SDeleteMultipleRecordsQuestion = 'Sollen die ausgewhlten Datenstze gelscht werden?'; - SRecordNotFound = 'Datensatz nicht gefunden'; - - SFirstName = 'Erste'; - SPriorName = 'Vorherige'; - SNextName = 'Nchste'; - SLastName = 'Letzte'; - SInsertName = 'Einfgen'; - SCopyName = 'Kopieren'; - SDeleteName = 'Lschen'; - SEditName = 'Bearbeiten'; - SFilterName = 'Filter'; - SFindName = 'Suche'; - SPrintName = 'Drucken'; - SExportName = 'Exportieren'; - SPostName = 'Speichern'; - SCancelName = 'Abbrechen'; - SRefreshName = 'Aktualisieren'; - SChoiceName = 'Auswhlen'; - SClearName = 'Lschen'; - - SBtnOk = '&OK'; - SBtnCancel = '&Abbrechen'; - SBtnLoad = 'ffnen'; - SBtnSave = 'Speichern'; - SBtnCopy = 'Kopieren'; - SBtnPaste = 'Einfgen'; - SBtnClear = 'Entfernen'; - - SRecNo = '#'; - SRecOf = ' von '; - -const //for EditTyped - etValidNumber = 'gltige Zahl'; - etValidInteger = 'gltige Ganzzahl'; - etValidDateTime = 'gltiges Datum/Zeit'; - etValidDate = 'gltiges Datum'; - etValidTime = 'gltige Zeit'; - etValid = 'gltig'; - etIsNot = 'ist kein(e)'; - etOutOfRange = 'Wert %s ist auerhalb des Bereiches %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/ITA/FILE_ID.DIZ b/components/smdbgrid/source/locale/ITA/FILE_ID.DIZ deleted file mode 100644 index f7675262..00000000 --- a/components/smdbgrid/source/locale/ITA/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Italian resource strings -translated by Giuliano Zorzi, gzorzi@misam.it diff --git a/components/smdbgrid/source/locale/ITA/SMCnst.pas b/components/smdbgrid/source/locale/ITA/SMCnst.pas deleted file mode 100644 index e0c2ddf6..00000000 --- a/components/smdbgrid/source/locale/ITA/SMCnst.pas +++ /dev/null @@ -1,154 +0,0 @@ -unit SMCnst; - -interface - -{Italian strings} -{translated by Giuliano Zorzi, gzorzi@misam.it} -const - strMessage = 'Stampa...'; - strSaveChanges = 'Salvare le modifiche sul Database Server?'; - strErrSaveChanges = 'Impeossibile salvare i dati! Controllare la -connessione al server o il metodo di verifica dei dati.'; - strDeleteWarning = 'Candellare la tabella %s?'; - strEmptyWarning = 'Svuotare la tabella %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Aggiungi record', - 'Inserisci record', - 'Insert record', - 'Modifica record', - 'Cancella record', - '-', - 'Stampa ...', - 'Esporta ...', - '-', - 'Salva modifiche', - 'Annulla modifiche', - 'Rileggi', - '-', - 'Seleziona / Deseleziona records', - 'Seleziona record', - 'Seleziona tutti i records', - '-', - 'Deseleziona record', - 'Deseleziona tutti i records', - '-', - 'Salva colonne', - 'Ripristina colonne', - '-', - 'Impostazioni...'); - -const //for TSMSetDBGridDialog - SgbTitle = 'Titolo'; - SgbData = ' Dati '; - STitleCaption = 'Intestazione:'; - STitleAlignment = 'Allineamento:'; - STitleColor = 'Sfondo:'; - STitleFont = 'Primo piano:'; - SWidth = 'Altezza:'; - SWidthFix = 'Caratteri'; - SAlignLeft = 'Sinistra'; - SAlignRight = 'Destra'; - SAlignCenter = 'Centro'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'Primo record'; - SPriorRecord = 'Record precedente'; - SNextRecord = 'Record successivo'; - SLastRecord = 'Ultimo record'; - SInsertRecord = 'Inserisci record'; - SCopyRecord = 'Copia record'; - SDeleteRecord = 'Cancella record'; - SEditRecord = 'Modifica record'; - SFilterRecord = 'Filtri'; - SFindRecord = 'Ricerca'; - SPrintRecord = 'Stampa records'; - SExportRecord = 'Esporta records'; - SPostEdit = 'Salva modifiche'; - SCancelEdit = 'Elimina modifiche'; - SRefreshRecord = 'Refresh data'; - SChoice = 'Scegli un record'; - SClear = 'Elimina la scelta di un record'; - SDeleteRecordQuestion = 'Cancella il record?'; - SDeleteMultipleRecordsQuestion = 'Cancellare i records selezionati?'; - SRecordNotFound = 'Record non trovato'; - - SFirstName = 'Primo'; - SPriorName = 'Precedente'; - SNextName = 'Successivo'; - SLastName = 'Ultimo'; - SInsertName = 'Inserisci'; - SCopyName = 'Copia'; - SDeleteName = 'Cancella'; - SEditName = 'Modifica'; - SFilterName = 'Filtro'; - SFindName = 'Trova'; - SPrintName = 'Stampa'; - SExportName = 'Esporta'; - SPostName = 'Salva'; - SCancelName = 'Annulla'; - SRefreshName = 'Rileggi'; - SChoiceName = 'Scegli'; - SClearName = 'Cancella'; - - SBtnOk = '&OK'; - SBtnCancel = '&Cancella'; - SBtnLoad = 'Apri'; - SBtnSave = 'Salva'; - SBtnCopy = 'Copia'; - SBtnPaste = 'Incolla'; - SBtnClear = 'Cancella'; - - SRecNo = 'rec.'; - SRecOf = ' di '; - -const //for EditTyped - etValidNumber = 'numero valido'; - etValidInteger = 'numero intero valido'; - etValidDateTime = 'data/ora valida'; - etValidDate = 'data valida'; - etValidTime = 'ora valida'; - etValid = 'valido'; - etIsNot = 'non e un'; - etOutOfRange = 'Il valore %s non e compreso in %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/JPN/FILE_ID.DIZ b/components/smdbgrid/source/locale/JPN/FILE_ID.DIZ deleted file mode 100644 index 56629b14..00000000 --- a/components/smdbgrid/source/locale/JPN/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Japanese resource strings -translated by Naohiro Fukuda, nao@nagoya.terracom.co.jp diff --git a/components/smdbgrid/source/locale/JPN/SMCnst.pas b/components/smdbgrid/source/locale/JPN/SMCnst.pas deleted file mode 100644 index eaf81336..00000000 --- a/components/smdbgrid/source/locale/JPN/SMCnst.pas +++ /dev/null @@ -1,107 +0,0 @@ -unit SMCnst; - -interface - -{Japanese strings} -const - strMessage = '...'; - strSaveChanges = 'ύXۑ܂?'; - strErrSaveChanges = 'f[^ۑł܂! T[oւ̐ڑmFĂ'; - strDeleteWarning = 'e[u폜܂낵łH %s?'; - strEmptyWarning = 'Do you really want to empty a table %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('R[h̒lj', - 'Insert record', - 'R[h̕ҏW', - 'R[h̍폜', - '-', - ' ...', - 'GNX|[g ...', - '-', - 'ύX̕ۑ', - 'ύX̔j', - '\̍XV', - '-', - 'R[hI/Ỉ', - 'R[h̑I', - 'ׂẴR[h̑I', - '-', - 'R[hỈ', - 'ׂẴR[hỈ', - '-', - 'CAEg̕ۑ', - 'CAEgۑ̌Ăяo', - '-', - 'ZbgAbv...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Title '; - SgbData = ' Data '; - STitleCaption = 'Caption:'; - STitleAlignment = 'Alignment:'; - STitleColor = 'Color:'; - STitleFont = 'Font:'; - SWidth = 'Width:'; - SWidthFix = 'characters'; - SAlignLeft = 'left'; - SAlignRight = 'right'; - SAlignCenter = 'center'; - -const //for SMDBNavigator - SFirstRecord = '擪'; - SPriorRecord = 'O'; - SNextRecord = ''; - SLastRecord = 'ŏI'; - SInsertRecord = '}'; - SCopyRecord = 'Rs['; - SDeleteRecord = '폜'; - SEditRecord = 'ҏW'; - SFilterRecord = 'tB^'; - SFindRecord = ''; - SPrintRecord = ''; - SExportRecord = 'GNX|[g'; - SPostEdit = 'ۑ'; - SCancelEdit = 'LZ'; - SRefreshRecord = 'XV'; - SChoice = 'I'; - SClear = 'Ij'; - SDeleteRecordQuestion = 'R[h폜܂?'; - SDeleteMultipleRecordsQuestion = 'IꂽR[h폜܂?'; - SRecordNotFound = 'R[h܂'; - - SFirstName = '擪'; - SPriorName = 'O'; - SNextName = ''; - SLastName = 'ŏI'; - SInsertName = '}'; - SCopyName = 'Rs['; - SDeleteName = '폜'; - SEditName = 'ҏW'; - SFilterName = 'tB^'; - SFindName = ''; - SPrintName = ''; - SExportName = 'GNX|[g'; - SPostName = 'ۑ'; - SCancelName = 'LZ'; - SRefreshName = 'XV'; - SChoiceName = 'I'; - SClearName = 'NA'; - - SRecNo = '#'; - SRecOf = ' of '; - -const //for EditTyped - etValidNumber = 'l'; - etValidInteger = 'l'; - etValidDateTime = 't/'; - etValidDate = 't'; - etValidTime = ''; - etValid = 'L'; - etIsNot = 'is not a'; - etOutOfRange = 'l %s ͈͂Ă܂ %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/MEX/FILE_ID.DIZ b/components/smdbgrid/source/locale/MEX/FILE_ID.DIZ deleted file mode 100644 index 674e4bf4..00000000 --- a/components/smdbgrid/source/locale/MEX/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Spanish Mexican resource strings -translated by Daniel Ramirez Jaime, rdaniel2000@hotmail.com diff --git a/components/smdbgrid/source/locale/MEX/SMCnst.pas b/components/smdbgrid/source/locale/MEX/SMCnst.pas deleted file mode 100644 index b889e1da..00000000 --- a/components/smdbgrid/source/locale/MEX/SMCnst.pas +++ /dev/null @@ -1,158 +0,0 @@ -unit SMCnst; - -interface - -{ Language: - Spanish (Mexican) strings - Translator: - Daniel Ramirez Jaime - E-Mail: - rdaniel2000@hotmail.com -} - -const - strMessage = 'Imprimir...'; - strSaveChanges = 'En readlidad desea guardar los cambios a la Base de Datos?'; - strErrSaveChanges = 'No se puede guardar los datos, verifique la coneccin'+ - ' con el Servidor o la validacin de datos'; - strDeleteWarning = 'En readlidad desea eliminar de la tabla %s?'; - strEmptyWarning = 'En realidad desea vaciar la Tabla %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Agregar registro', - 'Insertar registro', - 'Modificar registro', - 'Eliminar registro', - '-', - 'Imprimir ...', - 'Exportar ...', - '-', - 'Guardar cambios', - 'Cancelar cambios', - 'Actualizar', - '-', - 'Seleccionar/Deseleccionar registros', - 'Selecccionar registros', - 'Seleccionar Todos los registros', - '-', - 'Deseleccionar registro', - 'Deseleccionar Todos los registro', - '-', - 'Guardar el esquema de la columna', - 'Restaurar el esquema de la columna', - '-', - 'Configurar...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Ttulo '; - SgbData = ' Dato '; - STitleCaption = 'Descripcin:'; - STitleAlignment = 'Alinear:'; - STitleColor = 'Fondo:'; - STitleFont = 'Fuente:'; - SWidth = 'Ancho:'; - SWidthFix = 'caracteres'; - SAlignLeft = 'izquierdo'; - SAlignRight = 'derecho'; - SAlignCenter = 'centro'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'Primer registro'; - SPriorRecord = 'Anterior registro'; - SNextRecord = 'Siguiente registro'; - SLastRecord = 'Ultimo registro'; - SInsertRecord = 'Insertar registro'; - SCopyRecord = 'Copiar registro'; - SDeleteRecord = 'Eliminar registro'; - SEditRecord = 'Modificar registro'; - SFilterRecord = 'Filtrar condiciones'; - SFindRecord = 'Buscar el registro'; - SPrintRecord = 'Imprimir los registros'; - SExportRecord = 'Exportar los registros'; - SPostEdit = 'Guardar cambios'; - SCancelEdit = 'Cancelar cambios'; - SRefreshRecord = 'Actualiar datos'; - SChoice = 'Escojer registro'; - SClear = 'Borrar el registro selecionado'; - SDeleteRecordQuestion = 'Eliminar registro?'; - SDeleteMultipleRecordsQuestion = 'En realidad desea Eliminar los registros seleccionados?'; - SRecordNotFound = 'Registro no encontrado'; - - SFirstName = 'Primer'; - SPriorName = 'Anterior'; - SNextName = 'Siguiente'; - SLastName = 'Ultimo'; - SInsertName = 'Insertar'; - SCopyName = 'Copiar'; - SDeleteName = 'Eliminar'; - SEditName = 'Modificar'; - SFilterName = 'Filtrar'; - SFindName = 'Encontrar'; - SPrintName = 'Imprimir'; - SExportName = 'Exportar'; - SPostName = 'Guardar'; - SCancelName = 'Cancelar'; - SRefreshName = 'Actualizar'; - SChoiceName = 'Escojer'; - SClearName = 'Borrar'; - - SBtnOk = '&Aceptar'; - SBtnCancel = '&Cancelar'; - SBtnLoad = 'Abrir'; - SBtnSave = 'Guardar'; - SBtnCopy = 'Copiar'; - SBtnPaste = 'Pegar'; - SBtnClear = 'Limpiar'; - - SRecNo = 'reg.'; - SRecOf = ' de '; - -const //for EditTyped - etValidNumber = 'nmero vlido'; - etValidInteger = 'nmero entero vlido'; - etValidDateTime = 'fecha/hora vlido'; - etValidDate = 'fecha vlido'; - etValidTime = 'hora vlido'; - etValid = 'vlido'; - etIsNot = 'no es'; - etOutOfRange = 'Valor %s fuera de rango %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/NLD/FILE_ID.DIZ b/components/smdbgrid/source/locale/NLD/FILE_ID.DIZ deleted file mode 100644 index f2e87ef7..00000000 --- a/components/smdbgrid/source/locale/NLD/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Dutch resource strings -translated by sam francke s.j.francke@hccnet.nl diff --git a/components/smdbgrid/source/locale/NLD/SMCnst.pas b/components/smdbgrid/source/locale/NLD/SMCnst.pas deleted file mode 100644 index 765b3241..00000000 --- a/components/smdbgrid/source/locale/NLD/SMCnst.pas +++ /dev/null @@ -1,152 +0,0 @@ -unit SMCnst; - -interface - -{Dutch strings} -{translated by sam francke s.j.francke@hccnet.nl} -const - strMessage = 'Print...'; - strSaveChanges = 'Wilt u werkelijk de veranderingen bewaren op de Database Server?'; - strErrSaveChanges = 'Kan data niet bewaren ! Check Server verbinding of validate de data.'; - strDeleteWarning = 'Wilt u werkelijk tabel %s verwijderen ?'; - strEmptyWarning = 'Wilt u werkelijk tabel %s leegmaken?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('voeg record toe', - 'record invoegen', - 'wijzig record', - 'verwijder record', - '-', - 'print ...', - 'export ...', - '-', - 'bewaar veranderingen', - 'doe veranderingen teniet', - 'verversen', - '-', - 'selecteer/deselecteer records', - 'selecteer record', - 'selecteer alle records', - '-', - 'deselecteer record', - 'deselecteer alle records', - '-', - 'bewaar kolom layout', - 'herstel kolom layout', - '-', - 'setup...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' titel '; - SgbData = ' gegevens '; - STitleCaption = 'kop:'; - STitleAlignment = 'uitlijnen:'; - STitleColor = 'achtergrond:'; - STitleFont = 'font:'; - SWidth = 'breedte:'; - SWidthFix = 'letters'; - SAlignLeft = 'links uitlijnen'; - SAlignRight = 'rechts uitlijen'; - SAlignCenter = 'centreren'; - -const //for TSMDBFilterDialog - strEqual = 'equal'; - strNonEqual = 'not equal'; - strNonMore = 'no greater'; - strNonLess = 'no less'; - strLessThan = 'less than'; - strLargeThan = 'greater than'; - strExist = 'empty'; - strNonExist = 'not empty'; - strIn = 'in list'; - strBetween = 'between'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Field'; - strCondition = 'Condition'; - strValue = 'Value'; - - strAddCondition = ' Define the additional condition:'; - strSelection = ' Select the records by the next conditions:'; - - strAddToList = 'Add to list'; - strDeleteFromList = 'Delete from list'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'eerste record'; - SPriorRecord = 'vorige record'; - SNextRecord = 'volgende record'; - SLastRecord = 'laatste record'; - SInsertRecord = 'voeg record in'; - SCopyRecord = 'kopieer record'; - SDeleteRecord = 'verwijder record'; - SEditRecord = 'wijzig record'; - SFilterRecord = 'filter voorwaarden'; - SFindRecord = 'zoek het record'; - SPrintRecord = 'print de records'; - SExportRecord = 'exporteer de records'; - SPostEdit = 'bewaar veranderingen'; - SCancelEdit = 'doe veranderingen teniet'; - SRefreshRecord = 'ververs data'; - SChoice = 'kies record'; - SClear = 'Clear record keuze'; - SDeleteRecordQuestion = 'verwijder record?'; - SDeleteMultipleRecordsQuestion = 'alle geselecteerde records verwijderen?'; - SRecordNotFound = 'geen record gevonden'; - - SFirstName = 'eerste'; - SPriorName = 'vorige'; - SNextName = 'volgende'; - SLastName = 'laatste'; - SInsertName = 'invoegen'; - SCopyName = 'kopieer'; - SDeleteName = 'verwijder'; - SEditName = 'wijzig'; - SFilterName = 'filter'; - SFindName = 'vind'; - SPrintName = 'print'; - SExportName = 'export'; - SPostName = 'bewaar'; - SCancelName = 'afbreken'; - SRefreshName = 'ververs'; - SChoiceName = 'kies'; - SClearName = 'maak leeg'; - - SBtnOk = 'OK'; - SBtnCancel = 'annuleren'; - SBtnLoad = 'openen'; - SBtnSave = 'opslaan'; - SBtnCopy = 'kopieren'; - SBtnPaste = 'plakken'; - SBtnClear = 'Clear'; - - SRecNo = 'rec.'; - SRecOf = ' van '; - -const //for EditTyped - etValidNumber = 'geldig nummer'; - etValidInteger = 'geldig integer nummer'; - etValidDateTime = 'geldige datum/tijd'; - etValidDate = 'geldige datum'; - etValidTime = 'geldige tijd'; - etValid = 'geldig(e)'; - etIsNot = 'is geen'; - etOutOfRange = 'waarde %s buiten bereik %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/POR/FILE_ID.DIZ b/components/smdbgrid/source/locale/POR/FILE_ID.DIZ deleted file mode 100644 index 640b8ac4..00000000 --- a/components/smdbgrid/source/locale/POR/FILE_ID.DIZ +++ /dev/null @@ -1,17 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Portuguese resource strings -translated by Antonio Roque, antonio_roque@clix.pt - diff --git a/components/smdbgrid/source/locale/POR/SMCnst.pas b/components/smdbgrid/source/locale/POR/SMCnst.pas deleted file mode 100644 index e08308fd..00000000 --- a/components/smdbgrid/source/locale/POR/SMCnst.pas +++ /dev/null @@ -1,156 +0,0 @@ -unit SMCnst; - -interface - - -{Portuguese strings} -{translated by Antonio Roque, antonio_roque@clix.pt} -const - strMessage = 'Imprimir...'; - strSaveChanges = 'Deseja mesmo guardar as alteraes na base de Dados ?'; - strErrSaveChanges = 'No possivel guardar a informao ! Veja a ligao ao servidor ou regras de validao.'; - strDeleteWarning = 'Deseja mesmo apagar a tabela %s?'; - strEmptyWarning = 'Deseja mesmo limpar a tabela %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Adicionar registo', - 'Inserir Registo', - 'Editar registo', - 'Apagar Registo', - '-', - 'Imprimir ...', - 'Exportar ...', - '-', - 'Guardar alteraes', - 'No Guardar alteraes', - 'Refrescar', - '-', - 'selecionar/deselecionar registos', - 'Selecionar registo', - 'Selecionar todos os registos', - '-', - 'Deselecionar registo', - 'deselecionar todos registos', - '-', - 'salvar formato da coluna', - 'resturar formato da coluna', - '-', - 'Setup...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Titulo '; - SgbData = ' Data '; - STitleCaption = 'Titulo'; - STitleAlignment = 'Alinhamento :'; - STitleColor = 'Fundo:'; - STitleFont = 'Fonte:'; - SWidth = 'Largura:'; - SWidthFix = 'characteres'; - SAlignLeft = 'esquerda'; - SAlignRight = 'direita'; - SAlignCenter = 'centro'; - -const //for TSMDBFilterDialog - strEqual = 'igual'; - strNonEqual = 'diferente'; - strNonMore = 'nao maior'; - strNonLess = 'nao menor'; - strLessThan = 'menor que'; - strLargeThan = 'maior que'; - strExist = 'vazio'; - // exist = existe - strNonExist = 'nao vazio'; - // nonexit = Nao existe - - strIn = 'Na Lista' - strBetween = 'entre'; - - strOR = 'OU'; - strAND = 'E'; - - strField = 'Campo'; - strCondition = 'Condicao'; - strValue = 'Valor'; - - strAddCondition = ' Definea condicao addicional:'; - strSelection = ' SelecioneosRegistos pela seguinte(s) Condicoes:'; - - strAddToList = 'Adicionar a Lista'; - strDeleteFromList = 'Apagar Da Lista'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Load from...'; - strFSaveAs = 'Save as..'; - strFDescription = 'Description'; - strFFileName = 'File name'; - strFCreate = 'Created: %s'; - strFModify = 'Modified: %s'; - strFProtect = 'Protect for rewrite'; - strFProtectErr = 'File is protected!'; - -const //for SMDBNavigator - SFirstRecord = 'primeiro registo'; - SPriorRecord = 'registo anterior'; - SNextRecord = 'proximo registo'; - SLastRecord = 'ultimo registo'; - SInsertRecord = 'Inserir registo'; - SCopyRecord = 'Copiar registo'; - SDeleteRecord = 'Apagar registo'; - SEditRecord = 'Editar registo'; - SFilterRecord = 'condies de filtro'; - SFindRecord = 'procurar registos'; - SPrintRecord = 'imprimir registos'; - SExportRecord = 'Exportar registos'; - SPostEdit = 'guardar alteraes'; - SCancelEdit = 'Cancelar alteraes'; - SRefreshRecord = 'Refrescar dados'; - SChoice = 'escolher um registo'; - SClear = 'limpar escolha de registo'; - SDeleteRecordQuestion = 'apagar registo?'; - SDeleteMultipleRecordsQuestion = 'deseja mesmo apagar os registos selecionados ?'; - SRecordNotFound = 'No existe dados '; - - SFirstName = 'primeiro'; - SPriorName = 'anterior'; - SNextName = 'proximo'; - SLastName = 'ultimo'; - SInsertName = 'Inserir'; - SCopyName = 'Copiar'; - SDeleteName = 'apagar'; - SEditName = 'Editar'; - SFilterName = 'Filtrar'; - SFindName = 'Localizar'; - SPrintName = 'imprimir'; - SExportName = 'Exportar'; - SPostName = 'guardar'; - SCancelName = 'Cancelar'; - SRefreshName = 'Refrescar'; - SChoiceName = 'escolher'; - SClearName = 'limpar'; - - SBtnOk = '&OK'; - SBtnCancel = '&Cancelar'; - SBtnLoad = 'Carregar'; - SBtnSave = 'guardar'; - SBtnCopy = 'Copiar'; - SBtnPaste = 'colar'; - SBtnClear = 'limpar'; - - SRecNo = 'reg.'; - SRecOf = ' de '; - -const //for EditTyped - etValidNumber = 'nmero vlido'; - etValidInteger = 'nmero inteiro vlido'; - etValidDateTime = 'data/hora vlida'; - etValidDate = 'data vlida'; - etValidTime = 'hora vlida'; - etValid = 'vlido'; - etIsNot = 'no um'; - etOutOfRange = 'Valor %s est fora dos limites %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/RUS/FILE_ID.DIZ b/components/smdbgrid/source/locale/RUS/FILE_ID.DIZ deleted file mode 100644 index c394a765..00000000 --- a/components/smdbgrid/source/locale/RUS/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Russian resource strings - diff --git a/components/smdbgrid/source/locale/RUS/SMCnst.pas b/components/smdbgrid/source/locale/RUS/SMCnst.pas deleted file mode 100644 index 844cb03c..00000000 --- a/components/smdbgrid/source/locale/RUS/SMCnst.pas +++ /dev/null @@ -1,151 +0,0 @@ -unit SMCnst; - -interface - -{Russian strings} -const - strMessage = '...'; - strSaveChanges = ' ?'; - strErrSaveChanges = ' ! .'; - strDeleteWarning = ' %s?'; - strEmptyWarning = ' %s?'; - -const PopUpCaption: array [0..22] of string[33] = - (' ', - ' ', - ' ', - ' ', - '-', - ' ...', - ' ...', - '-', - ' ', - ' ', - ' ', - '-', - '/ ', - ' ', - ' ', - '-', - ' ', - ' ', - '-', - ' ', - ' ', - '-', - '...'); - - -const //for TSMSetDBGridDialog - SgbTitle = ' '; - SgbData = ' '; - STitleCaption = ':'; - STitleAlignment = ':'; - STitleColor = ' :'; - STitleFont = ':'; - SWidth = ':'; - SWidthFix = ''; - SAlignLeft = ''; - SAlignRight = ''; - SAlignCenter = ' '; - -const //for TSMDBFilterDialog - strEqual = ''; - strNonEqual = ' '; - strNonMore = ' '; - strNonLess = ' '; - strLessThan = ' '; - strLargeThan = ' '; - strExist = ''; - strNonExist = ' '; - strIn = ' '; - strBetween = ''; - - strOR = ''; - strAND = ''; - - strField = ''; - strCondition = ''; - strValue = ''; - - strAddCondition = ' :'; - strSelection = ' :'; - - strAddToList = ' '; - strDeleteFromList = ' '; - - strTemplate = ' '; - strFLoadFrom = ' ...'; - strFSaveAs = ' ..'; - strFDescription = ''; - strFFileName = ' '; - strFCreate = ': %s'; - strFModify = ': %s'; - strFProtect = ' '; - strFProtectErr = ' !'; - -const //for SMDBNavigator - SFirstRecord = ' '; - SPriorRecord = ' '; - SNextRecord = ' '; - SLastRecord = ' '; - SInsertRecord = ' '; - SCopyRecord = ' '; - SDeleteRecord = ' '; - SEditRecord = ' '; - SFilterRecord = ' '; - SFindRecord = ' '; - SPrintRecord = ' '; - SExportRecord = ' '; - SPostEdit = ' '; - SCancelEdit = ' '; - SRefreshRecord = ' '; - SChoice = ' '; - SClear = ' '; - SDeleteRecordQuestion = ' ?'; - SDeleteMultipleRecordsQuestion = ' ?'; - SRecordNotFound = ' '; - - SFirstName = ''; - SPriorName = '.'; - SNextName = '.'; - SLastName = ''; - SInsertName = ''; - SCopyName = ''; - SDeleteName = ''; - SEditName = ''; - SFilterName = ''; - SFindName = ''; - SPrintName = ''; - SExportName = ''; - SPostName = ''; - SCancelName = ''; - SRefreshName = ''; - SChoiceName = ''; - SClearName = ''; - - SBtnOk = '&OK'; - SBtnCancel = '&'; - SBtnLoad = ''; - SBtnSave = ''; - SBtnCopy = ''; - SBtnPaste = ''; - SBtnClear = ''; - - SRecNo = ''; - SRecOf = ' '; - -const //for EditTyped - etValidNumber = ' '; - etValidInteger = ' '; - etValidDateTime = ' '; - etValidDate = ' '; - etValidTime = ' '; - etValid = ''; - etIsNot = ' '; - etOutOfRange = ' %s %s..%s'; - - -implementation - -end. diff --git a/components/smdbgrid/source/locale/SLO/FILE_ID.DIZ b/components/smdbgrid/source/locale/SLO/FILE_ID.DIZ deleted file mode 100644 index 7aacd189..00000000 --- a/components/smdbgrid/source/locale/SLO/FILE_ID.DIZ +++ /dev/null @@ -1,17 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Slovak resource strings -translated by Arpad Toth, ekosoft@signalsoft.sk - diff --git a/components/smdbgrid/source/locale/SLO/SMCnst.pas b/components/smdbgrid/source/locale/SLO/SMCnst.pas deleted file mode 100644 index 2c6f5dc7..00000000 --- a/components/smdbgrid/source/locale/SLO/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{English strings} -const - strMessage = 'Tla...'; - strSaveChanges = 'Chcete zapsa zmeny do Databzovho Servera?'; - strErrSaveChanges = 'Nemono vykona zpis. Skontrolujte platnos dt alebo konektivitu so Serverom.'; - strDeleteWarning = 'Chcete naozaj vymaza tabuku %s?'; - strEmptyWarning = 'Chcete naozaj vyprzni tabuku %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Nov zznam', - 'Vloi zznam', - 'Oprava', - 'Vymaza zznam', - '-', - 'Tla ...', - 'Export ...', - '-', - 'Uloi zmeny', - 'Vrti zmeny', - 'Refresh', - '-', - 'Oznai/ODznai zznamy', - 'Oznai zznam', - 'Oznai Vetky zznamy', - '-', - 'ODznai zznam', - 'ODznai Vetky zznamy', - '-', - 'Uloi truktru stpcov', - 'Nata truktru stpcov', - '-', - 'Setup...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Titulok '; - SgbData = ' Data '; - STitleCaption = 'Nlepka:'; - STitleAlignment = 'Zarovnanie:'; - STitleColor = 'Pozadie:'; - STitleFont = 'Psmo:'; - SWidth = 'rka:'; - SWidthFix = 'znaky'; - SAlignLeft = 'vavo'; - SAlignRight = 'vpravo'; - SAlignCenter = 'do stredu'; - -const //for TSMDBFilterDialog - strEqual = 'rovn sa'; - strNonEqual = 'nerovn sa'; - strNonMore = 'je men alebo sa rovn'; - strNonLess = 'je v alebo sa rovn'; - strLessThan = 'je men'; - strLargeThan = 'je v'; - strExist = 'przdny'; - strNonExist = 'neprzdny'; - strIn = 'sa nachdza v'; - strBetween = 'je v rozsahu'; - - strOR = 'alebo'; - strAND = 'a sastne'; - - strField = 'Poloka'; - strCondition = 'Podmienka'; - strValue = 'Hodnota'; - - strAddCondition = ' Definovanie dodatonej podmienky: '; - strSelection = ' Zoznam zznamov pre nsledn podmienky:'; - - strAddToList = 'Prida do zoznamu'; - strDeleteFromList = 'Odstrni zo zoznamu'; - - strTemplate = 'Filter template dialog'; - strFLoadFrom = 'Nata z...'; // New constatns - strFSaveAs = 'Uloi ako..'; - strFDescription = 'Popis'; - strFFileName = 'Nzov'; - strFCreate = 'Vytvoren : %s'; - strFModify = 'Upraven : %s'; - strFProtect = 'Zamedzi prepsaniu'; - strFProtectErr = 'Sbor nemono prapsa !'; - -const //for SMDBNavigator - SFirstRecord = 'Prv zznam'; - SPriorRecord = 'Predchdzajci record'; - SNextRecord = 'al zznam'; - SLastRecord = 'Posledn zznam'; - SInsertRecord = 'Vloi zznam'; - SCopyRecord = 'Koprova zznam'; - SDeleteRecord = 'Vymaza zznam'; - SEditRecord = 'Upravi zznam'; - SFilterRecord = 'Filtrovacia podmienka'; - SFindRecord = 'Hadanie v zznamoch'; - SPrintRecord = 'Tlaenie zznamov'; - SExportRecord = 'Exportovanie zznamov'; - SPostEdit = 'Uloenie zmien'; - SCancelEdit = 'Ukonenie zmien'; - SRefreshRecord = 'Obnovi dta'; - SChoice = 'Vyberte si zznam'; - SClear = 'Ostraujem vybran zznamy'; - SDeleteRecordQuestion = 'Vymaza zznam?'; - SDeleteMultipleRecordsQuestion = 'Skutone chcete vymaza vybran zznamy?'; - SRecordNotFound = 'Zznam sa nenaiel'; - - SFirstName = 'Prv'; - SPriorName = 'Predchdzajci'; - SNextName = 'Nasledovn'; - SLastName = 'Posledn'; - SInsertName = 'Vloi'; - SCopyName = 'Koprova'; - SDeleteName = 'Vymaza'; - SEditName = 'Upravi'; - SFilterName = 'Filter'; - SFindName = 'Hadanie'; - SPrintName = 'Tla'; - SExportName = 'Export'; - SPostName = 'Uloi'; - SCancelName = 'Storno'; - SRefreshName = 'Obnovi'; - SChoiceName = 'Voba'; - SClearName = 'Odstrni'; - - SBtnOk = '&OK'; - SBtnCancel = '&Nvrat'; - SBtnLoad = 'Nata'; - SBtnSave = 'Uloi'; - SBtnCopy = 'Koprova'; - SBtnPaste = 'Vloi'; - SBtnClear = 'Odstrni'; - - SRecNo = 'zz.'; - SRecOf = ' z '; - -const //for EditTyped - etValidNumber = 'platn slo'; - etValidInteger = 'platn num.hodnota'; - etValidDateTime = 'platn dtum/as'; - etValidDate = 'platn dtum'; - etValidTime = 'platn as'; - etValid = 'platn'; - etIsNot = 'Nie je'; - etOutOfRange = 'Hodnota %s je mimo rozsahu %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/SPA/FILE_ID.DIZ b/components/smdbgrid/source/locale/SPA/FILE_ID.DIZ deleted file mode 100644 index c5ae5bed..00000000 --- a/components/smdbgrid/source/locale/SPA/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Spanish resource strings -translated by Juan J. Martinez, mizar@wanadoo.es \ No newline at end of file diff --git a/components/smdbgrid/source/locale/SPA/SMCnst.pas b/components/smdbgrid/source/locale/SPA/SMCnst.pas deleted file mode 100644 index e7322bb0..00000000 --- a/components/smdbgrid/source/locale/SPA/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{Spanish strings} -const - strMessage = 'Imprimir...'; - strSaveChanges = 'Confirma la grabacin de datos en el Servidor'; - strErrSaveChanges = 'Imposible grabar! Chequea la conexin con el servidor o valida los datos.'; - strDeleteWarning = 'Confirma el borrado de la tabla %s?'; - strEmptyWarning = 'Confirma el vaciado de la table %s?'; - -const - PopUpCaption: array [0..22] of string[33] = - ('Agregar registro', - 'Insertar registro', - 'Editar registro', - 'Eliminar registro', - '-', - 'Imprimir ...', - 'Exportar ...', - '-', - 'Grabar cambios', - 'Descartar cambios', - 'Refrescar', - '-', - 'Selecciona/Deselecciona registros', - 'Seleccionar registro', - 'Selecciona todos los registros', - '-', - 'Deselecciona registro', - 'Deselecciona todos los reg.', - '-', - 'Guarda Formato de columna', - 'Recupera formato de columna', - '-', - 'Configurar...'); - -const //for TSMSetDBGridDialog - SgbTitle = ' Ttulo '; - SgbData = ' Datos '; - STitleCaption = 'Ttulo:'; - STitleAlignment = 'Alineacin:'; - STitleColor = 'Fondo:'; - STitleFont = 'Fuente:'; - SWidth = 'Ancho:'; - SWidthFix = 'caracteres'; - SAlignLeft = 'izquierda'; - SAlignRight = 'derecha'; - SAlignCenter = 'centro'; - -const //for TSMDBFilterDialog - strEqual = 'igual'; - strNonEqual = 'diferente'; - strNonMore = 'menor o igual'; - strNonLess = 'mayor o igual'; - strLessThan = 'menor'; - strLargeThan = 'mayor'; - strExist = 'vacio'; - strNonExist = 'lleno'; - strIn = 'en la lista'; - strBetween = 'entre'; - - strOR = 'OR'; - strAND = 'AND'; - - strField = 'Campo'; - strCondition = 'Condicin'; - strValue = 'Valor'; - - strAddCondition = ' Define condicin adicional:'; - strSelection = ' Selecciona los registros por las siguientes condiciones:'; - - strAddToList = 'Agrega a la lista'; - strDeleteFromList = 'Borra de la lista'; - - strTemplate = 'Dialogo plantilla de filtro'; - strFLoadFrom = 'Cargar desde...'; - strFSaveAs = 'Guardar como..'; - strFDescription = 'Descripcin'; - strFFileName = 'Archivo'; - strFCreate = 'Creado: %s'; - strFModify = 'Modificado: %s'; - strFProtect = 'Protege para escritura'; - strFProtectErr = 'Archivo protegido!'; - -const //for SMDBNavigator - SFirstRecord = 'Primero'; - SPriorRecord = 'Anterior'; - SNextRecord = 'Siguiente'; - SLastRecord = 'Ultimo'; - SInsertRecord = 'Nuevo'; - SCopyRecord = 'Copiar'; - SDeleteRecord = 'Eliminar'; - SEditRecord = 'Modificar'; - SFilterRecord = 'Filtrar'; - SFindRecord = 'Buscar'; - SPrintRecord = 'Impresin'; - SExportRecord = 'Exportar'; - SPostEdit = 'Guardar'; - SCancelEdit = 'Deshacer Cambios'; - SRefreshRecord = 'Refrescar Datos'; - SChoice = 'Elegir registro'; - SClear = 'Vaciar registro elegido'; - SDeleteRecordQuestion = 'Eliminar registro?'; - SDeleteMultipleRecordsQuestion = 'Realmente deseas eliminar los registro seleccionados?'; - SRecordNotFound = 'Registro no encontrado'; - - SFirstName = 'Primero'; - SPriorName = 'Anterior'; - SNextName = 'Siguiente'; - SLastName = 'Ultimo'; - SInsertName = 'Nuevo'; - SCopyName = 'Copiar'; - SDeleteName = 'Eliminar'; - SEditName = 'Modificar'; - SFilterName = 'Filtrar'; - SFindName = 'Buscar'; - SPrintName = 'Imprimir'; - SExportName = 'Exportar'; - SPostName = 'Guardar'; - SCancelName = 'Cancelar'; - SRefreshName = 'Refrescar'; - SChoiceName = 'Elegir'; - SClearName = 'Vaciar'; - - SBtnOk = '&Aceptar'; - SBtnCancel = '&Cancelar'; - SBtnLoad = 'Cargar'; - SBtnSave = 'Guardar'; - SBtnCopy = 'Copiar'; - SBtnPaste = 'Pegar'; - SBtnClear = 'Vaciar'; - - SRecNo = 'reg.'; - SRecOf = ' de '; - -const //for EditTyped - etValidNumber = 'nmero correcto'; - etValidInteger = 'entero correcto'; - etValidDateTime = 'fecha/hora correcto '; - etValidDate = 'fecha correcta'; - etValidTime = 'hora correcta'; - etValid = 'correcto'; - etIsNot = 'no es un/a'; - etOutOfRange = 'Valor %s fuera del rango %s..%s'; - -implementation - -end. diff --git a/components/smdbgrid/source/locale/UKR/FILE_ID.DIZ b/components/smdbgrid/source/locale/UKR/FILE_ID.DIZ deleted file mode 100644 index 2bdef26b..00000000 --- a/components/smdbgrid/source/locale/UKR/FILE_ID.DIZ +++ /dev/null @@ -1,16 +0,0 @@ -{*********************************************************} -{ } -{ Resources for SMComponent suite. Freeware. } -{ } -{ Copyright (c) 1998-2001 Mike Shkolnik } -{ } -{ E-Mail: mshkolnik@scalabium.com } -{ mshkolnik@yahoo.com } -{ WEB: http://www.scalabium.com } -{ http://www.geocities.com/mshkolnik } -{ tel: 380-/44/-552-10-29 } -{ } -{*********************************************************} - -Ukrainian resource strings - diff --git a/components/smdbgrid/source/locale/UKR/SMCnst.pas b/components/smdbgrid/source/locale/UKR/SMCnst.pas deleted file mode 100644 index 3db9292e..00000000 --- a/components/smdbgrid/source/locale/UKR/SMCnst.pas +++ /dev/null @@ -1,150 +0,0 @@ -unit SMCnst; - -interface - -{Ukrainian strings} -const - strMessage = '...'; - strSaveChanges = ' i i i?'; - strErrSaveChanges = 'i ! i '' i .'; - strDeleteWarning = ' i %s?'; - strEmptyWarning = ' i i i %s?'; - -const PopUpCaption: array [0..21] of string[33] = - (' ', - ' ', - ' ', - ' ', - '-', - ' ...', - ' ...', - '-', - ' i', - 'ii i', - ' i', - '-', - 'i/i i', - 'i ', - 'i i ', - '-', - 'i ', - 'i i ', - '-', - ' ', - ' ', - '-', - '...'); - - -const //for TSMSetDBGridDialog - SgbTitle = ' '; - SgbData = ' i '; - STitleCaption = ':'; - STitleAlignment = 'i:'; - STitleColor = ' :'; - STitleFont = ':'; - SWidth = ':'; - SWidthFix = 'i'; - SAlignLeft = 'i'; - SAlignRight = ''; - SAlignCenter = ' '; - -const //for TSMDBFilterDialog - strEqual = 'i'; - strNonEqual = ' i'; - strNonMore = ' i'; - strNonLess = ' '; - strLessThan = ' i'; - strLargeThan = 'i i'; - strExist = ''; - strNonExist = ' '; - strIn = ' '; - strBetween = 'i'; - - strOR = ''; - strAND = ''; - - strField = ''; - strCondition = ''; - strValue = ''; - - strAddCondition = ' i :'; - strSelection = ' i i i i :'; - - strAddToList = ' '; - strDeleteFromList = ' '; - - strTemplate = ' ii'; - strFLoadFrom = ' ...'; - strFSaveAs = ' ..'; - strFDescription = ''; - strFFileName = ''' '; - strFCreate = ': %s'; - strFModify = 'i: %s'; - strFProtect = ' i '; - strFProtectErr = ' i !'; - -const //for SMDBNavigator - SFirstRecord = ' '; - SPriorRecord = ' '; - SNextRecord = ' '; - SLastRecord = ' '; - SInsertRecord = ' '; - SCopyRecord = ' '; - SDeleteRecord = ' '; - SEditRecord = ' '; - SFilterRecord = 'ii i'; - SFindRecord = 'i '; - SPrintRecord = ' i'; - SExportRecord = ' i'; - SPostEdit = ' i'; - SCancelEdit = 'ii i'; - SRefreshRecord = ' '; - SChoice = 'i '; - SClear = ' i'; - SDeleteRecordQuestion = ' ?'; - SDeleteMultipleRecordsQuestion = ' i i ?'; - SRecordNotFound = ' '; - - SFirstName = ''; - SPriorName = '.'; - SNextName = 'i.'; - SLastName = 'i'; - SInsertName = ''; - SCopyName = 'i'; - SDeleteName = ''; - SEditName = ''; - SFilterName = 'i'; - SFindName = 'i'; - SPrintName = ''; - SExportName = ''; - SPostName = ''; - SCancelName = 'ii'; - SRefreshName = ''; - SChoiceName = 'i'; - SClearName = ''; - - SBtnOk = '&OK'; - SBtnCancel = '&ii'; - SBtnLoad = ''; - SBtnSave = ''; - SBtnCopy = 'i'; - SBtnPaste = ''; - SBtnClear = ''; - - SRecNo = ''; - SRecOf = ' '; - -const //for EditTyped - etValidNumber = ' '; - etValidInteger = ' i '; - etValidDateTime = ' '; - etValidDate = ' '; - etValidTime = ' '; - etValid = ''; - etIsNot = ' '; - etOutOfRange = ' %s i %s..%s'; - -implementation - -end. diff --git a/extra/build_everything.cmd b/extra/build_everything.cmd index ea04d4f0..4475015e 100644 --- a/extra/build_everything.cmd +++ b/extra/build_everything.cmd @@ -102,8 +102,8 @@ set params=--no-config set params=%params% -aWinTypes=Windows;WinProcs=Windows;DbiProcs=BDE;DbiTypes=BDE;DbiErrs=BDE set params=%params% -B set params=%params% -i"%base_dir%\components\compilerdetection\include;%base_dir%\components\heidisql\include" -set params=%params% -r"%base_dir%\components\smdbgrid\Resources;%base_dir%\components\synedit\resources;%base_dir%\components\virtualtreeview\Resources;%base_dir%\components\edbimage\resources" -set params=%params% -u"%compiler_dir%\lib;%compiler_dir%\lib\obj;%base_dir%\components\zeosdbo\build;%base_dir%\components\virtualtreeview\build;%base_dir%\components\synedit\build;%base_dir%\components\smdbgrid\build;%base_dir%\components\heidisql\build;%base_dir%\components\edbimage\build;%base_dir%\components\tntunictrls\build" +set params=%params% -r"%base_dir%\components\synedit\resources;%base_dir%\components\virtualtreeview\Resources;%base_dir%\components\edbimage\resources" +set params=%params% -u"%compiler_dir%\lib;%compiler_dir%\lib\obj;%base_dir%\components\zeosdbo\build;%base_dir%\components\virtualtreeview\build;%base_dir%\components\synedit\build;%base_dir%\components\heidisql\build;%base_dir%\components\edbimage\build;%base_dir%\components\tntunictrls\build" set params=%params% -N0"..\..\build" set params=%params% -LE"..\..\build" set params=%params% -LN"..\..\build" @@ -181,11 +181,6 @@ call :compile edbimage DCLSer if not %err% == 0 goto end -rem Build SMDBGrid -call :compile smdbgrid SMDBGridComponents -if not %err% == 0 goto end - - rem Build SynEdit call :compile synedit SynEditR if not %err% == 0 goto end diff --git a/extra/install_ide_components.cmd b/extra/install_ide_components.cmd index 00ef3f2d..ccef6d90 100644 --- a/extra/install_ide_components.cmd +++ b/extra/install_ide_components.cmd @@ -107,11 +107,6 @@ call :install edbimage DCLSer if not %err% == 0 goto end -rem Install SMDBGrid -call :install smdbgrid SMDBGridComponents -if not %err% == 0 goto end - - rem Install SynEdit call :install synedit SynEditD if not %err% == 0 goto end diff --git a/out/readme.txt b/out/readme.txt index addb919f..5d6de590 100644 --- a/out/readme.txt +++ b/out/readme.txt @@ -74,7 +74,7 @@ Germany, Danmark, Netherlands, Brazil and China. ---------------------------------------- - ZeosLib under GPL - http://sourceforge.net/projects/zeoslib/ - SynEdit under LGPL - http://synedit.sourceforge.net -- Scalabium Software for Freeware SMDBGrid - http://www.scalabium.com/ +- TNT Unicode Controls with unicode exceptions - http://www.mh-nexus.de/tntunicodecontrols.htm - Inno Setup - http://www.jrsoftware.org/ - Sebastin Mayor for EDBImage - Daniel Hahler for the name "HeidiSQL" - http://daniel.hahler.de/ diff --git a/packages/delphi11/heidisql.dproj b/packages/delphi11/heidisql.dproj index 4b1f6480..55c632f9 100644 --- a/packages/delphi11/heidisql.dproj +++ b/packages/delphi11/heidisql.dproj @@ -1,4 +1,4 @@ -