RÉGLE TRANSPARENTE POUR MESURER UN OBJET ECRAN

Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018
- - Dernière réponse : cs_Jean-Pierre
Messages postés
82
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
20 avril 2010
- 23 janv. 2010 à 11:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51109-regle-transparente-pour-mesurer-un-objet-ecran

cs_Jean-Pierre
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 !
Debiars
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
dubois77
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
10 -
pour @ DRJEROME
(merci pour la note)
il semblerai que ce soit le picPick mentionné plus haut par JP DEBIARS
dubois77
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
10 -
@ 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
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
oups..;

notons Monsieur Dubois