وسط چین شدن Text یک Edit

[mehdi5106]

از بچه ها اگه کسی در این باره کار کرده لطفا فوری جواب بده.چون خیلی لازمش دارماگه میشه بهم پ ام بدینMy ID: m9647113369

[ali_abbasi22145]

سلام

اگه وسط چین شدن DBGrid را هم بگویید من لازم دارم.

[m-khorsandi]

create a TEdit with definable text alignment? (http://www.swissdelphicenter.com/en/showcode.php?id=714)

[ho.yasreby]

لطفا کمی راجع ب آن توضیح دهید من متوجه نشدم اگر توضیح واضحی بدهید ممنون می شوم چون خیلی این مسئله برای من مهم است

[baghalian88]

procedure TForm1.JustifyText;
var Format : TParaFormat2; // declared in RichEdit.pas
begin
FillChar(Format, SizeOf(TParaFormat2), 0);
Format.cbSize := SizeOf(TParaFormat2);
Format.dwMask := PFM_ALIGNMENT; {The wAlignment member is valid}
Format.wAlignment := PFA_JUSTIFY;
SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, LPARAM(@Format));
end;

[abrras]

procedure TForm1.JustifyText;
var Format : TParaFormat2; // declared in RichEdit.pas
begin
FillChar(Format, SizeOf(TParaFormat2), 0);
Format.cbSize := SizeOf(TParaFormat2);
Format.dwMask := PFM_ALIGNMENT; {The wAlignment member is valid}
Format.wAlignment := PFA_JUSTIFY;
SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, LPARAM(@Format));
end;

لطفا قطعه کد درست بده. از همه خطها ایراد میگیره.:عصبانی++::عصبانی++:
از F1 هم چیزی گیرم نیومد.

[blbagher]

سلام

اگه وسط چین شدن DBGrid را هم بگویید من لازم دارم.
بر روی فیلد مورد نظر کلیک کرده در پنچره object isnpector بر روی خاصیت aliment کلیک کرده و بر روی center قرار می دهیم