QuantumGrid EditButton

[husonet]

S.a.

QuantumGrid de bir alanıma EditButton ekledim CharCase özelliğini uppercase yaptım veri girişlerinde büyük harf yazdırmak için Türkçe karakterlerde problem yarattı. Bunun kolay bir ayarı varmı? yoksa change eventinde kod mu yazmam gerekli?

Teşekkür Ederim...

[husonet]

Ben bunu aşağıdaki şekilde yaptım. Daha kolayı var ama ben çözemedim Benimki biraz ali cengiz oyunu gibi oldu nesnelerin büyüsünden yararlandım

Belki birinin işine yara die atıyorum.

Kod: Tümünü seç

procedure TFrm_CariHesFisEkle.cxGrid1DBTableViewCARIKODPropertiesChange(
  Sender: TObject);
var
    Buffer:String;
    CursorPos:Integer;
begin
    TcxTextEdit(Sender).PostEditValue;
    Buffer := TcxTextEdit(Sender).EditValue;
    CursorPos := Length(Buffer)-(TcxTextEdit(Sender).SelStart-TcxTextEdit(Sender).SelLength);
    TcxTextEdit(Sender).EditingText := UpperCaseTr(Buffer);
    CursorPos := Length(Buffer)-CursorPos;
    TcxTextEdit(Sender).SelStart := CursorPos;
end;

Kullandığım hazır fonksiyon

Kod: Tümünü seç

Function UpperCaseTr(Str:String):String;
const
    buyukharf:String = 'ÇĞIİÖŞÜ';
    kucukharf:String = 'çğıiöşü';
var
    i:Integer;
    NewStr:String;
Begin
    NewStr := '';
    For i:= 1 to Length(Str) do
        if Pos(Str[i], kucukharf) > 0 Then
            NewStr := NewStr + buyukharf[pos(Str[i], kucukharf)]
        Else
            NewStr := NewStr + UpperCase(Str[i]);
        Result :=NewStr;
End;

Kolay Gelsin...