Régle transparente pour mesurer un objet ecran

Soyez le premier à donner votre avis sur cette source.

Vue 34 447 fois - Téléchargée 994 fois

Description

J'ai trouvé sur un site de téléchargement une application qui
permet de mesurer des objets sur l'écran :
( Atrise Golden Section, http://www.atrise.com/ )

Mais comme c'est un shareware la version d'essai a plusieurs
limitations :
- La période d'essai est limitée à 30 jours;
- Un message clignotant du besoin de l'enregistrement apparaît;
- D'autres messages apparaissent.

D'ou l'idée de faire une petite régle, très simple, qui permet
de mesurer également un objet (Largeur/hauteur)

La documentation est fournie sous forme de fichier type .book dont l'exécutable nécessaire (Book.exe)est disponible après compilation : http://www.delphifr.com/codes_auteur/DUBOIS77/1372727.aspx

Source / Exemple :


Tout est dans le ZIP :

Regle.book
regle.jpg
util.jpg
Regle1.dfm
Regle1.pas
Regle.dpr

Conclusion :


ça doit pouvoir se perfectionner !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
82
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
20 avril 2010

@ Roger : très intéressant ton code, du coup je ne serais plus démuni devant le transtypage en question.

@ Jean-Pierre : Idem ton lien http://www.cthing.com/Meazure.asp

Merci à vous !
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018

Essayez donc celui-là... il se nomme Meazure...

www.oldware.org/download.php?download=791
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
12
pour @ DRJEROME
(merci pour la note)
il semblerai que ce soit le picPick mentionné plus haut par JP DEBIARS
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
12
@ Jean-Pierre : "Surtout pour son option "palette de couleurs, qui donne directement la couleur Delphi."
tu peux essayer celà : (le code couleur delphi est dans le presse papier en sortant)
il suffit d'un TColorDialog,un Tpanel, un Tbutton et un Tedit :
unit Nuancier1;
//---------------------------------------------------------------------------
interface
//---------------------------------------------------------------------------
uses Forms, StdCtrls, Classes, Controls, Dialogs, SysUtils, ExtCtrls ;const projet 'xxx'; version '1';
Type
TForm1 = class(TForm)
C1: TColorDialog;
Panel1: TPanel;
Edit1: TEdit;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
{ Déclarations privées }
public
procedure INIT;
procedure QUITTER;
end;

var
Form1: TForm1;

//---------------------------------------------------------------------------
implementation
//---------------------------------------------------------------------------
{$R *.dfm}
//------------------------------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject); begin Quitter end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin if Key=#27 then QUITTER; end; // nécessite Form1.keypreview := true
procedure TForm1.QUITTER;
begin
edit1.SelectAll;
edit1.CopyToClipboard;
application.Terminate
end;
//------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject); begin INIT end;
procedure TForm1.INIT;
begin
Form1.keypreview := true; // pour quitter avec ESC, si pas déjà dans DFM
setbounds(0,0,170,29)
end;
//------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
if C1.Execute then
begin
edit1.Text := inttostr(C1.Color);
edit1.Color := C1.Color;
end;
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
if C1.Execute then
begin
edit1.Text := inttostr(C1.Color);
edit1.Color := C1.Color;
end;
end;
end.
+ le DFM :
object Form1: TForm1
Left = 402
Top = 120
BorderIcons = []
BorderStyle = bsNone
Caption = 'Nuancier'
ClientHeight = 88
ClientWidth = 263
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 169
Height = 26
Caption = 'Panel1'
Color = 8404992
TabOrder = 0
object Edit1: TEdit
Left = 3
Top = 2
Width = 120
Height = 21
TabOrder = 0
Text = 'Clic'
OnClick = Edit1Click
end
object Button2: TButton
Left = 123
Top = 3
Width = 42
Height = 21
Caption = 'Quitter'
TabOrder = 1
OnClick = Button2Click
end
end
object C1: TColorDialog
Left = 24
Top = 32
end
end
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

oups..;

notons Monsieur Dubois
Afficher les 69 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.