Révision | 578 (tree) |
---|---|
l'heure | 2022-04-23 00:10:18 |
Auteur | derekwildstar |
Ajuste no código gerado pelo Expert do Repository Wizard
Uso do nome do componente por padrão ao criar a janela de ToolTip
Método Change do TKRKLabeledEdit alterado para não considerar a visibilidade do componente
@@ -850,7 +850,7 @@ | ||
850 | 850 | Result := CreateWindowEx(WS_EX_NOACTIVATE // A jenala do ToolTip não ficará ativa e portanto nunca será a janela da frente |
851 | 851 | or WS_EX_TOPMOST // A janela do ToolTip ficará em cima de outras janelas não top-most e fica lá mesmo se desativada |
852 | 852 | ,TOOLTIPS_CLASS |
853 | - ,nil | |
853 | + ,PChar(Self.Name) // A função atual é usada no método Loaded, portanto já possuímos aqui o nome do componente, que é único na aplicação e pode ser usado aqui | |
854 | 854 | ,AToolTipStyles // Estilos aplicados a janela do ToolTip |
855 | 855 | ,0,0,0,0 |
856 | 856 | ,Application.Handle |
@@ -1125,7 +1125,12 @@ | ||
1125 | 1125 | |
1126 | 1126 | procedure TCustomKRKLabeledEdit.Change; |
1127 | 1127 | begin |
1128 | - if not (FEditFormat.Format = foGeneral) and Showing then | |
1128 | + // Removi o Showing porque precisei que o formato fosse aplicado mesmo antes | |
1129 | + // da tela ser exibida, pois estava carregando os controles de tela após sua | |
1130 | + // criação, mas antes de sua exibição. Não sei, contudo, porque eu usei o | |
1131 | + // Showing inicialmente, por isso mantive apenas comentado, pois se algo der | |
1132 | + // problema, volte a usá-lo | |
1133 | + if not (FEditFormat.Format = foGeneral) {and Showing} then | |
1129 | 1134 | FEditFormat.ApplyMask; |
1130 | 1135 | |
1131 | 1136 | inherited; |
@@ -165,6 +165,18 @@ | ||
165 | 165 | // definidos anteriormente, por exemplo, em chamadas a ToolTips do tipo |
166 | 166 | // tracking (método Show, versão que tem mais parâmetros) |
167 | 167 | TTN_SHOW: begin |
168 | + // idFrom é o identificador único da "ferramenta" que tem significado | |
169 | + // livre. A implementação de TKRKToolTip preenche este membro | |
170 | + // automaticamente de acordo com a presença do flag TTF_IDISWND. Quando | |
171 | + // este flag está presente, o que acontece para os dois botões (que | |
172 | + // possuem handle), idFrom corresponde ao handle de cada um deles. | |
173 | + // Quando TTF_IDISWND está ausente, idFrom será formado por uma | |
174 | + // combinação única dentro da aplicação. Neste caso será usado o handle | |
175 | + // do controle pai (que sempre existirá) mais o ComponentIndex do | |
176 | + // componente para o qual deverá ser exibido o ToolTip. Em outras | |
177 | + // palavras, idFrom sempre conterá um valor, porém ele pode ser ou o | |
178 | + // handle da ferramenta ou uma combinação de handle do controle pai mais | |
179 | + // o índice do componente para o qual a dica vai aparecer | |
168 | 180 | if AMessage.NMHdr.idFrom = FormPrincipal.BUTNHint4.Handle then |
169 | 181 | KRTT.SetTipIconAndTitle(TTI_INFO,'ToolTip automático 1') |
170 | 182 | else if AMessage.NMHdr.idFrom = FormPrincipal.BUTNHint5.Handle then |