تابع API

[farnaz2003]

چگونه تابع API (EM_GETZOOM) در دلفی بکار بریم؟
می خواهم مقدار zoom ، richedit را بدست آورم.

[vcldeveloper]

EM_GETZOOM یک تابع API نیست، بلکه یک message هست. این پیغام در کنترل Rich Edit 3.0 کاربرد داره و در دلفی تعریف نشده. باید خودتون اونو تعریف کنید. می تونید از کد زیر به عنوان مثال استفاده کنید:


const
EM_GETZOOM = WM_USER + 224;
EM_SETZOOM = WM_USER + 225;
var
N,D : DWord;
begin
//Set zoom
SendMessage(RichEdit1.Handle,EM_SETZOOM,2,1);
//Get zoom info. N and D show the scaling ratio of the text (e.g. 2:1).
SendMessage(RichEdit1.Handle,EM_GETZOOM,Integer(@N ),Integer(@D));
ShowMessage(IntToStr(N)+':'+IntToStr(D));
end;