July 4, 2008 02:40pm pdt

1. zzynx 9,400
2. magnetic... 5,240
3. hielo 5,000
3. -Mystique- 5,000
5. b0lsc0tt 4,500
6. war1 3,360
7. DarkHill 3,100
8. giltjr 2,500
9. sunnycoder 2,400
9. chilternPC 2,400
9. Rogiee 2,400
12. RedKelvin 2,000
12. BenMorel 2,000
12. JSoup 2,000
12. karunamo... 2,000
12. Richard_... 2,000
12. scrathcyboy 2,000
12. hernst42 2,000
12. Adam314 2,000
12. Onlyodin 2,000
12. aneeshch... 2,000
12. fibo 2,000
12. jar3817 2,000

1. zzynx 126,426
2. sunnycoder 61,230
3. magnetic... 56,713
4. freebuddy 21,379
5. bk_jrein... 18,940
6. shuboarder 14,169
7. callrs 12,890
8. ilovemyk... 12,692
9. sunray_2003 11,568
10. Sheharya... 10,050
11. BoyBlueSky 9,512
12. LRI41 9,046
13. aspmaestro 8,556
14. daleoran 8,228
15. nickg5 7,624

04.22.2008 at 10:24AM PDT, ID: 23343836

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.5

I need an example how to create a way to cross words., take a look the detais

Zones: Delphi Programming, Hot URLs

Hello guys,

I have a form that will have a list of 10 words. this way:

house carro
car macaco
keyboard casa
computer teclado
monkey computador
mouse papel
knife rato
paper faca

For each word I will have the mean in other language, if I have this in the paper I will make the cross line
linking each word to the correct mean.
As this must be made in the form, is there any way to make the lines .

I need an example to make it
thanks

Start your free trial to view this solution

Question Stats

Zone: Other

Question Asked By: hidrau

Solution Provided By: TheRealLoki

Participating Experts: 3

Solution Grade: A

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
New Net Users
New Users

Software
Digital Music
Gaming World

Home Security
Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Handhelds / PDAs
Displays / Monitors
Components
Networking Hardware

Peripherals
Laptops/Notebooks
Storage
Servers

Desktops
New Users
Misc
Apple

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMWare
Misc
Web Development

OS
CYGWIN
Voice Recognition
Message Queue
Quality Assurance
Security
Firewalls
MultiMedia Applications

Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals

Devices
Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
WebApplications
IDS
Vulnerabilities
Email Clients

File Sharing
Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMWare

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel

Algorithms
Game
Signal Processing
Project Management
Open Source

Database
Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Images

Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration
WebApplications

Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Broadband

Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Community Advisor
Lounge
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles

Community Support

Suggestions
New to EE
New Topics
Community Advisor

CleanUp
Announcements
General

Feedback
Input
EE Bugs

04.22.2008 at 10:50AM PDT, ID: 21413661

Rank: Master

SteveBay:

Here is a simple example. I would need to know more deatils to give a more detailed example:

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

           
           
             procedure TForm1.Button1Click(Sender: TObject);
begin
     LineFromLabelToLabel(Form1.Canvas, Label1, Label2);
end;
 
procedure TForm1.LineFromLabelToLabel(canvas: TCanvas; lbl1, lbl2: TLabel);
var X1,Y1, X2, Y2 : Integer;
begin
     X1 := lbl1.Left + lbl1.Width;
     Y1 := lbl1.Top + (lbl1.Height Div 2);
     X2 := lbl2.Left;
     Y2 := lbl2.Top + (lbl2.Height Div 2);;
     with canvas do
          begin
          MoveTo(X1 , Y1 );
          LineTo(X2, Y2) ;
          end;
end;
           
         

Open in New Window

04.22.2008 at 10:55AM PDT, ID: 21413703

Rank: Sage

ziolko:

>>is there any way to make the lines .
yes, but it really depends how those words are displayed, basically to draw lines you have to use Form1.Canvas.LineTo() function but you need appropriate coordinates of both line ends you can also draw line like you do free-hand drawing paint or any graphic program.
one way or the other it's important what components you have on form and how those words are displayed (drawed directly on canvas or displayed in some component)

very simple line drawing on form:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
Canvas.LineTo(X, Y);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
Canvas.MoveTo(X, Y);
end;

end.

ziolko.

04.22.2008 at 12:16PM PDT, ID: 21414465

hidrau:

Hello guys, I made an example what I am trying to do

please take a look at the code , I am thinking of having an array of word list loaded.
With the array will generate my game, that is, I will scrambled it and load the words for each
label mixing them. I need a way to check this after all the excercise is done. When click to check I will
compare the list formed with my array. Well, something like this. did you get it?

