erdal
-
Posts
51 -
Joined
-
Last visited
-
Days Won
1
Content Type
Profiles
Forums
Events
Posts posted by erdal
-
-
Fine thanks. Would you share with us the code.
-
http://dev.sencha.com/extjs/5.0.0/examples/grid/live-search-grid.html
how to use, my delphi application.
Pls help me.
-
fine thanks.
-
I got SenChina 5.01 License.
How can I integrate.
-
pls go visit -http://www.cssbuttongenerator.com/homepage.php#.U-DFSWdrN-b
pls button generator and copy css code.
samples: code range
orginal code:
<style type="text/css">
.classname {
-moz-box-shadow:inset 0px 1px 0px 0px #ffffff;
-webkit-box-shadow:inset 0px 1px 0px 0px #ffffff;
box-shadow:inset 0px 1px 0px 0px #ffffff;
background:-webkit-gradient( linear, left top, left bottom, color-stop(0.05, #ededed), color-stop(1, #dfdfdf) );
background:-moz-linear-gradient( center top, #ededed 5%, #dfdfdf 100% );
filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#ededed', endColorstr='#dfdfdf');
background-color:#ededed;
-webkit-border-top-left-radius:6px;
-moz-border-radius-topleft:6px;
border-top-left-radius:6px;
-webkit-border-top-right-radius:6px;
-moz-border-radius-topright:6px;
border-top-right-radius:6px;
-webkit-border-bottom-right-radius:6px;
-moz-border-radius-bottomright:6px;
border-bottom-right-radius:6px;
-webkit-border-bottom-left-radius:6px;
-moz-border-radius-bottomleft:6px;
border-bottom-left-radius:6px;
text-indent:0;
border:1px solid #dcdcdc;
display:inline-block;
color:#777777;
font-family:arial;
font-size:15px;
font-weight:bold;
font-style:normal;
height:50px;
line-height:50px;
width:100px;
text-decoration:none;
text-align:center;
text-shadow:1px 1px 0px #ffffff;
}
.classname:hover {
background:-webkit-gradient( linear, left top, left bottom, color-stop(0.05, #dfdfdf), color-stop(1, #ededed) );
background:-moz-linear-gradient( center top, #dfdfdf 5%, #ededed 100% );
filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#dfdfdf', endColorstr='#ededed');
background-color:#dfdfdf;
}.classname:active {
position:relative;
top:1px;
}</style>
/* This button was generated using CSSButtonGenerator.com */
unigui button code:
.classname {
-moz-box-shadow:inset 0px 1px 0px 0px #ffffff;
-webkit-box-shadow:inset 0px 1px 0px 0px #ffffff;
box-shadow:inset 0px 1px 0px 0px #ffffff;
background:-webkit-gradient( linear, left top, left bottom, color-stop(0.05, #ededed), color-stop(1, #dfdfdf) );
background:-moz-linear-gradient( center top, #ededed 5%, #dfdfdf 100% );
filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#ededed', endColorstr='#dfdfdf');
background-color:#ededed;
-webkit-border-top-left-radius:6px;
-moz-border-radius-topleft:6px;
border-top-left-radius:6px;
-webkit-border-top-right-radius:6px;
-moz-border-radius-topright:6px;
border-top-right-radius:6px;
-webkit-border-bottom-right-radius:6px;
-moz-border-radius-bottomright:6px;
border-bottom-right-radius:6px;
-webkit-border-bottom-left-radius:6px;
-moz-border-radius-bottomleft:6px;
border-bottom-left-radius:6px;
text-indent:0;
border:1px solid #dcdcdc;
display:inline-block;
color:#777777;
font-family:arial;
font-size:15px;
font-weight:bold;
font-style:normal;
height:50px;
line-height:50px;
width:100px;
text-decoration:none;
text-align:center;
text-shadow:1px 1px 0px #ffffff;
}
.classname:hover {
background:-webkit-gradient( linear, left top, left bottom, color-stop(0.05, #dfdfdf), color-stop(1, #ededed) );
background:-moz-linear-gradient( center top, #dfdfdf 5%, #ededed 100% );
filter:progid:DXImageTransform.Microsoft.gradient(startColorstr='#dfdfdf', endColorstr='#ededed');
background-color:#dfdfdf;
}.classname:active {
position:relative;
top:1px;
}
pls input: uniservermodule custom css.
usage: unilabel and caption = <a href="#" class="classname">test button</a>
You can change the name .className
-
1
-
-
unicombobox hidden value
string or integer;
If you use numbers instead of pointer use TObject.
usage:
procedure TMainForm.UniButton1Click(Sender: TObject);
var arrList : array[0..0] of String;
begin
arrlist[0]:='020';
UniComboBox1.Items.AddObject('Active',Pointer(arrList[0]));
arrlist[0]:='030';
UniComboBox1.Items.AddObject('deActive',Pointer(arrList[0]));
uniComboBox1.ItemIndex:=1;
ShowMessage(String(pString(uniComboBox1.Items.Objects[uniComboBox1.ItemIndex])));
end;
-
how to use command
uniedit--->
Self.SelStart := Length(Self.Text);
Self.SelLength := 0;
And method change not found class list.
procedure Change; override; problem - 1
Complete unit:
//----------------------------------- Autocomplete edit-------------------------------------------------//
unit AutocompleteEdit;
interface
uses
Windows
, Classes
, Vcl.StdCtrls
, SysUtils
, StrUtils
, Messages
,uniEdit
,uniGUIBaseClasses
,uniGUIClasses;
const
MSG_HIDEWORDLIST = WM_USER + 222;
type
TAutocompleteEdit=class(Tuniedit)
private
FWordList: TListBox;
FCaretPos: Integer;
FWordListHeight: Integer;
FWordListWidth: Integer;
procedure HandleWordListLostFocus(ASender: TObject);
procedure HandleWordListSelectItem(ASender: TObject);
procedure HandleWordListKeyPress(Sender: TObject; var Key: Char);
procedure HandleWordListKeyDown(ASender: TObject; var Key: Word; Shift: TShiftState);
procedure HandleHideWordList(var AMsg); overload; message MSG_HIDEWORDLIST;
procedure HandleHideWordList; overload;
procedure SetWordListHeight(const Value: Integer);
procedure SetWordListWidth(const Value: Integer);
procedure RegainFocus;
protected
procedure ShowWordList(AWords: TStrings);
procedure HideWordList;
procedure Change; override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure DoExit; override;
public
constructor Create(AOwner: TComponent); override;
published
property WordListHeight: Integer read FWordListHeight write SetWordListHeight;
property WordListWidth: Integer read FWordListWidth write SetWordListWidth;
end;
TAutocompleteMan=class
private
FWords: TStrings;
public
constructor Create;
destructor Destroy; override;
function IsRecognized(AWord: string): Boolean; overload;
function IsRecognized(AWord: string; AWordList: TStrings): Boolean; overload;
procedure LoadFromFile(const AFilename: string);
procedure AddWord(const AWord: string);
property Words: TStrings read FWords;
end;
procedure Register;
var
AutocompleteMan: TAutocompleteMan;
implementation
procedure Register;
begin
RegisterComponents('CodeCall', [TAutocompleteEdit]);
end;
{ TAutocompleteMan }
procedure TAutocompleteMan.AddWord(const AWord: string);
begin
FWords.Add(UpperCase(AWord) + '=' + AWord);
end;
constructor TAutocompleteMan.Create;
begin
FWords := TStringList.Create;
TStringList(FWords).Duplicates := dupIgnore;
end;
destructor TAutocompleteMan.Destroy;
begin
FWords.Free;
inherited;
end;
function TAutocompleteMan.IsRecognized(AWord: string): Boolean;
var
i: Integer;
begin
Result := False;
AWord := UpperCase(AWord);
for i := 0 to FWords.Count-1 do
begin
Result := System.Pos(AWord, FWords.Names) > 0;
if Result then
Break;
end;
end;
function TAutocompleteMan.IsRecognized(AWord: string;
AWordList: TStrings): Boolean;
var
i: Integer;
begin
Result := False;
AWord := UpperCase(AWord);
AWordList.Clear;
for i := 0 to FWords.Count-1 do
begin
if System.Pos(AWord, FWords.Names) > 0 then
begin
Result := True;
AWordList.Add(FWords.ValueFromIndex);
end;
end;
end;
procedure TAutocompleteMan.LoadFromFile(const AFilename: string);
var
i: Integer;
F: TStrings;
begin
F := TStringList.Create;
try
F.LoadFromFile(AFilename);
for i := 0 to F.Count-1 do
AddWord(F);
finally
F.Free;
end;
end;
{ TAutocompleteEdit }
procedure TAutocompleteEdit.Change;
var
S: TStrings;
begin
inherited;
if AutocompleteMan.IsRecognized(Self.Text) then
begin
S := TStringList.Create;
try
if AutocompleteMan.IsRecognized(Self.Text, S) then
ShowWordList(S);
finally
S.Free;
end;
end
else
HideWordList;
end;
procedure TAutocompleteEdit.HandleHideWordList(var AMsg);
begin
HandleHideWordList;
end;
constructor TAutocompleteEdit.Create(AOwner: TComponent);
begin
inherited;
FWordListHeight := 60;
end;
procedure TAutocompleteEdit.DoExit;
begin
if Assigned(FWordList) and FWordList.Visible and not FWordList.Focused then
HideWordList;
inherited;
end;
procedure TAutocompleteEdit.HandleHideWordList;
begin
FWordList.Free;
FWordList := nil;
end;
procedure TAutocompleteEdit.HandleWordListKeyDown(ASender: TObject;
var Key: Word; Shift: TShiftState);
begin
if (Key=VK_UP) and (FWordList.ItemIndex=0) then
RegainFocus;
end;
procedure TAutocompleteEdit.HandleWordListKeyPress(Sender: TObject;
var Key: Char);
begin
case Key of
#13: begin
Key := #0;
Self.Text := FWordList.Items[FWordList.ItemIndex];
Self.SetFocus;
Self.SelStart := Length(Self.Text);
Self.SelLength := 0;
HideWordList;
end;
#27: begin
RegainFocus;
HideWordList;
end;
else begin
RegainFocus;
end;
end;
end;
procedure TAutocompleteEdit.HandleWordListLostFocus(ASender: TObject);
begin
if not Self.Focused then
HideWordList;
end;
procedure TAutocompleteEdit.HandleWordListSelectItem(ASender: TObject);
begin
Self.Text := FWordList.Items[FWordList.ItemIndex];
HideWordList;
end;
procedure TAutocompleteEdit.HideWordList;
begin
PostMessage(Self.Handle, MSG_HIDEWORDLIST, 0, 0);
end;
procedure TAutocompleteEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key=VK_ESCAPE then
HideWordList
else if (Key=VK_DOWN) and Assigned(FWordList) and FWordList.Visible then
begin
FCaretPos := Self.SelStart;
FWordList.SetFocus;
if FWordList.ItemIndex < 0 then
FWordList.ItemIndex := 0;
end
else
inherited;
end;
procedure TAutocompleteEdit.RegainFocus;
begin
Self.SetFocus;
Self.SelStart := FCaretPos;
Self.SelLength := 0;
end;
procedure TAutocompleteEdit.SetWordListHeight(const Value: Integer);
begin
if FWordListHeight <> Value then
begin
FWordListHeight := Value;
if Assigned(FWordList) then
FWordList.Height := FWordListHeight;
end;
end;
procedure TAutocompleteEdit.SetWordListWidth(const Value: Integer);
begin
if FWordListWidth <> Value then
begin
FWordListWidth := Value;
if Assigned(FWordList) then
begin
if FWordListWidth < 1 then
FWordList.Width := Self.Width
else
FWordList.Width := FWordListWidth;
end;
end;
end;
procedure TAutocompleteEdit.ShowWordList(AWords: TStrings);
begin
if FWordList=nil then
begin
FWordList := TListBox.Create(Self);
FWordList.ParentCtl3D := False;
FWordList.Ctl3D := False;
FWordList.Parent := Self.Parent;
FWordList.TabStop := False;
FWordList.OnExit := HandleWordListLostFocus;
FWordList.OnKeyPress := HandleWordListKeyPress;
FWordList.OnKeyDown := HandleWordListKeyDown;
end;
FWordList.Items.Assign(AWords);
if FWordListWidth < 1 then
FWordList.SetBounds(Self.Left, Self.Top + Self.Height, Self.Width, FWordListHeight)
else
FWordList.SetBounds(Self.Left, Self.Top + Self.Height, FWordListWidth, FWordListHeight);
FWordList.Show;
end;
initialization
AutocompleteMan := TAutocompleteMan.Create;
finalization
AutocompleteMan.Free;
end.
-
New combobox, items + value
ValCombobox1.AddX('Turkey','006'); // ValComboBox1.ItemIndex:=0;
ValCombobox1.clearX; // items and values clear..
ValCombobox1.SavetoFileEx('C:\test.txt'); // Save to file...
ValCombobox1.LoadFromFileEx('C:\test.txt');//Load from file..
ValCombobox1.GetSelectedValue; // Returns the value to the value of the selected records...
ShowMessage(ValComboBox1.GetSelectedValue); // value shown on the display value
-
1
-
-
pls see... log file directory.
Where is the error log file writes.
-
fine thanks.
-
fine thanks .
-
stringgrid..... how we set the length of the column on the screen.
-
Picture link . http://i58.tinypic.com/2wp5rg9.jpg
pls help me. -
fine thanks
-
fine thanks. many many..work..
-
yani, ben ekrana bilgiyi girerken, comboda aktif olan kaydın tamamını, bilgi girişi yaptığım yerde, tamamlasın. en başta yazdığım adreste, simple mode kısmını denersen görürsün. Çok lazım. İlgin için teşekkürler.
-
Farshad. i want to use single state.
examples:When entering information on the right side, you complete the sentence.
-
fine thanks .
-
http://docs.sencha.com/extjs/4.2.2/extjs-build/examples/form/combos.html
How to use my project. Pls help me.
Combobox.js
Locally loaded data
This ComboBox uses local data from a JS array:Select a single state:
// Define the model for a State
Ext.regModel('State', {
fields: [
{type: 'string', name: 'abbr'},
{type: 'string', name: 'name'},
{type: 'string', name: 'slogan'}
]
});
// The data store holding the states
var store = Ext.create('Ext.data.Store', {
model: 'State',
data: states
});
// Simple ComboBox using the data store
var simpleCombo = Ext.create('Ext.form.field.ComboBox', {
fieldLabel: 'Select a single state',
renderTo: 'simpleCombo',
displayField: 'name',
width: 500,
labelWidth: 130,
store: store,
queryMode: 'local',
typeAhead: true
}); -
fine thanks.
-
-
fine thanks
-
when i assign values to variables cookie. Turkish character problem. example: AKG?N MAK?NE
LiveSearchGridPanel
in Components and Code Samples
Posted
Error. TMSUnilivesearchgrid not found.