Unit position_by_color

Soyez le premier à donner votre avis sur cette source.

Vue 4 503 fois - Téléchargée 279 fois

Description

Pour illustrer une idée postée dans le thread de Mauricio : http://www.delphifr.com/code.aspx?ID=30296

Une petite Unit pour positionner des boutons.... etc (du moment que la chose a des propriétés Top/Left/Width/Height) sur une form, à partir d'un bmp (fond blanc obligatoire) et des rectangles de couleurs.

Toute les remarques sont les bienvenues, j'apprends en meme temps :)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
Arf, j'avais juste posté les modifs en commentaire,pas updaté le source. C'est corrigé.
Ne t'inquiète pas à propos de la remarque de Wolf. ça doit être sa cloche qui lui est tombé sur la tete (ou sur ses "oeux") ...

Sinon, je ne vois pas où est l'amélioration (pourtant j'imagine qu'il y en a une) par rapport à la version précédente. Merci d'avance si tu pouvais m'éclairer ...
Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
Mais kékidi lui ? Le prog on s'en tape, c'est l'unit Poisition-by-color qui est importante. Or elle est mature là.

J'ai juste ajouter ca :
//--------------------------------------------------------
function GetBoundRect(aColor:TColor; var aRect: TRect): boolean;
var i:integer;

begin
Result:=False;
for i:=0 to MaxUsed do
if AreaColorList[i].Color = aColor then
begin
aRect:=AreaColorList[i].Rect;
Result:=True;
break;
end;

end;

//--------------------------------------------------------
procedure PlaceCtrl(const Ctrl: TControl);
var
R: TRect;
begin
if GetBoundRect(Ctrl.Tag, R) then
begin
Ctrl.BoundsRect:=R;
end;
end;


Histoire de faire plus dense.

Tu peux clarifier ta remarque WOlf691300 ?
Messages postés
41
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
31 mars 2006

Pour améliorer ton programme, y placer un peu de finesse dans son ensemble, j'y vois une représentation fort grossière dans le graphisme. Aller améliore ...Et bonne continuation ... J'ai l'impression de voir des oeux déposé par des cloches ...

Wolf691300 + Joyeuses Pâques ...
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
ton programme, amelioré c'est encore.
fier de toi, mon jeune ami je suis.

une bonne année a tous je vous souhaite.
Afficher les 17 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.