V1, V2 : Array of string

V1[0] := 'copybook'
V2[0] := 'Livro'

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:

           
           
             unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Bevel1: TBevel;
    Label28: TLabel;
    Label29: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
end.
 
 
 
 
 
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 514
  Height = 485
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 72
    Top = 148
    Width = 70
    Height = 24
    Caption = 'caderno'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 72
    Top = 181
    Width = 46
    Height = 24
    Caption = 'mesa'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 72
    Top = 215
    Width = 75
    Height = 24
    Caption = 'cachorro'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 72
    Top = 248
    Width = 101
    Height = 24
    Caption = 'computador'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 72
    Top = 282
    Width = 67
    Height = 24
    Caption = 'telefone'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 72
    Top = 315
    Width = 65
    Height = 24
    Caption = 'homem'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 72
    Top = 348
    Width = 52
    Height = 24
    Caption = 'garota'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 72
    Top = 382
    Width = 40
    Height = 24
    Caption = 'Livro'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 72
    Top = 415
    Width = 62
    Height = 24
    Caption = 'cabeça'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 312
    Top = 148
    Width = 43
    Height = 24
    Caption = 'head'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 312
    Top = 181
    Width = 37
    Height = 24
    Caption = 'man'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 312
    Top = 215
    Width = 25
    Height = 24
    Caption = 'girl'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 312
    Top = 248
    Width = 42
    Height = 24
    Caption = 'book'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label14: TLabel
    Left = 312
    Top = 282
    Width = 33
    Height = 24
    Caption = 'dog'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label15: TLabel
    Left = 312
    Top = 315
    Width = 80
    Height = 24
    Caption = 'computer'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label16: TLabel
    Left = 312
    Top = 348
    Width = 40
    Height = 24
    Caption = 'table'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel
    Left = 312
    Top = 382
    Width = 85
    Height = 24
    Caption = 'telephone'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label18: TLabel
    Left = 312
    Top = 415
    Width = 83
    Height = 24
    Caption = 'copybook'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label19: TLabel
    Left = 440
    Top = 148
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label20: TLabel
    Left = 440
    Top = 181
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label21: TLabel
    Left = 440
    Top = 215
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label22: TLabel
    Left = 440
    Top = 248
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label23: TLabel
    Left = 440
    Top = 282
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label24: TLabel
    Left = 440
    Top = 315
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label25: TLabel
    Left = 440
    Top = 348
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label26: TLabel
    Left = 440
    Top = 382
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label27: TLabel
    Left = 440
    Top = 415
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 506
    Height = 49
    Align = alTop
    Shape = bsFrame
  end
  object Label28: TLabel
    Left = 16
    Top = 55
    Width = 439
    Height = 24
    Caption = 'click holding the button and drag to the correct  word'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label29: TLabel
    Left = 72
    Top = 79
    Width = 331
    Height = 24
    Caption = 'so that you can make the conection line'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 260
    Top = 8
    Width = 121
    Height = 25
    Caption = 'Check cross words'
    TabOrder = 0
  end
  object Button2: TButton
    Left = 124
    Top = 8
    Width = 121
    Height = 25
    Caption = 'Make cross words'
    TabOrder = 1
  end
end

           
         

Open in New Window

04.22.2008 at 12:29PM PDT, ID: 21414602

Rank: Master

SteveBay:

I think I know what you are looking for, however I won't have time to to address it untill later tonight.

04.22.2008 at 01:10PM PDT, ID: 21415070

hidrau:

ok stevebay, have your time, I can wait :))

04.22.2008 at 02:46PM PDT, ID: 21415890

Rank: Wizard

TheRealLoki:

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:

           
           
             unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Left_Label1: TLabel;
    Left_Label2: TLabel;
    Left_Label3: TLabel;
    Left_Label4: TLabel;
    Left_Label5: TLabel;
    Left_Label6: TLabel;
    Left_Label7: TLabel;
    Left_Label8: TLabel;
    Left_Label9: TLabel;
    Right_Label1: TLabel;
    Right_Label2: TLabel;
    Right_Label3: TLabel;
    Right_Label4: TLabel;
    Right_Label5: TLabel;
    Right_Label6: TLabel;
    Right_Label7: TLabel;
    Right_Label8: TLabel;
    Right_Label9: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Bevel1: TBevel;
    Label28: TLabel;
    Label29: TLabel;
    Image1: TImage;
    procedure Right_Labels_DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Right_Labels_DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Private declarations }
    procedure ClearLines;
    procedure DrawAllLines;
    procedure DrawOneLine(LeftLabel: TLabel);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.width := image1.width;
  bmp.height := image1.height;
  bmp.Canvas.Font.Assign(Left_Label1.Font);
  Image1.Picture.Assign(bmp);
  bmp.Free;
  ClearLines;
