باید از rave report, quick report, fast report یا کامپوننتهای دیگه استفاده کنی. مستقیماً نمیتونی کپشن یه لیبل رو پرینت کنینقل قول:
Printable View
باید از rave report, quick report, fast report یا کامپوننتهای دیگه استفاده کنی. مستقیماً نمیتونی کپشن یه لیبل رو پرینت کنینقل قول:
اقا اون چيزي كه توش طراحي مي كنند اسمش چيه و كدش هم بگيد ؟
من مي خوام وقتي يك پروژه را كامپايل مي كنم دو تا فرم با هم نمايان شوند ؟
به نام خدا
با سلام لطفا به بنده یاد بدهید چگونه می توانم یک برنامه کوچک دیکشنری مثلا فقط برای 200 الی 300 حروف بسازم اگر ممکن است آموزش به صورت فارسی باشد .
اوه كي حوصله داره ؟
سلامنقل قول:
اينجا رو يه نگاهي بنداز
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلامنقل قول:
خب اول بايد يه بانك اطلاعاتي داشته باشي كه شامل كلمات و معانيشون باشه . بعد ميتوني همزمين با اينكه كاربر داره حروف رو ميزنه تو ديكشنريت معادلشو نمايش بدي
خيلي سادست. كافيه از يه دستور like استفاده كني.
دقيقا بگو كجاي كار هستي تا برات يه مثال بذارم .
موفق باشي
دوست عزیز شما کامپوننت جدید رو معرفی کردی؟ یا منظورت به این جمله من بوده "مستقیماً نمیتونی کپشن یه لیبل رو پرینت کنی" ؟نقل قول:
اگر جواب دومی مثبت هست، منظور من این بوده که از طریق کد نویسی نمیشه کپشن label رو برای پرینت به پرینتر فرستاد و حتما باید از یه کامپوننت پرینت به عنوان واسط استفاده کرد.
امید وارم تکراری نباشه
یک کد جدید برای گرفتن عکس از صفحه نمایش. برای عکس گرفتن از صفحه به طور عمومی یک راه وجود دارد.آن هم این است که برنامه ای بنویسیم که کلید Print Screen بزند و بعد تصویر را از ClipBoard بخواند. این یک راه علمی تر و کم دردسر تر است. این کد کار خود را با TScreen انجام میدهد.
]کد:function CaptureScreenRect( ARect: TRect ): TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result, ARect do
begin
Width := Right - Left;
Height := Bottom - Top;
ScreenDC := GetDC( 0 );
try
BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
Left, Top, SRCCOPY );
finally
ReleaseDC( 0, ScreenDC );
end;
end;
end;
function CaptureScreen: TBitmap;
begin
with Screen do
Result := CaptureScreenRect( Rect( 0, 0, Width, Height ));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Picture.Bitmap:=CaptureScreen
end
ایجاد دو زبان صفحه کلید برای برنامه:
دو دکمه در برنامه بگذارید کپشن یکی رو به En و دومی رو به Fa تغییر دهید....
کد:برای فارسی یا Fa
LoadKeyboardLayout('00000429',KLF_ACTIVATE);
کد:برای انگلیسی یا En
LoadKeyboardLayout('00000409',KLF_ACTIVATE);
گذاشتن برنامه در StartUp:
کد:procedure RunOnStartup( sProgTitle, sCmdLine : string; bRunOnce : boolean );
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then
sKey := 'Once'
else
sKey := '';
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString( 'SoftwareMicrosoft'+ 'WindowsCurrentVersionRun' + sKey + #0,
sProgTitle,sCmdLine );
reg.Free;
end;