Discussion :

[AL1986]

Salut,
J'ai migré une appli vb en delphi. L'outil de migration à transformer les picturebox de vb en Timage de delphi, mais a gardé les propriétés du control picturebox. Les propriétés que je voudrai changer sont :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
picturebox.fillstyle
picturebox.pset
picturebox.line(integer, integer, integer, color)
picturebox.cls
picturebox.autoredraw
picturebox.scalemode
picturebox.borderstyle
picturebox.currentX
picturebox.currentY

J'ai consulté l'aide de delphi, mais c'était vain. Si quelqu'un connais les (ou quelques) équivalents de ces propriétés pour un TImage de Delphi, qu'il n'hésite pas à se prononcer. Merci.

[Clorish]

A priori tout ce que tu cherhce a faire est dnas la classe TCanvas (property Canvas)

- FillStyle doit est Brush.Style
- Pset connait pas (ca fait quoi en VB ?)
- Line : C'est MoveTo + LineTo
- Cls : Heuuuu un FillRect avec un Brush.Color particulier sur ClipRect ?!?
- AutoRedraw : Cetautomatix ?
- ScaleMode : Je verais biens Stretch dans TImage (etirement) conbiné avec Center et Proportionnal ca fait des merveilles
- BorderStyle : La ... Va faloir y aller a coup de moveTo/LineTo .... Les TShapes sont bien aussi pour poser des bordures personalisées
- CurrentX/CurrentY : C'est pour acceder aux pixels ? tu as la prop Pixels ....

[AL1986]

Voici ce que dit l'aide vb à propos de pset

Sub PSet(Step As Integer, X As Single, Y As Single, Color As Long)
Member of VB.PictureBox
Sets a point on an object to a specified color.

CurrentX/CurrentY permettent de déterminer les coordonnées d'un pixel (je pense)

Returns/sets the vertical/horizontal coordinates for next print or draw method.

[Clorish]

ok .. donc pset est l'equivalent de la propert Pixels

Sinon CurrentX/Y faut voir a quoi ca sert, ou plutot dans quelles condition et a quels moment tu t'en sert ... car d'apres la def, je ne vois pas d'equivalent dans delphi. Le systeme de gestion est different.

[AL1986]

La procédure est la suivante :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Sub DrawBtnTxt(inPct As PictureBox, lbLeft%, lbTop%, lbRight%, lbBottom%, lbText$, lbHorzAlign$, txVertAlign$, inMultiLine%)
.
.
.
.
.
.
   'Calculate the Y position
   inPct.CurrentY = lbTop + (((lbBottom - lbTop) * lbVertAlign) - (inTextHeight * lbVertAlign))
 
   'Don't let it go over the top
   If inPct.CurrentY < lbTop Then
      inPct.CurrentY = lbTop
   End If
 
   For inElement = 1 To UBound(arText) 'Loop thru all element strings
 
      Select Case LCase(lbHorzAlign)
         Case "left"
            inPct.CurrentX = lbLeft
 
         Case "right"
            inPct.CurrentX = lbRight - inPct.TextWidth(arText(inElement)) - 3
 
         Case "center"
            inPct.CurrentX = lbLeft + (((lbRight - lbLeft) / 2) - (inPct.TextWidth(arText(inElement)) / 2))
         Case Else  'Default "center"
            inPct.CurrentX = lbLeft + (((lbRight - lbLeft) / 2) - (inPct.TextWidth(arText(inElement)) / 2))
      End Select
 
      inPct.Print arText(inElement)
   Next
 
   ReDim arText(0)
End Sub

[Clorish]

ok .. donc ca semble permettre de definir un pixel qui ser de point de depart du dessins comme du texte par exemple ...

Dans ce cas, la plupart des fonctions de TCanvas (textOut ?) possede comme parametre les valeurs X et Y du pixel de depart ....