end;
 
procedure TForm1.ClearLines;
begin
  image1.Picture.Bitmap.Canvas.Brush.color := form1.Color;
  image1.Picture.Bitmap.Canvas.FillRect(rect(0, 0, image1.width, image1.height));
end;
 
procedure TForm1.DrawAllLines;
var
  i: integer;
  cmp: tcomponent;
  endlabel: TLabel;
  startx, starty, endx, endy: integer;
begin
  i := 1;
  cmp := Form1.FindComponent('Left_Label' + IntToStr(i));
  while assigned(cmp) do
  begin
    DrawOneLine(cmp as TLabel);
    inc(i);
    cmp := Form1.FindComponent('Left_Label' + IntToStr(i));
  end;
end;
 
procedure TForm1.DrawOneLine(LeftLabel: TLabel);
var
  startx, starty, endx, endy: integer;
  EndLabel: TLabel;
begin
    if LeftLabel.Tag <> 0 then
    begin
      endlabel := TLabel(pointer(LeftLabel.Tag));
      startx := LeftLabel.Left - Image1.Left + Leftlabel.Width + 4;
      starty := LeftLabel.Top - Image1.Top + Trunc(LeftLabel.Height / 2);
      endx := endlabel.Left - Image1.Left - 4;
      endy := endlabel.Top - Image1.Top + Trunc(EndLabel.Height / 2);
 
{
      startx := LeftLabel.Left - Image1.Left + Image1.Picture.Bitmap.Canvas.Textwidth( LeftLabel.Caption ) + 4;
      starty := LeftLabel.Top - Image1.Top + Trunc(Image1.Picture.Bitmap.Canvas.TextHeight( LeftLabel.Caption) / 2);
      endx := endlabel.Left - Image1.Left - 4;
      endy := endlabel.Top - Image1.Top + Trunc(Image1.Picture.Bitmap.Canvas.TextHeight(LeftLabel.Caption) / 2);
}
      Image1.Picture.Bitmap.Canvas.Pen.Color := clRed;
      Image1.Picture.Bitmap.Canvas.Pen.Width := 2;
      Image1.Picture.Bitmap.Canvas.MoveTo(startx, starty);
      Image1.Picture.Bitmap.Canvas.LineTo(endx, endy);
  end;
 
end;
 
 
procedure TForm1.Right_Labels_DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept :=  ( (Source is TLabel) and ( pos('LEFT_', uppercase((Source as TLabel).Name)) = 1) );
end;
 
procedure TForm1.Right_Labels_DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  lastlink: TLabel;
begin
  if ( (Source is TLabel) and ( pos('LEFT_', uppercase((Source as TLabel).Name)) = 1) ) then
  begin
    if (Source as TLabel).Tag <> 0 then
    begin // had a previous line from it
      lastlink := TLabel(pointer((Source as TLabel).Tag));
      (Source as TLabel).Tag := integer(Sender);
      ClearLines;
      DrawAllLines;
    end
    else
    begin
      (Source as TLabel).Tag := integer(Sender);
      DrawOneLine(Source as TLabel);
    end;
  end;
end;
 
