Recent content by VladimirA

Hi!<br><br>Set the property TCheckListBox.Style to lbOwnerDrawFixed and then set event handler on TCheckListBox.OnDrawItem:<br><br>procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;<br>&nbsp;&nbsp;Index: Integer; Rect: TRect; State...

Yes! but WinExec calls CreateProcess and more simple in many cases.

Code above must contain string( at the end ):<br>EnableWindow(Wnd,false);<br>to disable keyboard and mouse input.<br><br>Or we can use next...

No problem, we can move window:<br>I use fdisk.exe which run in dos window:<br><br>Wnd : HWND;<br>....................<br>WinExec('fdisk.exe',SW_SHOWNORMAL);<br>repeat<br>Wnd:=FindWindow('tty','fdisk');<br>Application.ProcessMessages;<br>until...

Project1.exe contain only Form1( this is empty project), this code hides window but on task bar still have program ico:<br><br>WinExec('Project1.exe',SW_SHOWNORMAL);<br>ShowWindow(FindWindow(nil,'Form1'),SW_HIDE);<br><br>another way is to hide program from task bar( still have in task...

Hi!<br><br>You send many questions on Win API to this forum.<br>Try to look at win32.hlp which must be in Delphi installation (I have seen it in Delphi1,2,3,4,5 ), You find many interesting and usefull API functions there.As for this question see&nbsp;&nbsp;SetWindowsHookEx in that help...

Hi!<br>See code:<br>// Image1 have some loaded bitmap<br>// Table1 our paradox table<br><br>Table1.Insert;<br>// fill other fields<br>........<br>// fill graphic field by assigning TBitmap<br>TGraphicField(Table1.FieldByName('IMG')).Assign(Image1.Picture.Bitmap);<br>Table1.Post;<br><br>You can...

Excuse me, i don`t understand first part of question, but i think that i have seen second problem.<br>TImageList in my Delphi4 C/S some times lose it`s images ( in compiled program ).This problem can be solved by putting images into project resources (*.res file, image editor from Delphi can do...

I don`t have sources for this question, but try to visit<br><A HREF="http://www.programmersheaven.com/" TARGET="_new">http://www.programmersheaven.com/</A><br>Once i see there some files about mp3, but don`t download it.

Help on this functions You can find in Micrisoft SDK,<br>but:<br><br>WaveOutSetVolume(0, (Volume shl 16) or Volume));<br>set &quot;global&quot; Volume ( Volume = 0..$FFFF)<br><br>When You playing from TMediaPalyer then You can set volume:<br><br>auxSetVolume(MediaPlayer1.DeviceID,(Volume shl 16)...

Two<br>SendMessage(YourHandle,WM_CLOSE,0,0);<br>or<br>DestroyWindow( YourHandle );<br><br>DestroyWindow() use for main window.<br>(excuse for my English).

Ups! :)<br>I missed second condition.<br><br>&nbsp;&nbsp;&nbsp;(x-x1)*(x2-x1)+(y-y1)*(y2-y1)<br>B= -----------------------------<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(x2-x1)^2+(y2-y1)^2<br><br>So if (B&gt;=0)and(B&lt;=1)and(A&lt;=W*W) then given point<br>hit to rectangle.

Hi!<br>The simplest way is to redraw all image<br>(clear image and draw in series all pictures,lines etc).<br>Another way is use two images- first is background image<br>where lie picture wich can`t be modified (You can only draw to this image), second image is lie above the first and...

Hi! You can identify if click point lie in the <br>rectangle if do...

Hi! I write some class(but under Delphi4).<br>You can change it for your program.<br><br>// unit<br>unit Unit2;<br><br>interface<br><br>uses Windows,Graphics;<br><br>type<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TRec =array of TPoint;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TA =...