TImage / PictureBox

Version imprimable

TImage / PictureBox

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:

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.

27/07/2007, 15h55
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 ....
27/07/2007, 16h23
AL1986

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

Citation:

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)

Citation:

Returns/sets the vertical/horizontal coordinates for next print or draw method.
27/07/2007, 16h33
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.

La procédure est la suivante :

Code:

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

28/07/2007, 00h10
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 ....