end.
 
 
*** FORM FOLLOWS
 
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 514
  Height = 485
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 72
    Top = 148
    Width = 361
    Height = 301
  end
  object Left_Label1: TLabel
    Left = 72
    Top = 148
    Width = 70
    Height = 24
    Caption = 'caderno'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label2: TLabel
    Left = 72
    Top = 181
    Width = 46
    Height = 24
    Caption = 'mesa'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label3: TLabel
    Left = 72
    Top = 215
    Width = 75
    Height = 24
    Caption = 'cachorro'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label4: TLabel
    Left = 72
    Top = 248
    Width = 101
    Height = 24
    Caption = 'computador'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label5: TLabel
    Left = 72
    Top = 282
    Width = 67
    Height = 24
    Caption = 'telefone'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label6: TLabel
    Left = 72
    Top = 315
    Width = 65
    Height = 24
    Caption = 'homem'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label7: TLabel
    Left = 72
    Top = 348
    Width = 52
    Height = 24
    Caption = 'garota'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label8: TLabel
    Left = 72
    Top = 382
    Width = 40
    Height = 24
    Caption = 'Livro'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Left_Label9: TLabel
    Left = 72
    Top = 415
    Width = 62
    Height = 24
    Caption = 'cabeça'
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Right_Label1: TLabel
    Left = 312
    Top = 148
    Width = 43
    Height = 24
    Caption = 'head'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label2: TLabel
    Left = 312
    Top = 181
    Width = 37
    Height = 24
    Caption = 'man'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label3: TLabel
    Left = 312
    Top = 215
    Width = 25
    Height = 24
    Caption = 'girl'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label4: TLabel
    Left = 312
    Top = 248
    Width = 42
    Height = 24
    Caption = 'book'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label5: TLabel
    Left = 312
    Top = 282
    Width = 33
    Height = 24
    Caption = 'dog'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label6: TLabel
    Left = 312
    Top = 315
    Width = 80
    Height = 24
    Caption = 'computer'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label7: TLabel
    Left = 312
    Top = 348
    Width = 40
    Height = 24
    Caption = 'table'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label8: TLabel
    Left = 312
    Top = 382
    Width = 85
    Height = 24
    Caption = 'telephone'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Right_Label9: TLabel
    Left = 312
    Top = 415
    Width = 83
    Height = 24
    Caption = 'copybook'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDragDrop = Right_Labels_DragDrop
    OnDragOver = Right_Labels_DragOver
  end
  object Label19: TLabel
    Left = 440
    Top = 148
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label20: TLabel
    Left = 440
    Top = 181
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label21: TLabel
    Left = 440
    Top = 215
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label22: TLabel
    Left = 440
    Top = 248
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label23: TLabel
    Left = 440
    Top = 282
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label24: TLabel
    Left = 440
    Top = 315
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label25: TLabel
    Left = 440
    Top = 348
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label26: TLabel
    Left = 440
    Top = 382
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label27: TLabel
    Left = 440
    Top = 415
    Width = 24
    Height = 24
    Caption = 'Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 506
    Height = 49
    Align = alTop
    Shape = bsFrame
  end
  object Label28: TLabel
    Left = 16
    Top = 55
    Width = 439
    Height = 24
    Caption = 'click holding the button and drag to the correct  word'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label29: TLabel
    Left = 72
    Top = 79
    Width = 331
    Height = 24
    Caption = 'so that you can make the conection line'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 260
    Top = 8
    Width = 121
    Height = 25
    Caption = 'Check cross words'
    TabOrder = 0
  end
  object Button2: TButton
    Left = 124
    Top = 8
    Width = 121
    Height = 25
    Caption = 'Make cross words'
    TabOrder = 1
  end
end

           
         

Open in New Window

Accepted Solution

04.22.2008 at 02:50PM PDT, ID: 21415916

Rank: Wizard

TheRealLoki:

what I did was label all the left labels with a similar name "Left_Labelx" that way we can tell which it is from the name
I did the same for the right labels Right_Labelx
Next, i put a TImage "under" the labels (sendtoback)
and set it's top and left to the same as the first label's top and left, and made it big enough to go under all the labels.
Then I set all the TLabel's to "transparent := true;"
Finally, I am using the "Tag" property on the left labels to say which label they have a line to

04.22.2008 at 02:51PM PDT, ID: 21415924

Rank: Wizard

TheRealLoki:

oh, 1 other thing, you use normal drag and drop (click and hold left side and drag over a right side label) to make the link line

04.22.2008 at 07:00PM PDT, ID: 21417214

Rank: Master

SteveBay:

It looks like TheRealLoki has given you most of what you need. I thought you might like a simple example of how to draw a dynamic line whith the mouse. So here it is:

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

           
           
             unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
     StartPoint : TPoint;
     EndPoint : TPoint;
     Drawing : Boolean;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     StartPoint := Point(X, Y ) ;
     EndPoint := StartPoint;
     Canvas.Brush.Style := bsClear  ;
     Canvas.Pen.Color := clWhite;
     Canvas.Pen.Mode := pmXor;
     Drawing := True;
 
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
     if Drawing then
          begin
          Canvas.MoveTo(StartPoint.X,StartPoint.Y);
          Canvas.LineTo(EndPoint.X,EndPoint.Y);
          EndPoint := Point(X,Y) ;
          Canvas.MoveTo(StartPoint.X,StartPoint.Y);
          Canvas.LineTo(EndPoint.X,EndPoint.Y);
          end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Drawing := False;
end;
 
end.
           
         

Open in New Window

Assisted Solution

06.13.2008 at 05:12AM PDT, ID: 21777910

Rank: Sage

ciuly:

No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I will leave the following recommendation for this question in the Cleanup topic area:
Split: SteveBay {http:#21413661} & ziolko {http:#21413703} & TheRealLoki {http:#21415890}

Any objections should be posted here in the next 4 days. After that time, the question will be closed.

ciuly
EE Cleanup Volunteer

20080236-EE-VQP-29 / EE_QW_2_20070628